Physlib.Particles.SuperSymmetry.MSSMNu.AnomalyCancellation.Y3

Imports

/-
Copyright (c) 2024 Joseph Tooby-Smith. All rights reserved.
Released under Apache 2.0 license as described in the file LICENSE.
Authors: Joseph Tooby-Smith
-/
module

public import Physlib.Particles.SuperSymmetry.MSSMNu.AnomalyCancellation.Basic
public import Mathlib.Tactic.LinearCombination

The definition of the solution Y₃ and properties thereof

We define $Y_3$ and show that it is a double point of the cubic.

References

The main reference for the material in this file is:

https://arxiv.org/pdf/2107.07926.pdf

@[expose] public section

$Y_3$ is the charge which is hypercharge in all families, but with the third family of the opposite sign.

def Y₃AsCharge : MSSMACC.Charges := toSpecies.symm
  ⟨fun s => fun i =>
    match s, i with
    | 0, 0 => 1
    | 0, 1 => 1
    | 0, 2 => - 1
    | 1, 0 => -4
    | 1, 1 => -4
    | 1, 2 => 4
    | 2, 0 => 2
    | 2, 1 => 2
    | 2, 2 => - 2
    | 3, 0 => -3
    | 3, 1 => -3
    | 3, 2 => 3
    | 4, 0 => 6
    | 4, 1 => 6
    | 4, 2 => - 6
    | 5, 0 => 0
    | 5, 1 => 0
    | 5, 2 => 0,
  fun s =>
    match s with
    | 0 => -3
    | 1 => 3⟩

$Y_3$ as a solution.

def Y₃ : MSSMACC.Sols :=
  MSSMACC.AnomalyFreeMk Y₃AsCharge
    (by⊢ accGrav Y₃AsCharge = 0 with_unfolding_all rflAll goals completed! 🐙) (by⊢ accSU2 Y₃AsCharge = 0 with_unfolding_all rflAll goals completed! 🐙) (by⊢ accSU3 Y₃AsCharge = 0 with_unfolding_all rflAll goals completed! 🐙)
    (by⊢ accYY Y₃AsCharge = 0 with_unfolding_all rflAll goals completed! 🐙) (by⊢ accQuad Y₃AsCharge = 0 with_unfolding_all rflAll goals completed! 🐙) (by⊢ accCube Y₃AsCharge = 0 with_unfolding_all rflAll goals completed! 🐙)

lemma Y₃_val : Y₃.val = Y₃AsCharge := by⊢ Y₃.val = Y₃AsCharge
  rflAll goals completed! 🐙



set_option backward.isDefEq.respectTransparency false in
lemma doublePoint_Y₃_Y₃ (R : MSSMACC.LinSols) :
    cubeTriLin Y₃.val Y₃.val R.val = 0 := byR:MSSMACC.LinSols⊢ ((cubeTriLin Y₃.val) Y₃.val) R.val = 0
  simp only [cubeTriLin, TriLinearSymm.mk₃_toFun_apply_apply, cubeTriLinToFun]R:MSSMACC.LinSols⊢ ∑ x,
      (6 * (Q Y₃.val x * Q Y₃.val x * Q R.val x) + 3 * (U Y₃.val x * U Y₃.val x * U R.val x) +
              3 * (D Y₃.val x * D Y₃.val x * D R.val x) +
            2 * (L Y₃.val x * L Y₃.val x * L R.val x) +
          E Y₃.val x * E Y₃.val x * E R.val x +
        N Y₃.val x * N Y₃.val x * N R.val x) +
    (2 * Hd Y₃.val * Hd Y₃.val * Hd R.val + 2 * Hu Y₃.val * Hu Y₃.val * Hu R.val) =
  0
  erw [Fin.sum_univ_threeR:MSSMACC.LinSols⊢ 6 * (Q Y₃.val 0 * Q Y₃.val 0 * Q R.val 0) + 3 * (U Y₃.val 0 * U Y₃.val 0 * U R.val 0) +
                3 * (D Y₃.val 0 * D Y₃.val 0 * D R.val 0) +
              2 * (L Y₃.val 0 * L Y₃.val 0 * L R.val 0) +
            E Y₃.val 0 * E Y₃.val 0 * E R.val 0 +
          N Y₃.val 0 * N Y₃.val 0 * N R.val 0 +
        (6 * (Q Y₃.val 1 * Q Y₃.val 1 * Q R.val 1) + 3 * (U Y₃.val 1 * U Y₃.val 1 * U R.val 1) +
                3 * (D Y₃.val 1 * D Y₃.val 1 * D R.val 1) +
              2 * (L Y₃.val 1 * L Y₃.val 1 * L R.val 1) +
            E Y₃.val 1 * E Y₃.val 1 * E R.val 1 +
          N Y₃.val 1 * N Y₃.val 1 * N R.val 1) +
      (6 * (Q Y₃.val 2 * Q Y₃.val 2 * Q R.val 2) + 3 * (U Y₃.val 2 * U Y₃.val 2 * U R.val 2) +
              3 * (D Y₃.val 2 * D Y₃.val 2 * D R.val 2) +
            2 * (L Y₃.val 2 * L Y₃.val 2 * L R.val 2) +
          E Y₃.val 2 * E Y₃.val 2 * E R.val 2 +
        N Y₃.val 2 * N Y₃.val 2 * N R.val 2) +
    (2 * Hd Y₃.val * Hd Y₃.val * Hd R.val + 2 * Hu Y₃.val * Hu Y₃.val * Hu R.val) =
  0]R:MSSMACC.LinSols⊢ 6 * (Q Y₃.val 0 * Q Y₃.val 0 * Q R.val 0) + 3 * (U Y₃.val 0 * U Y₃.val 0 * U R.val 0) +
                3 * (D Y₃.val 0 * D Y₃.val 0 * D R.val 0) +
              2 * (L Y₃.val 0 * L Y₃.val 0 * L R.val 0) +
            E Y₃.val 0 * E Y₃.val 0 * E R.val 0 +
          N Y₃.val 0 * N Y₃.val 0 * N R.val 0 +
        (6 * (Q Y₃.val 1 * Q Y₃.val 1 * Q R.val 1) + 3 * (U Y₃.val 1 * U Y₃.val 1 * U R.val 1) +
                3 * (D Y₃.val 1 * D Y₃.val 1 * D R.val 1) +
              2 * (L Y₃.val 1 * L Y₃.val 1 * L R.val 1) +
            E Y₃.val 1 * E Y₃.val 1 * E R.val 1 +
          N Y₃.val 1 * N Y₃.val 1 * N R.val 1) +
      (6 * (Q Y₃.val 2 * Q Y₃.val 2 * Q R.val 2) + 3 * (U Y₃.val 2 * U Y₃.val 2 * U R.val 2) +
              3 * (D Y₃.val 2 * D Y₃.val 2 * D R.val 2) +
            2 * (L Y₃.val 2 * L Y₃.val 2 * L R.val 2) +
          E Y₃.val 2 * E Y₃.val 2 * E R.val 2 +
        N Y₃.val 2 * N Y₃.val 2 * N R.val 2) +
    (2 * Hd Y₃.val * Hd Y₃.val * Hd R.val + 2 * Hu Y₃.val * Hu Y₃.val * Hu R.val) =
  0
  rw [Y₃_valR:MSSMACC.LinSols⊢ 6 * (Q Y₃AsCharge 0 * Q Y₃AsCharge 0 * Q R.val 0) + 3 * (U Y₃AsCharge 0 * U Y₃AsCharge 0 * U R.val 0) +
                3 * (D Y₃AsCharge 0 * D Y₃AsCharge 0 * D R.val 0) +
              2 * (L Y₃AsCharge 0 * L Y₃AsCharge 0 * L R.val 0) +
            E Y₃AsCharge 0 * E Y₃AsCharge 0 * E R.val 0 +
          N Y₃AsCharge 0 * N Y₃AsCharge 0 * N R.val 0 +
        (6 * (Q Y₃AsCharge 1 * Q Y₃AsCharge 1 * Q R.val 1) + 3 * (U Y₃AsCharge 1 * U Y₃AsCharge 1 * U R.val 1) +
                3 * (D Y₃AsCharge 1 * D Y₃AsCharge 1 * D R.val 1) +
              2 * (L Y₃AsCharge 1 * L Y₃AsCharge 1 * L R.val 1) +
            E Y₃AsCharge 1 * E Y₃AsCharge 1 * E R.val 1 +
          N Y₃AsCharge 1 * N Y₃AsCharge 1 * N R.val 1) +
      (6 * (Q Y₃AsCharge 2 * Q Y₃AsCharge 2 * Q R.val 2) + 3 * (U Y₃AsCharge 2 * U Y₃AsCharge 2 * U R.val 2) +
              3 * (D Y₃AsCharge 2 * D Y₃AsCharge 2 * D R.val 2) +
            2 * (L Y₃AsCharge 2 * L Y₃AsCharge 2 * L R.val 2) +
          E Y₃AsCharge 2 * E Y₃AsCharge 2 * E R.val 2 +
        N Y₃AsCharge 2 * N Y₃AsCharge 2 * N R.val 2) +
    (2 * Hd Y₃AsCharge * Hd Y₃AsCharge * Hd R.val + 2 * Hu Y₃AsCharge * Hu Y₃AsCharge * Hu R.val) =
  0R:MSSMACC.LinSols⊢ 6 * (Q Y₃AsCharge 0 * Q Y₃AsCharge 0 * Q R.val 0) + 3 * (U Y₃AsCharge 0 * U Y₃AsCharge 0 * U R.val 0) +
                3 * (D Y₃AsCharge 0 * D Y₃AsCharge 0 * D R.val 0) +
              2 * (L Y₃AsCharge 0 * L Y₃AsCharge 0 * L R.val 0) +
            E Y₃AsCharge 0 * E Y₃AsCharge 0 * E R.val 0 +
          N Y₃AsCharge 0 * N Y₃AsCharge 0 * N R.val 0 +
        (6 * (Q Y₃AsCharge 1 * Q Y₃AsCharge 1 * Q R.val 1) + 3 * (U Y₃AsCharge 1 * U Y₃AsCharge 1 * U R.val 1) +
                3 * (D Y₃AsCharge 1 * D Y₃AsCharge 1 * D R.val 1) +
              2 * (L Y₃AsCharge 1 * L Y₃AsCharge 1 * L R.val 1) +
            E Y₃AsCharge 1 * E Y₃AsCharge 1 * E R.val 1 +
          N Y₃AsCharge 1 * N Y₃AsCharge 1 * N R.val 1) +
      (6 * (Q Y₃AsCharge 2 * Q Y₃AsCharge 2 * Q R.val 2) + 3 * (U Y₃AsCharge 2 * U Y₃AsCharge 2 * U R.val 2) +
              3 * (D Y₃AsCharge 2 * D Y₃AsCharge 2 * D R.val 2) +
            2 * (L Y₃AsCharge 2 * L Y₃AsCharge 2 * L R.val 2) +
          E Y₃AsCharge 2 * E Y₃AsCharge 2 * E R.val 2 +
        N Y₃AsCharge 2 * N Y₃AsCharge 2 * N R.val 2) +
    (2 * Hd Y₃AsCharge * Hd Y₃AsCharge * Hd R.val + 2 * Hu Y₃AsCharge * Hu Y₃AsCharge * Hu R.val) =
  0]R:MSSMACC.LinSols⊢ 6 * (Q Y₃AsCharge 0 * Q Y₃AsCharge 0 * Q R.val 0) + 3 * (U Y₃AsCharge 0 * U Y₃AsCharge 0 * U R.val 0) +
                3 * (D Y₃AsCharge 0 * D Y₃AsCharge 0 * D R.val 0) +
              2 * (L Y₃AsCharge 0 * L Y₃AsCharge 0 * L R.val 0) +
            E Y₃AsCharge 0 * E Y₃AsCharge 0 * E R.val 0 +
          N Y₃AsCharge 0 * N Y₃AsCharge 0 * N R.val 0 +
        (6 * (Q Y₃AsCharge 1 * Q Y₃AsCharge 1 * Q R.val 1) + 3 * (U Y₃AsCharge 1 * U Y₃AsCharge 1 * U R.val 1) +
                3 * (D Y₃AsCharge 1 * D Y₃AsCharge 1 * D R.val 1) +
              2 * (L Y₃AsCharge 1 * L Y₃AsCharge 1 * L R.val 1) +
            E Y₃AsCharge 1 * E Y₃AsCharge 1 * E R.val 1 +
          N Y₃AsCharge 1 * N Y₃AsCharge 1 * N R.val 1) +
      (6 * (Q Y₃AsCharge 2 * Q Y₃AsCharge 2 * Q R.val 2) + 3 * (U Y₃AsCharge 2 * U Y₃AsCharge 2 * U R.val 2) +
              3 * (D Y₃AsCharge 2 * D Y₃AsCharge 2 * D R.val 2) +
            2 * (L Y₃AsCharge 2 * L Y₃AsCharge 2 * L R.val 2) +
          E Y₃AsCharge 2 * E Y₃AsCharge 2 * E R.val 2 +
        N Y₃AsCharge 2 * N Y₃AsCharge 2 * N R.val 2) +
    (2 * Hd Y₃AsCharge * Hd Y₃AsCharge * Hd R.val + 2 * Hu Y₃AsCharge * Hu Y₃AsCharge * Hu R.val) =
  0
  rw [Y₃AsChargeR:MSSMACC.LinSols⊢ 6 *
                    (Q
                          (toSpecies.symm
                            (fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3))
                          0 *
                        Q
                          (toSpecies.symm
                            (fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3))
                          0 *
                      Q R.val 0) +
                  3 *
                    (U
                          (toSpecies.symm
                            (fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3))
                          0 *
                        U
                          (toSpecies.symm
                            (fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3))
                          0 *
                      U R.val 0) +
                3 *
                  (D
                        (toSpecies.symm
                          (fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3))
                        0 *
                      D
                        (toSpecies.symm
                          (fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3))
                        0 *
                    D R.val 0) +
              2 *
                (L
                      (toSpecies.symm
                        (fun s i =>
                          match s, i with
                          | 0, 0 => 1
                          | 0, 1 => 1
                          | 0, 2 => -1
                          | 1, 0 => -4
                          | 1, 1 => -4
                          | 1, 2 => 4
                          | 2, 0 => 2
                          | 2, 1 => 2
                          | 2, 2 => -2
                          | 3, 0 => -3
                          | 3, 1 => -3
                          | 3, 2 => 3
                          | 4, 0 => 6
                          | 4, 1 => 6
                          | 4, 2 => -6
                          | 5, 0 => 0
                          | 5, 1 => 0
                          | 5, 2 => 0,
                          fun s =>
                          match s with
                          | 0 => -3
                          | 1 => 3))
                      0 *
                    L
                      (toSpecies.symm
                        (fun s i =>
                          match s, i with
                          | 0, 0 => 1
                          | 0, 1 => 1
                          | 0, 2 => -1
                          | 1, 0 => -4
                          | 1, 1 => -4
                          | 1, 2 => 4
                          | 2, 0 => 2
                          | 2, 1 => 2
                          | 2, 2 => -2
                          | 3, 0 => -3
                          | 3, 1 => -3
                          | 3, 2 => 3
                          | 4, 0 => 6
                          | 4, 1 => 6
                          | 4, 2 => -6
                          | 5, 0 => 0
                          | 5, 1 => 0
                          | 5, 2 => 0,
                          fun s =>
                          match s with
                          | 0 => -3
                          | 1 => 3))
                      0 *
                  L R.val 0) +
            E
                  (toSpecies.symm
                    (fun s i =>
                      match s, i with
                      | 0, 0 => 1
                      | 0, 1 => 1
                      | 0, 2 => -1
                      | 1, 0 => -4
                      | 1, 1 => -4
                      | 1, 2 => 4
                      | 2, 0 => 2
                      | 2, 1 => 2
                      | 2, 2 => -2
                      | 3, 0 => -3
                      | 3, 1 => -3
                      | 3, 2 => 3
                      | 4, 0 => 6
                      | 4, 1 => 6
                      | 4, 2 => -6
                      | 5, 0 => 0
                      | 5, 1 => 0
                      | 5, 2 => 0,
                      fun s =>
                      match s with
                      | 0 => -3
                      | 1 => 3))
                  0 *
                E
                  (toSpecies.symm
                    (fun s i =>
                      match s, i with
                      | 0, 0 => 1
                      | 0, 1 => 1
                      | 0, 2 => -1
                      | 1, 0 => -4
                      | 1, 1 => -4
                      | 1, 2 => 4
                      | 2, 0 => 2
                      | 2, 1 => 2
                      | 2, 2 => -2
                      | 3, 0 => -3
                      | 3, 1 => -3
                      | 3, 2 => 3
                      | 4, 0 => 6
                      | 4, 1 => 6
                      | 4, 2 => -6
                      | 5, 0 => 0
                      | 5, 1 => 0
                      | 5, 2 => 0,
                      fun s =>
                      match s with
                      | 0 => -3
                      | 1 => 3))
                  0 *
              E R.val 0 +
          N
                (toSpecies.symm
                  (fun s i =>
                    match s, i with
                    | 0, 0 => 1
                    | 0, 1 => 1
                    | 0, 2 => -1
                    | 1, 0 => -4
                    | 1, 1 => -4
                    | 1, 2 => 4
                    | 2, 0 => 2
                    | 2, 1 => 2
                    | 2, 2 => -2
                    | 3, 0 => -3
                    | 3, 1 => -3
                    | 3, 2 => 3
                    | 4, 0 => 6
                    | 4, 1 => 6
                    | 4, 2 => -6
                    | 5, 0 => 0
                    | 5, 1 => 0
                    | 5, 2 => 0,
                    fun s =>
                    match s with
                    | 0 => -3
                    | 1 => 3))
                0 *
              N
                (toSpecies.symm
                  (fun s i =>
                    match s, i with
                    | 0, 0 => 1
                    | 0, 1 => 1
                    | 0, 2 => -1
                    | 1, 0 => -4
                    | 1, 1 => -4
                    | 1, 2 => 4
                    | 2, 0 => 2
                    | 2, 1 => 2
                    | 2, 2 => -2
                    | 3, 0 => -3
                    | 3, 1 => -3
                    | 3, 2 => 3
                    | 4, 0 => 6
                    | 4, 1 => 6
                    | 4, 2 => -6
                    | 5, 0 => 0
                    | 5, 1 => 0
                    | 5, 2 => 0,
                    fun s =>
                    match s with
                    | 0 => -3
                    | 1 => 3))
                0 *
            N R.val 0 +
        (6 *
                    (Q
                          (toSpecies.symm
                            (fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3))
                          1 *
                        Q
                          (toSpecies.symm
                            (fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3))
                          1 *
                      Q R.val 1) +
                  3 *
                    (U
                          (toSpecies.symm
                            (fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3))
                          1 *
                        U
                          (toSpecies.symm
                            (fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3))
                          1 *
                      U R.val 1) +
                3 *
                  (D
                        (toSpecies.symm
                          (fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3))
                        1 *
                      D
                        (toSpecies.symm
                          (fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3))
                        1 *
                    D R.val 1) +
              2 *
                (L
                      (toSpecies.symm
                        (fun s i =>
                          match s, i with
                          | 0, 0 => 1
                          | 0, 1 => 1
                          | 0, 2 => -1
                          | 1, 0 => -4
                          | 1, 1 => -4
                          | 1, 2 => 4
                          | 2, 0 => 2
                          | 2, 1 => 2
                          | 2, 2 => -2
                          | 3, 0 => -3
                          | 3, 1 => -3
                          | 3, 2 => 3
                          | 4, 0 => 6
                          | 4, 1 => 6
                          | 4, 2 => -6
                          | 5, 0 => 0
                          | 5, 1 => 0
                          | 5, 2 => 0,
                          fun s =>
                          match s with
                          | 0 => -3
                          | 1 => 3))
                      1 *
                    L
                      (toSpecies.symm
                        (fun s i =>
                          match s, i with
                          | 0, 0 => 1
                          | 0, 1 => 1
                          | 0, 2 => -1
                          | 1, 0 => -4
                          | 1, 1 => -4
                          | 1, 2 => 4
                          | 2, 0 => 2
                          | 2, 1 => 2
                          | 2, 2 => -2
                          | 3, 0 => -3
                          | 3, 1 => -3
                          | 3, 2 => 3
                          | 4, 0 => 6
                          | 4, 1 => 6
                          | 4, 2 => -6
                          | 5, 0 => 0
                          | 5, 1 => 0
                          | 5, 2 => 0,
                          fun s =>
                          match s with
                          | 0 => -3
                          | 1 => 3))
                      1 *
                  L R.val 1) +
            E
                  (toSpecies.symm
                    (fun s i =>
                      match s, i with
                      | 0, 0 => 1
                      | 0, 1 => 1
                      | 0, 2 => -1
                      | 1, 0 => -4
                      | 1, 1 => -4
                      | 1, 2 => 4
                      | 2, 0 => 2
                      | 2, 1 => 2
                      | 2, 2 => -2
                      | 3, 0 => -3
                      | 3, 1 => -3
                      | 3, 2 => 3
                      | 4, 0 => 6
                      | 4, 1 => 6
                      | 4, 2 => -6
                      | 5, 0 => 0
                      | 5, 1 => 0
                      | 5, 2 => 0,
                      fun s =>
                      match s with
                      | 0 => -3
                      | 1 => 3))
                  1 *
                E
                  (toSpecies.symm
                    (fun s i =>
                      match s, i with
                      | 0, 0 => 1
                      | 0, 1 => 1
                      | 0, 2 => -1
                      | 1, 0 => -4
                      | 1, 1 => -4
                      | 1, 2 => 4
                      | 2, 0 => 2
                      | 2, 1 => 2
                      | 2, 2 => -2
                      | 3, 0 => -3
                      | 3, 1 => -3
                      | 3, 2 => 3
                      | 4, 0 => 6
                      | 4, 1 => 6
                      | 4, 2 => -6
                      | 5, 0 => 0
                      | 5, 1 => 0
                      | 5, 2 => 0,
                      fun s =>
                      match s with
                      | 0 => -3
                      | 1 => 3))
                  1 *
              E R.val 1 +
          N
                (toSpecies.symm
                  (fun s i =>
                    match s, i with
                    | 0, 0 => 1
                    | 0, 1 => 1
                    | 0, 2 => -1
                    | 1, 0 => -4
                    | 1, 1 => -4
                    | 1, 2 => 4
                    | 2, 0 => 2
                    | 2, 1 => 2
                    | 2, 2 => -2
                    | 3, 0 => -3
                    | 3, 1 => -3
                    | 3, 2 => 3
                    | 4, 0 => 6
                    | 4, 1 => 6
                    | 4, 2 => -6
                    | 5, 0 => 0
                    | 5, 1 => 0
                    | 5, 2 => 0,
                    fun s =>
                    match s with
                    | 0 => -3
                    | 1 => 3))
                1 *
              N
                (toSpecies.symm
                  (fun s i =>
                    match s, i with
                    | 0, 0 => 1
                    | 0, 1 => 1
                    | 0, 2 => -1
                    | 1, 0 => -4
                    | 1, 1 => -4
                    | 1, 2 => 4
                    | 2, 0 => 2
                    | 2, 1 => 2
                    | 2, 2 => -2
                    | 3, 0 => -3
                    | 3, 1 => -3
                    | 3, 2 => 3
                    | 4, 0 => 6
                    | 4, 1 => 6
                    | 4, 2 => -6
                    | 5, 0 => 0
                    | 5, 1 => 0
                    | 5, 2 => 0,
                    fun s =>
                    match s with
                    | 0 => -3
                    | 1 => 3))
                1 *
            N R.val 1) +
      (6 *
                  (Q
                        (toSpecies.symm
                          (fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3))
                        2 *
                      Q
                        (toSpecies.symm
                          (fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3))
                        2 *
                    Q R.val 2) +
                3 *
                  (U
                        (toSpecies.symm
                          (fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3))
                        2 *
                      U
                        (toSpecies.symm
                          (fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3))
                        2 *
                    U R.val 2) +
              3 *
                (D
                      (toSpecies.symm
                        (fun s i =>
                          match s, i with
                          | 0, 0 => 1
                          | 0, 1 => 1
                          | 0, 2 => -1
                          | 1, 0 => -4
                          | 1, 1 => -4
                          | 1, 2 => 4
                          | 2, 0 => 2
                          | 2, 1 => 2
                          | 2, 2 => -2
                          | 3, 0 => -3
                          | 3, 1 => -3
                          | 3, 2 => 3
                          | 4, 0 => 6
                          | 4, 1 => 6
                          | 4, 2 => -6
                          | 5, 0 => 0
                          | 5, 1 => 0
                          | 5, 2 => 0,
                          fun s =>
                          match s with
                          | 0 => -3
                          | 1 => 3))
                      2 *
                    D
                      (toSpecies.symm
                        (fun s i =>
                          match s, i with
                          | 0, 0 => 1
                          | 0, 1 => 1
                          | 0, 2 => -1
                          | 1, 0 => -4
                          | 1, 1 => -4
                          | 1, 2 => 4
                          | 2, 0 => 2
                          | 2, 1 => 2
                          | 2, 2 => -2
                          | 3, 0 => -3
                          | 3, 1 => -3
                          | 3, 2 => 3
                          | 4, 0 => 6
                          | 4, 1 => 6
                          | 4, 2 => -6
                          | 5, 0 => 0
                          | 5, 1 => 0
                          | 5, 2 => 0,
                          fun s =>
                          match s with
                          | 0 => -3
                          | 1 => 3))
                      2 *
                  D R.val 2) +
            2 *
              (L
                    (toSpecies.symm
                      (fun s i =>
                        match s, i with
                        | 0, 0 => 1
                        | 0, 1 => 1
                        | 0, 2 => -1
                        | 1, 0 => -4
                        | 1, 1 => -4
                        | 1, 2 => 4
                        | 2, 0 => 2
                        | 2, 1 => 2
                        | 2, 2 => -2
                        | 3, 0 => -3
                        | 3, 1 => -3
                        | 3, 2 => 3
                        | 4, 0 => 6
                        | 4, 1 => 6
                        | 4, 2 => -6
                        | 5, 0 => 0
                        | 5, 1 => 0
                        | 5, 2 => 0,
                        fun s =>
                        match s with
                        | 0 => -3
                        | 1 => 3))
                    2 *
                  L
                    (toSpecies.symm
                      (fun s i =>
                        match s, i with
                        | 0, 0 => 1
                        | 0, 1 => 1
                        | 0, 2 => -1
                        | 1, 0 => -4
                        | 1, 1 => -4
                        | 1, 2 => 4
                        | 2, 0 => 2
                        | 2, 1 => 2
                        | 2, 2 => -2
                        | 3, 0 => -3
                        | 3, 1 => -3
                        | 3, 2 => 3
                        | 4, 0 => 6
                        | 4, 1 => 6
                        | 4, 2 => -6
                        | 5, 0 => 0
                        | 5, 1 => 0
                        | 5, 2 => 0,
                        fun s =>
                        match s with
                        | 0 => -3
                        | 1 => 3))
                    2 *
                L R.val 2) +
          E
                (toSpecies.symm
                  (fun s i =>
                    match s, i with
                    | 0, 0 => 1
                    | 0, 1 => 1
                    | 0, 2 => -1
                    | 1, 0 => -4
                    | 1, 1 => -4
                    | 1, 2 => 4
                    | 2, 0 => 2
                    | 2, 1 => 2
                    | 2, 2 => -2
                    | 3, 0 => -3
                    | 3, 1 => -3
                    | 3, 2 => 3
                    | 4, 0 => 6
                    | 4, 1 => 6
                    | 4, 2 => -6
                    | 5, 0 => 0
                    | 5, 1 => 0
                    | 5, 2 => 0,
                    fun s =>
                    match s with
                    | 0 => -3
                    | 1 => 3))
                2 *
              E
                (toSpecies.symm
                  (fun s i =>
                    match s, i with
                    | 0, 0 => 1
                    | 0, 1 => 1
                    | 0, 2 => -1
                    | 1, 0 => -4
                    | 1, 1 => -4
                    | 1, 2 => 4
                    | 2, 0 => 2
                    | 2, 1 => 2
                    | 2, 2 => -2
                    | 3, 0 => -3
                    | 3, 1 => -3
                    | 3, 2 => 3
                    | 4, 0 => 6
                    | 4, 1 => 6
                    | 4, 2 => -6
                    | 5, 0 => 0
                    | 5, 1 => 0
                    | 5, 2 => 0,
                    fun s =>
                    match s with
                    | 0 => -3
                    | 1 => 3))
                2 *
            E R.val 2 +
        N
              (toSpecies.symm
                (fun s i =>
                  match s, i with
                  | 0, 0 => 1
                  | 0, 1 => 1
                  | 0, 2 => -1
                  | 1, 0 => -4
                  | 1, 1 => -4
                  | 1, 2 => 4
                  | 2, 0 => 2
                  | 2, 1 => 2
                  | 2, 2 => -2
                  | 3, 0 => -3
                  | 3, 1 => -3
                  | 3, 2 => 3
                  | 4, 0 => 6
                  | 4, 1 => 6
                  | 4, 2 => -6
                  | 5, 0 => 0
                  | 5, 1 => 0
                  | 5, 2 => 0,
                  fun s =>
                  match s with
                  | 0 => -3
                  | 1 => 3))
              2 *
            N
              (toSpecies.symm
                (fun s i =>
                  match s, i with
                  | 0, 0 => 1
                  | 0, 1 => 1
                  | 0, 2 => -1
                  | 1, 0 => -4
                  | 1, 1 => -4
                  | 1, 2 => 4
                  | 2, 0 => 2
                  | 2, 1 => 2
                  | 2, 2 => -2
                  | 3, 0 => -3
                  | 3, 1 => -3
                  | 3, 2 => 3
                  | 4, 0 => 6
                  | 4, 1 => 6
                  | 4, 2 => -6
                  | 5, 0 => 0
                  | 5, 1 => 0
                  | 5, 2 => 0,
                  fun s =>
                  match s with
                  | 0 => -3
                  | 1 => 3))
              2 *
          N R.val 2) +
    (2 *
            Hd
              (toSpecies.symm
                (fun s i =>
                  match s, i with
                  | 0, 0 => 1
                  | 0, 1 => 1
                  | 0, 2 => -1
                  | 1, 0 => -4
                  | 1, 1 => -4
                  | 1, 2 => 4
                  | 2, 0 => 2
                  | 2, 1 => 2
                  | 2, 2 => -2
                  | 3, 0 => -3
                  | 3, 1 => -3
                  | 3, 2 => 3
                  | 4, 0 => 6
                  | 4, 1 => 6
                  | 4, 2 => -6
                  | 5, 0 => 0
                  | 5, 1 => 0
                  | 5, 2 => 0,
                  fun s =>
                  match s with
                  | 0 => -3
                  | 1 => 3)) *
          Hd
            (toSpecies.symm
              (fun s i =>
                match s, i with
                | 0, 0 => 1
                | 0, 1 => 1
                | 0, 2 => -1
                | 1, 0 => -4
                | 1, 1 => -4
                | 1, 2 => 4
                | 2, 0 => 2
                | 2, 1 => 2
                | 2, 2 => -2
                | 3, 0 => -3
                | 3, 1 => -3
                | 3, 2 => 3
                | 4, 0 => 6
                | 4, 1 => 6
                | 4, 2 => -6
                | 5, 0 => 0
                | 5, 1 => 0
                | 5, 2 => 0,
                fun s =>
                match s with
                | 0 => -3
                | 1 => 3)) *
        Hd R.val +
      2 *
            Hu
              (toSpecies.symm
                (fun s i =>
                  match s, i with
                  | 0, 0 => 1
                  | 0, 1 => 1
                  | 0, 2 => -1
                  | 1, 0 => -4
                  | 1, 1 => -4
                  | 1, 2 => 4
                  | 2, 0 => 2
                  | 2, 1 => 2
                  | 2, 2 => -2
                  | 3, 0 => -3
                  | 3, 1 => -3
                  | 3, 2 => 3
                  | 4, 0 => 6
                  | 4, 1 => 6
                  | 4, 2 => -6
                  | 5, 0 => 0
                  | 5, 1 => 0
                  | 5, 2 => 0,
                  fun s =>
                  match s with
                  | 0 => -3
                  | 1 => 3)) *
          Hu
            (toSpecies.symm
              (fun s i =>
                match s, i with
                | 0, 0 => 1
                | 0, 1 => 1
                | 0, 2 => -1
                | 1, 0 => -4
                | 1, 1 => -4
                | 1, 2 => 4
                | 2, 0 => 2
                | 2, 1 => 2
                | 2, 2 => -2
                | 3, 0 => -3
                | 3, 1 => -3
                | 3, 2 => 3
                | 4, 0 => 6
                | 4, 1 => 6
                | 4, 2 => -6
                | 5, 0 => 0
                | 5, 1 => 0
                | 5, 2 => 0,
                fun s =>
                match s with
                | 0 => -3
                | 1 => 3)) *
        Hu R.val) =
  0R:MSSMACC.LinSols⊢ 6 *
                    (Q
                          (toSpecies.symm
                            (fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3))
                          0 *
                        Q
                          (toSpecies.symm
                            (fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3))
                          0 *
                      Q R.val 0) +
                  3 *
                    (U
                          (toSpecies.symm
                            (fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3))
                          0 *
                        U
                          (toSpecies.symm
                            (fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3))
                          0 *
                      U R.val 0) +
                3 *
                  (D
                        (toSpecies.symm
                          (fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3))
                        0 *
                      D
                        (toSpecies.symm
                          (fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3))
                        0 *
                    D R.val 0) +
              2 *
                (L
                      (toSpecies.symm
                        (fun s i =>
                          match s, i with
                          | 0, 0 => 1
                          | 0, 1 => 1
                          | 0, 2 => -1
                          | 1, 0 => -4
                          | 1, 1 => -4
                          | 1, 2 => 4
                          | 2, 0 => 2
                          | 2, 1 => 2
                          | 2, 2 => -2
                          | 3, 0 => -3
                          | 3, 1 => -3
                          | 3, 2 => 3
                          | 4, 0 => 6
                          | 4, 1 => 6
                          | 4, 2 => -6
                          | 5, 0 => 0
                          | 5, 1 => 0
                          | 5, 2 => 0,
                          fun s =>
                          match s with
                          | 0 => -3
                          | 1 => 3))
                      0 *
                    L
                      (toSpecies.symm
                        (fun s i =>
                          match s, i with
                          | 0, 0 => 1
                          | 0, 1 => 1
                          | 0, 2 => -1
                          | 1, 0 => -4
                          | 1, 1 => -4
                          | 1, 2 => 4
                          | 2, 0 => 2
                          | 2, 1 => 2
                          | 2, 2 => -2
                          | 3, 0 => -3
                          | 3, 1 => -3
                          | 3, 2 => 3
                          | 4, 0 => 6
                          | 4, 1 => 6
                          | 4, 2 => -6
                          | 5, 0 => 0
                          | 5, 1 => 0
                          | 5, 2 => 0,
                          fun s =>
                          match s with
                          | 0 => -3
                          | 1 => 3))
                      0 *
                  L R.val 0) +
            E
                  (toSpecies.symm
                    (fun s i =>
                      match s, i with
                      | 0, 0 => 1
                      | 0, 1 => 1
                      | 0, 2 => -1
                      | 1, 0 => -4
                      | 1, 1 => -4
                      | 1, 2 => 4
                      | 2, 0 => 2
                      | 2, 1 => 2
                      | 2, 2 => -2
                      | 3, 0 => -3
                      | 3, 1 => -3
                      | 3, 2 => 3
                      | 4, 0 => 6
                      | 4, 1 => 6
                      | 4, 2 => -6
                      | 5, 0 => 0
                      | 5, 1 => 0
                      | 5, 2 => 0,
                      fun s =>
                      match s with
                      | 0 => -3
                      | 1 => 3))
                  0 *
                E
                  (toSpecies.symm
                    (fun s i =>
                      match s, i with
                      | 0, 0 => 1
                      | 0, 1 => 1
                      | 0, 2 => -1
                      | 1, 0 => -4
                      | 1, 1 => -4
                      | 1, 2 => 4
                      | 2, 0 => 2
                      | 2, 1 => 2
                      | 2, 2 => -2
                      | 3, 0 => -3
                      | 3, 1 => -3
                      | 3, 2 => 3
                      | 4, 0 => 6
                      | 4, 1 => 6
                      | 4, 2 => -6
                      | 5, 0 => 0
                      | 5, 1 => 0
                      | 5, 2 => 0,
                      fun s =>
                      match s with
                      | 0 => -3
                      | 1 => 3))
                  0 *
              E R.val 0 +
          N
                (toSpecies.symm
                  (fun s i =>
                    match s, i with
                    | 0, 0 => 1
                    | 0, 1 => 1
                    | 0, 2 => -1
                    | 1, 0 => -4
                    | 1, 1 => -4
                    | 1, 2 => 4
                    | 2, 0 => 2
                    | 2, 1 => 2
                    | 2, 2 => -2
                    | 3, 0 => -3
                    | 3, 1 => -3
                    | 3, 2 => 3
                    | 4, 0 => 6
                    | 4, 1 => 6
                    | 4, 2 => -6
                    | 5, 0 => 0
                    | 5, 1 => 0
                    | 5, 2 => 0,
                    fun s =>
                    match s with
                    | 0 => -3
                    | 1 => 3))
                0 *
              N
                (toSpecies.symm
                  (fun s i =>
                    match s, i with
                    | 0, 0 => 1
                    | 0, 1 => 1
                    | 0, 2 => -1
                    | 1, 0 => -4
                    | 1, 1 => -4
                    | 1, 2 => 4
                    | 2, 0 => 2
                    | 2, 1 => 2
                    | 2, 2 => -2
                    | 3, 0 => -3
                    | 3, 1 => -3
                    | 3, 2 => 3
                    | 4, 0 => 6
                    | 4, 1 => 6
                    | 4, 2 => -6
                    | 5, 0 => 0
                    | 5, 1 => 0
                    | 5, 2 => 0,
                    fun s =>
                    match s with
                    | 0 => -3
                    | 1 => 3))
                0 *
            N R.val 0 +
        (6 *
                    (Q
                          (toSpecies.symm
                            (fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3))
                          1 *
                        Q
                          (toSpecies.symm
                            (fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3))
                          1 *
                      Q R.val 1) +
                  3 *
                    (U
                          (toSpecies.symm
                            (fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3))
                          1 *
                        U
                          (toSpecies.symm
                            (fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3))
                          1 *
                      U R.val 1) +
                3 *
                  (D
                        (toSpecies.symm
                          (fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3))
                        1 *
                      D
                        (toSpecies.symm
                          (fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3))
                        1 *
                    D R.val 1) +
              2 *
                (L
                      (toSpecies.symm
                        (fun s i =>
                          match s, i with
                          | 0, 0 => 1
                          | 0, 1 => 1
                          | 0, 2 => -1
                          | 1, 0 => -4
                          | 1, 1 => -4
                          | 1, 2 => 4
                          | 2, 0 => 2
                          | 2, 1 => 2
                          | 2, 2 => -2
                          | 3, 0 => -3
                          | 3, 1 => -3
                          | 3, 2 => 3
                          | 4, 0 => 6
                          | 4, 1 => 6
                          | 4, 2 => -6
                          | 5, 0 => 0
                          | 5, 1 => 0
                          | 5, 2 => 0,
                          fun s =>
                          match s with
                          | 0 => -3
                          | 1 => 3))
                      1 *
                    L
                      (toSpecies.symm
                        (fun s i =>
                          match s, i with
                          | 0, 0 => 1
                          | 0, 1 => 1
                          | 0, 2 => -1
                          | 1, 0 => -4
                          | 1, 1 => -4
                          | 1, 2 => 4
                          | 2, 0 => 2
                          | 2, 1 => 2
                          | 2, 2 => -2
                          | 3, 0 => -3
                          | 3, 1 => -3
                          | 3, 2 => 3
                          | 4, 0 => 6
                          | 4, 1 => 6
                          | 4, 2 => -6
                          | 5, 0 => 0
                          | 5, 1 => 0
                          | 5, 2 => 0,
                          fun s =>
                          match s with
                          | 0 => -3
                          | 1 => 3))
                      1 *
                  L R.val 1) +
            E
                  (toSpecies.symm
                    (fun s i =>
                      match s, i with
                      | 0, 0 => 1
                      | 0, 1 => 1
                      | 0, 2 => -1
                      | 1, 0 => -4
                      | 1, 1 => -4
                      | 1, 2 => 4
                      | 2, 0 => 2
                      | 2, 1 => 2
                      | 2, 2 => -2
                      | 3, 0 => -3
                      | 3, 1 => -3
                      | 3, 2 => 3
                      | 4, 0 => 6
                      | 4, 1 => 6
                      | 4, 2 => -6
                      | 5, 0 => 0
                      | 5, 1 => 0
                      | 5, 2 => 0,
                      fun s =>
                      match s with
                      | 0 => -3
                      | 1 => 3))
                  1 *
                E
                  (toSpecies.symm
                    (fun s i =>
                      match s, i with
                      | 0, 0 => 1
                      | 0, 1 => 1
                      | 0, 2 => -1
                      | 1, 0 => -4
                      | 1, 1 => -4
                      | 1, 2 => 4
                      | 2, 0 => 2
                      | 2, 1 => 2
                      | 2, 2 => -2
                      | 3, 0 => -3
                      | 3, 1 => -3
                      | 3, 2 => 3
                      | 4, 0 => 6
                      | 4, 1 => 6
                      | 4, 2 => -6
                      | 5, 0 => 0
                      | 5, 1 => 0
                      | 5, 2 => 0,
                      fun s =>
                      match s with
                      | 0 => -3
                      | 1 => 3))
                  1 *
              E R.val 1 +
          N
                (toSpecies.symm
                  (fun s i =>
                    match s, i with
                    | 0, 0 => 1
                    | 0, 1 => 1
                    | 0, 2 => -1
                    | 1, 0 => -4
                    | 1, 1 => -4
                    | 1, 2 => 4
                    | 2, 0 => 2
                    | 2, 1 => 2
                    | 2, 2 => -2
                    | 3, 0 => -3
                    | 3, 1 => -3
                    | 3, 2 => 3
                    | 4, 0 => 6
                    | 4, 1 => 6
                    | 4, 2 => -6
                    | 5, 0 => 0
                    | 5, 1 => 0
                    | 5, 2 => 0,
                    fun s =>
                    match s with
                    | 0 => -3
                    | 1 => 3))
                1 *
              N
                (toSpecies.symm
                  (fun s i =>
                    match s, i with
                    | 0, 0 => 1
                    | 0, 1 => 1
                    | 0, 2 => -1
                    | 1, 0 => -4
                    | 1, 1 => -4
                    | 1, 2 => 4
                    | 2, 0 => 2
                    | 2, 1 => 2
                    | 2, 2 => -2
                    | 3, 0 => -3
                    | 3, 1 => -3
                    | 3, 2 => 3
                    | 4, 0 => 6
                    | 4, 1 => 6
                    | 4, 2 => -6
                    | 5, 0 => 0
                    | 5, 1 => 0
                    | 5, 2 => 0,
                    fun s =>
                    match s with
                    | 0 => -3
                    | 1 => 3))
                1 *
            N R.val 1) +
      (6 *
                  (Q
                        (toSpecies.symm
                          (fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3))
                        2 *
                      Q
                        (toSpecies.symm
                          (fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3))
                        2 *
                    Q R.val 2) +
                3 *
                  (U
                        (toSpecies.symm
                          (fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3))
                        2 *
                      U
                        (toSpecies.symm
                          (fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3))
                        2 *
                    U R.val 2) +
              3 *
                (D
                      (toSpecies.symm
                        (fun s i =>
                          match s, i with
                          | 0, 0 => 1
                          | 0, 1 => 1
                          | 0, 2 => -1
                          | 1, 0 => -4
                          | 1, 1 => -4
                          | 1, 2 => 4
                          | 2, 0 => 2
                          | 2, 1 => 2
                          | 2, 2 => -2
                          | 3, 0 => -3
                          | 3, 1 => -3
                          | 3, 2 => 3
                          | 4, 0 => 6
                          | 4, 1 => 6
                          | 4, 2 => -6
                          | 5, 0 => 0
                          | 5, 1 => 0
                          | 5, 2 => 0,
                          fun s =>
                          match s with
                          | 0 => -3
                          | 1 => 3))
                      2 *
                    D
                      (toSpecies.symm
                        (fun s i =>
                          match s, i with
                          | 0, 0 => 1
                          | 0, 1 => 1
                          | 0, 2 => -1
                          | 1, 0 => -4
                          | 1, 1 => -4
                          | 1, 2 => 4
                          | 2, 0 => 2
                          | 2, 1 => 2
                          | 2, 2 => -2
                          | 3, 0 => -3
                          | 3, 1 => -3
                          | 3, 2 => 3
                          | 4, 0 => 6
                          | 4, 1 => 6
                          | 4, 2 => -6
                          | 5, 0 => 0
                          | 5, 1 => 0
                          | 5, 2 => 0,
                          fun s =>
                          match s with
                          | 0 => -3
                          | 1 => 3))
                      2 *
                  D R.val 2) +
            2 *
              (L
                    (toSpecies.symm
                      (fun s i =>
                        match s, i with
                        | 0, 0 => 1
                        | 0, 1 => 1
                        | 0, 2 => -1
                        | 1, 0 => -4
                        | 1, 1 => -4
                        | 1, 2 => 4
                        | 2, 0 => 2
                        | 2, 1 => 2
                        | 2, 2 => -2
                        | 3, 0 => -3
                        | 3, 1 => -3
                        | 3, 2 => 3
                        | 4, 0 => 6
                        | 4, 1 => 6
                        | 4, 2 => -6
                        | 5, 0 => 0
                        | 5, 1 => 0
                        | 5, 2 => 0,
                        fun s =>
                        match s with
                        | 0 => -3
                        | 1 => 3))
                    2 *
                  L
                    (toSpecies.symm
                      (fun s i =>
                        match s, i with
                        | 0, 0 => 1
                        | 0, 1 => 1
                        | 0, 2 => -1
                        | 1, 0 => -4
                        | 1, 1 => -4
                        | 1, 2 => 4
                        | 2, 0 => 2
                        | 2, 1 => 2
                        | 2, 2 => -2
                        | 3, 0 => -3
                        | 3, 1 => -3
                        | 3, 2 => 3
                        | 4, 0 => 6
                        | 4, 1 => 6
                        | 4, 2 => -6
                        | 5, 0 => 0
                        | 5, 1 => 0
                        | 5, 2 => 0,
                        fun s =>
                        match s with
                        | 0 => -3
                        | 1 => 3))
                    2 *
                L R.val 2) +
          E
                (toSpecies.symm
                  (fun s i =>
                    match s, i with
                    | 0, 0 => 1
                    | 0, 1 => 1
                    | 0, 2 => -1
                    | 1, 0 => -4
                    | 1, 1 => -4
                    | 1, 2 => 4
                    | 2, 0 => 2
                    | 2, 1 => 2
                    | 2, 2 => -2
                    | 3, 0 => -3
                    | 3, 1 => -3
                    | 3, 2 => 3
                    | 4, 0 => 6
                    | 4, 1 => 6
                    | 4, 2 => -6
                    | 5, 0 => 0
                    | 5, 1 => 0
                    | 5, 2 => 0,
                    fun s =>
                    match s with
                    | 0 => -3
                    | 1 => 3))
                2 *
              E
                (toSpecies.symm
                  (fun s i =>
                    match s, i with
                    | 0, 0 => 1
                    | 0, 1 => 1
                    | 0, 2 => -1
                    | 1, 0 => -4
                    | 1, 1 => -4
                    | 1, 2 => 4
                    | 2, 0 => 2
                    | 2, 1 => 2
                    | 2, 2 => -2
                    | 3, 0 => -3
                    | 3, 1 => -3
                    | 3, 2 => 3
                    | 4, 0 => 6
                    | 4, 1 => 6
                    | 4, 2 => -6
                    | 5, 0 => 0
                    | 5, 1 => 0
                    | 5, 2 => 0,
                    fun s =>
                    match s with
                    | 0 => -3
                    | 1 => 3))
                2 *
            E R.val 2 +
        N
              (toSpecies.symm
                (fun s i =>
                  match s, i with
                  | 0, 0 => 1
                  | 0, 1 => 1
                  | 0, 2 => -1
                  | 1, 0 => -4
                  | 1, 1 => -4
                  | 1, 2 => 4
                  | 2, 0 => 2
                  | 2, 1 => 2
                  | 2, 2 => -2
                  | 3, 0 => -3
                  | 3, 1 => -3
                  | 3, 2 => 3
                  | 4, 0 => 6
                  | 4, 1 => 6
                  | 4, 2 => -6
                  | 5, 0 => 0
                  | 5, 1 => 0
                  | 5, 2 => 0,
                  fun s =>
                  match s with
                  | 0 => -3
                  | 1 => 3))
              2 *
            N
              (toSpecies.symm
                (fun s i =>
                  match s, i with
                  | 0, 0 => 1
                  | 0, 1 => 1
                  | 0, 2 => -1
                  | 1, 0 => -4
                  | 1, 1 => -4
                  | 1, 2 => 4
                  | 2, 0 => 2
                  | 2, 1 => 2
                  | 2, 2 => -2
                  | 3, 0 => -3
                  | 3, 1 => -3
                  | 3, 2 => 3
                  | 4, 0 => 6
                  | 4, 1 => 6
                  | 4, 2 => -6
                  | 5, 0 => 0
                  | 5, 1 => 0
                  | 5, 2 => 0,
                  fun s =>
                  match s with
                  | 0 => -3
                  | 1 => 3))
              2 *
          N R.val 2) +
    (2 *
            Hd
              (toSpecies.symm
                (fun s i =>
                  match s, i with
                  | 0, 0 => 1
                  | 0, 1 => 1
                  | 0, 2 => -1
                  | 1, 0 => -4
                  | 1, 1 => -4
                  | 1, 2 => 4
                  | 2, 0 => 2
                  | 2, 1 => 2
                  | 2, 2 => -2
                  | 3, 0 => -3
                  | 3, 1 => -3
                  | 3, 2 => 3
                  | 4, 0 => 6
                  | 4, 1 => 6
                  | 4, 2 => -6
                  | 5, 0 => 0
                  | 5, 1 => 0
                  | 5, 2 => 0,
                  fun s =>
                  match s with
                  | 0 => -3
                  | 1 => 3)) *
          Hd
            (toSpecies.symm
              (fun s i =>
                match s, i with
                | 0, 0 => 1
                | 0, 1 => 1
                | 0, 2 => -1
                | 1, 0 => -4
                | 1, 1 => -4
                | 1, 2 => 4
                | 2, 0 => 2
                | 2, 1 => 2
                | 2, 2 => -2
                | 3, 0 => -3
                | 3, 1 => -3
                | 3, 2 => 3
                | 4, 0 => 6
                | 4, 1 => 6
                | 4, 2 => -6
                | 5, 0 => 0
                | 5, 1 => 0
                | 5, 2 => 0,
                fun s =>
                match s with
                | 0 => -3
                | 1 => 3)) *
        Hd R.val +
      2 *
            Hu
              (toSpecies.symm
                (fun s i =>
                  match s, i with
                  | 0, 0 => 1
                  | 0, 1 => 1
                  | 0, 2 => -1
                  | 1, 0 => -4
                  | 1, 1 => -4
                  | 1, 2 => 4
                  | 2, 0 => 2
                  | 2, 1 => 2
                  | 2, 2 => -2
                  | 3, 0 => -3
                  | 3, 1 => -3
                  | 3, 2 => 3
                  | 4, 0 => 6
                  | 4, 1 => 6
                  | 4, 2 => -6
                  | 5, 0 => 0
                  | 5, 1 => 0
                  | 5, 2 => 0,
                  fun s =>
                  match s with
                  | 0 => -3
                  | 1 => 3)) *
          Hu
            (toSpecies.symm
              (fun s i =>
                match s, i with
                | 0, 0 => 1
                | 0, 1 => 1
                | 0, 2 => -1
                | 1, 0 => -4
                | 1, 1 => -4
                | 1, 2 => 4
                | 2, 0 => 2
                | 2, 1 => 2
                | 2, 2 => -2
                | 3, 0 => -3
                | 3, 1 => -3
                | 3, 2 => 3
                | 4, 0 => 6
                | 4, 1 => 6
                | 4, 2 => -6
                | 5, 0 => 0
                | 5, 1 => 0
                | 5, 2 => 0,
                fun s =>
                match s with
                | 0 => -3
                | 1 => 3)) *
        Hu R.val) =
  0]R:MSSMACC.LinSols⊢ 6 *
                    (Q
                          (toSpecies.symm
                            (fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3))
                          0 *
                        Q
                          (toSpecies.symm
                            (fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3))
                          0 *
                      Q R.val 0) +
                  3 *
                    (U
                          (toSpecies.symm
                            (fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3))
                          0 *
                        U
                          (toSpecies.symm
                            (fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3))
                          0 *
                      U R.val 0) +
                3 *
                  (D
                        (toSpecies.symm
                          (fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3))
                        0 *
                      D
                        (toSpecies.symm
                          (fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3))
                        0 *
                    D R.val 0) +
              2 *
                (L
                      (toSpecies.symm
                        (fun s i =>
                          match s, i with
                          | 0, 0 => 1
                          | 0, 1 => 1
                          | 0, 2 => -1
                          | 1, 0 => -4
                          | 1, 1 => -4
                          | 1, 2 => 4
                          | 2, 0 => 2
                          | 2, 1 => 2
                          | 2, 2 => -2
                          | 3, 0 => -3
                          | 3, 1 => -3
                          | 3, 2 => 3
                          | 4, 0 => 6
                          | 4, 1 => 6
                          | 4, 2 => -6
                          | 5, 0 => 0
                          | 5, 1 => 0
                          | 5, 2 => 0,
                          fun s =>
                          match s with
                          | 0 => -3
                          | 1 => 3))
                      0 *
                    L
                      (toSpecies.symm
                        (fun s i =>
                          match s, i with
                          | 0, 0 => 1
                          | 0, 1 => 1
                          | 0, 2 => -1
                          | 1, 0 => -4
                          | 1, 1 => -4
                          | 1, 2 => 4
                          | 2, 0 => 2
                          | 2, 1 => 2
                          | 2, 2 => -2
                          | 3, 0 => -3
                          | 3, 1 => -3
                          | 3, 2 => 3
                          | 4, 0 => 6
                          | 4, 1 => 6
                          | 4, 2 => -6
                          | 5, 0 => 0
                          | 5, 1 => 0
                          | 5, 2 => 0,
                          fun s =>
                          match s with
                          | 0 => -3
                          | 1 => 3))
                      0 *
                  L R.val 0) +
            E
                  (toSpecies.symm
                    (fun s i =>
                      match s, i with
                      | 0, 0 => 1
                      | 0, 1 => 1
                      | 0, 2 => -1
                      | 1, 0 => -4
                      | 1, 1 => -4
                      | 1, 2 => 4
                      | 2, 0 => 2
                      | 2, 1 => 2
                      | 2, 2 => -2
                      | 3, 0 => -3
                      | 3, 1 => -3
                      | 3, 2 => 3
                      | 4, 0 => 6
                      | 4, 1 => 6
                      | 4, 2 => -6
                      | 5, 0 => 0
                      | 5, 1 => 0
                      | 5, 2 => 0,
                      fun s =>
                      match s with
                      | 0 => -3
                      | 1 => 3))
                  0 *
                E
                  (toSpecies.symm
                    (fun s i =>
                      match s, i with
                      | 0, 0 => 1
                      | 0, 1 => 1
                      | 0, 2 => -1
                      | 1, 0 => -4
                      | 1, 1 => -4
                      | 1, 2 => 4
                      | 2, 0 => 2
                      | 2, 1 => 2
                      | 2, 2 => -2
                      | 3, 0 => -3
                      | 3, 1 => -3
                      | 3, 2 => 3
                      | 4, 0 => 6
                      | 4, 1 => 6
                      | 4, 2 => -6
                      | 5, 0 => 0
                      | 5, 1 => 0
                      | 5, 2 => 0,
                      fun s =>
                      match s with
                      | 0 => -3
                      | 1 => 3))
                  0 *
              E R.val 0 +
          N
                (toSpecies.symm
                  (fun s i =>
                    match s, i with
                    | 0, 0 => 1
                    | 0, 1 => 1
                    | 0, 2 => -1
                    | 1, 0 => -4
                    | 1, 1 => -4
                    | 1, 2 => 4
                    | 2, 0 => 2
                    | 2, 1 => 2
                    | 2, 2 => -2
                    | 3, 0 => -3
                    | 3, 1 => -3
                    | 3, 2 => 3
                    | 4, 0 => 6
                    | 4, 1 => 6
                    | 4, 2 => -6
                    | 5, 0 => 0
                    | 5, 1 => 0
                    | 5, 2 => 0,
                    fun s =>
                    match s with
                    | 0 => -3
                    | 1 => 3))
                0 *
              N
                (toSpecies.symm
                  (fun s i =>
                    match s, i with
                    | 0, 0 => 1
                    | 0, 1 => 1
                    | 0, 2 => -1
                    | 1, 0 => -4
                    | 1, 1 => -4
                    | 1, 2 => 4
                    | 2, 0 => 2
                    | 2, 1 => 2
                    | 2, 2 => -2
                    | 3, 0 => -3
                    | 3, 1 => -3
                    | 3, 2 => 3
                    | 4, 0 => 6
                    | 4, 1 => 6
                    | 4, 2 => -6
                    | 5, 0 => 0
                    | 5, 1 => 0
                    | 5, 2 => 0,
                    fun s =>
                    match s with
                    | 0 => -3
                    | 1 => 3))
                0 *
            N R.val 0 +
        (6 *
                    (Q
                          (toSpecies.symm
                            (fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3))
                          1 *
                        Q
                          (toSpecies.symm
                            (fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3))
                          1 *
                      Q R.val 1) +
                  3 *
                    (U
                          (toSpecies.symm
                            (fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3))
                          1 *
                        U
                          (toSpecies.symm
                            (fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3))
                          1 *
                      U R.val 1) +
                3 *
                  (D
                        (toSpecies.symm
                          (fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3))
                        1 *
                      D
                        (toSpecies.symm
                          (fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3))
                        1 *
                    D R.val 1) +
              2 *
                (L
                      (toSpecies.symm
                        (fun s i =>
                          match s, i with
                          | 0, 0 => 1
                          | 0, 1 => 1
                          | 0, 2 => -1
                          | 1, 0 => -4
                          | 1, 1 => -4
                          | 1, 2 => 4
                          | 2, 0 => 2
                          | 2, 1 => 2
                          | 2, 2 => -2
                          | 3, 0 => -3
                          | 3, 1 => -3
                          | 3, 2 => 3
                          | 4, 0 => 6
                          | 4, 1 => 6
                          | 4, 2 => -6
                          | 5, 0 => 0
                          | 5, 1 => 0
                          | 5, 2 => 0,
                          fun s =>
                          match s with
                          | 0 => -3
                          | 1 => 3))
                      1 *
                    L
                      (toSpecies.symm
                        (fun s i =>
                          match s, i with
                          | 0, 0 => 1
                          | 0, 1 => 1
                          | 0, 2 => -1
                          | 1, 0 => -4
                          | 1, 1 => -4
                          | 1, 2 => 4
                          | 2, 0 => 2
                          | 2, 1 => 2
                          | 2, 2 => -2
                          | 3, 0 => -3
                          | 3, 1 => -3
                          | 3, 2 => 3
                          | 4, 0 => 6
                          | 4, 1 => 6
                          | 4, 2 => -6
                          | 5, 0 => 0
                          | 5, 1 => 0
                          | 5, 2 => 0,
                          fun s =>
                          match s with
                          | 0 => -3
                          | 1 => 3))
                      1 *
                  L R.val 1) +
            E
                  (toSpecies.symm
                    (fun s i =>
                      match s, i with
                      | 0, 0 => 1
                      | 0, 1 => 1
                      | 0, 2 => -1
                      | 1, 0 => -4
                      | 1, 1 => -4
                      | 1, 2 => 4
                      | 2, 0 => 2
                      | 2, 1 => 2
                      | 2, 2 => -2
                      | 3, 0 => -3
                      | 3, 1 => -3
                      | 3, 2 => 3
                      | 4, 0 => 6
                      | 4, 1 => 6
                      | 4, 2 => -6
                      | 5, 0 => 0
                      | 5, 1 => 0
                      | 5, 2 => 0,
                      fun s =>
                      match s with
                      | 0 => -3
                      | 1 => 3))
                  1 *
                E
                  (toSpecies.symm
                    (fun s i =>
                      match s, i with
                      | 0, 0 => 1
                      | 0, 1 => 1
                      | 0, 2 => -1
                      | 1, 0 => -4
                      | 1, 1 => -4
                      | 1, 2 => 4
                      | 2, 0 => 2
                      | 2, 1 => 2
                      | 2, 2 => -2
                      | 3, 0 => -3
                      | 3, 1 => -3
                      | 3, 2 => 3
                      | 4, 0 => 6
                      | 4, 1 => 6
                      | 4, 2 => -6
                      | 5, 0 => 0
                      | 5, 1 => 0
                      | 5, 2 => 0,
                      fun s =>
                      match s with
                      | 0 => -3
                      | 1 => 3))
                  1 *
              E R.val 1 +
          N
                (toSpecies.symm
                  (fun s i =>
                    match s, i with
                    | 0, 0 => 1
                    | 0, 1 => 1
                    | 0, 2 => -1
                    | 1, 0 => -4
                    | 1, 1 => -4
                    | 1, 2 => 4
                    | 2, 0 => 2
                    | 2, 1 => 2
                    | 2, 2 => -2
                    | 3, 0 => -3
                    | 3, 1 => -3
                    | 3, 2 => 3
                    | 4, 0 => 6
                    | 4, 1 => 6
                    | 4, 2 => -6
                    | 5, 0 => 0
                    | 5, 1 => 0
                    | 5, 2 => 0,
                    fun s =>
                    match s with
                    | 0 => -3
                    | 1 => 3))
                1 *
              N
                (toSpecies.symm
                  (fun s i =>
                    match s, i with
                    | 0, 0 => 1
                    | 0, 1 => 1
                    | 0, 2 => -1
                    | 1, 0 => -4
                    | 1, 1 => -4
                    | 1, 2 => 4
                    | 2, 0 => 2
                    | 2, 1 => 2
                    | 2, 2 => -2
                    | 3, 0 => -3
                    | 3, 1 => -3
                    | 3, 2 => 3
                    | 4, 0 => 6
                    | 4, 1 => 6
                    | 4, 2 => -6
                    | 5, 0 => 0
                    | 5, 1 => 0
                    | 5, 2 => 0,
                    fun s =>
                    match s with
                    | 0 => -3
                    | 1 => 3))
                1 *
            N R.val 1) +
      (6 *
                  (Q
                        (toSpecies.symm
                          (fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3))
                        2 *
                      Q
                        (toSpecies.symm
                          (fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3))
                        2 *
                    Q R.val 2) +
                3 *
                  (U
                        (toSpecies.symm
                          (fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3))
                        2 *
                      U
                        (toSpecies.symm
                          (fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3))
                        2 *
                    U R.val 2) +
              3 *
                (D
                      (toSpecies.symm
                        (fun s i =>
                          match s, i with
                          | 0, 0 => 1
                          | 0, 1 => 1
                          | 0, 2 => -1
                          | 1, 0 => -4
                          | 1, 1 => -4
                          | 1, 2 => 4
                          | 2, 0 => 2
                          | 2, 1 => 2
                          | 2, 2 => -2
                          | 3, 0 => -3
                          | 3, 1 => -3
                          | 3, 2 => 3
                          | 4, 0 => 6
                          | 4, 1 => 6
                          | 4, 2 => -6
                          | 5, 0 => 0
                          | 5, 1 => 0
                          | 5, 2 => 0,
                          fun s =>
                          match s with
                          | 0 => -3
                          | 1 => 3))
                      2 *
                    D
                      (toSpecies.symm
                        (fun s i =>
                          match s, i with
                          | 0, 0 => 1
                          | 0, 1 => 1
                          | 0, 2 => -1
                          | 1, 0 => -4
                          | 1, 1 => -4
                          | 1, 2 => 4
                          | 2, 0 => 2
                          | 2, 1 => 2
                          | 2, 2 => -2
                          | 3, 0 => -3
                          | 3, 1 => -3
                          | 3, 2 => 3
                          | 4, 0 => 6
                          | 4, 1 => 6
                          | 4, 2 => -6
                          | 5, 0 => 0
                          | 5, 1 => 0
                          | 5, 2 => 0,
                          fun s =>
                          match s with
                          | 0 => -3
                          | 1 => 3))
                      2 *
                  D R.val 2) +
            2 *
              (L
                    (toSpecies.symm
                      (fun s i =>
                        match s, i with
                        | 0, 0 => 1
                        | 0, 1 => 1
                        | 0, 2 => -1
                        | 1, 0 => -4
                        | 1, 1 => -4
                        | 1, 2 => 4
                        | 2, 0 => 2
                        | 2, 1 => 2
                        | 2, 2 => -2
                        | 3, 0 => -3
                        | 3, 1 => -3
                        | 3, 2 => 3
                        | 4, 0 => 6
                        | 4, 1 => 6
                        | 4, 2 => -6
                        | 5, 0 => 0
                        | 5, 1 => 0
                        | 5, 2 => 0,
                        fun s =>
                        match s with
                        | 0 => -3
                        | 1 => 3))
                    2 *
                  L
                    (toSpecies.symm
                      (fun s i =>
                        match s, i with
                        | 0, 0 => 1
                        | 0, 1 => 1
                        | 0, 2 => -1
                        | 1, 0 => -4
                        | 1, 1 => -4
                        | 1, 2 => 4
                        | 2, 0 => 2
                        | 2, 1 => 2
                        | 2, 2 => -2
                        | 3, 0 => -3
                        | 3, 1 => -3
                        | 3, 2 => 3
                        | 4, 0 => 6
                        | 4, 1 => 6
                        | 4, 2 => -6
                        | 5, 0 => 0
                        | 5, 1 => 0
                        | 5, 2 => 0,
                        fun s =>
                        match s with
                        | 0 => -3
                        | 1 => 3))
                    2 *
                L R.val 2) +
          E
                (toSpecies.symm
                  (fun s i =>
                    match s, i with
                    | 0, 0 => 1
                    | 0, 1 => 1
                    | 0, 2 => -1
                    | 1, 0 => -4
                    | 1, 1 => -4
                    | 1, 2 => 4
                    | 2, 0 => 2
                    | 2, 1 => 2
                    | 2, 2 => -2
                    | 3, 0 => -3
                    | 3, 1 => -3
                    | 3, 2 => 3
                    | 4, 0 => 6
                    | 4, 1 => 6
                    | 4, 2 => -6
                    | 5, 0 => 0
                    | 5, 1 => 0
                    | 5, 2 => 0,
                    fun s =>
                    match s with
                    | 0 => -3
                    | 1 => 3))
                2 *
              E
                (toSpecies.symm
                  (fun s i =>
                    match s, i with
                    | 0, 0 => 1
                    | 0, 1 => 1
                    | 0, 2 => -1
                    | 1, 0 => -4
                    | 1, 1 => -4
                    | 1, 2 => 4
                    | 2, 0 => 2
                    | 2, 1 => 2
                    | 2, 2 => -2
                    | 3, 0 => -3
                    | 3, 1 => -3
                    | 3, 2 => 3
                    | 4, 0 => 6
                    | 4, 1 => 6
                    | 4, 2 => -6
                    | 5, 0 => 0
                    | 5, 1 => 0
                    | 5, 2 => 0,
                    fun s =>
                    match s with
                    | 0 => -3
                    | 1 => 3))
                2 *
            E R.val 2 +
        N
              (toSpecies.symm
                (fun s i =>
                  match s, i with
                  | 0, 0 => 1
                  | 0, 1 => 1
                  | 0, 2 => -1
                  | 1, 0 => -4
                  | 1, 1 => -4
                  | 1, 2 => 4
                  | 2, 0 => 2
                  | 2, 1 => 2
                  | 2, 2 => -2
                  | 3, 0 => -3
                  | 3, 1 => -3
                  | 3, 2 => 3
                  | 4, 0 => 6
                  | 4, 1 => 6
                  | 4, 2 => -6
                  | 5, 0 => 0
                  | 5, 1 => 0
                  | 5, 2 => 0,
                  fun s =>
                  match s with
                  | 0 => -3
                  | 1 => 3))
              2 *
            N
              (toSpecies.symm
                (fun s i =>
                  match s, i with
                  | 0, 0 => 1
                  | 0, 1 => 1
                  | 0, 2 => -1
                  | 1, 0 => -4
                  | 1, 1 => -4
                  | 1, 2 => 4
                  | 2, 0 => 2
                  | 2, 1 => 2
                  | 2, 2 => -2
                  | 3, 0 => -3
                  | 3, 1 => -3
                  | 3, 2 => 3
                  | 4, 0 => 6
                  | 4, 1 => 6
                  | 4, 2 => -6
                  | 5, 0 => 0
                  | 5, 1 => 0
                  | 5, 2 => 0,
                  fun s =>
                  match s with
                  | 0 => -3
                  | 1 => 3))
              2 *
          N R.val 2) +
    (2 *
            Hd
              (toSpecies.symm
                (fun s i =>
                  match s, i with
                  | 0, 0 => 1
                  | 0, 1 => 1
                  | 0, 2 => -1
                  | 1, 0 => -4
                  | 1, 1 => -4
                  | 1, 2 => 4
                  | 2, 0 => 2
                  | 2, 1 => 2
                  | 2, 2 => -2
                  | 3, 0 => -3
                  | 3, 1 => -3
                  | 3, 2 => 3
                  | 4, 0 => 6
                  | 4, 1 => 6
                  | 4, 2 => -6
                  | 5, 0 => 0
                  | 5, 1 => 0
                  | 5, 2 => 0,
                  fun s =>
                  match s with
                  | 0 => -3
                  | 1 => 3)) *
          Hd
            (toSpecies.symm
              (fun s i =>
                match s, i with
                | 0, 0 => 1
                | 0, 1 => 1
                | 0, 2 => -1
                | 1, 0 => -4
                | 1, 1 => -4
                | 1, 2 => 4
                | 2, 0 => 2
                | 2, 1 => 2
                | 2, 2 => -2
                | 3, 0 => -3
                | 3, 1 => -3
                | 3, 2 => 3
                | 4, 0 => 6
                | 4, 1 => 6
                | 4, 2 => -6
                | 5, 0 => 0
                | 5, 1 => 0
                | 5, 2 => 0,
                fun s =>
                match s with
                | 0 => -3
                | 1 => 3)) *
        Hd R.val +
      2 *
            Hu
              (toSpecies.symm
                (fun s i =>
                  match s, i with
                  | 0, 0 => 1
                  | 0, 1 => 1
                  | 0, 2 => -1
                  | 1, 0 => -4
                  | 1, 1 => -4
                  | 1, 2 => 4
                  | 2, 0 => 2
                  | 2, 1 => 2
                  | 2, 2 => -2
                  | 3, 0 => -3
                  | 3, 1 => -3
                  | 3, 2 => 3
                  | 4, 0 => 6
                  | 4, 1 => 6
                  | 4, 2 => -6
                  | 5, 0 => 0
                  | 5, 1 => 0
                  | 5, 2 => 0,
                  fun s =>
                  match s with
                  | 0 => -3
                  | 1 => 3)) *
          Hu
            (toSpecies.symm
              (fun s i =>
                match s, i with
                | 0, 0 => 1
                | 0, 1 => 1
                | 0, 2 => -1
                | 1, 0 => -4
                | 1, 1 => -4
                | 1, 2 => 4
                | 2, 0 => 2
                | 2, 1 => 2
                | 2, 2 => -2
                | 3, 0 => -3
                | 3, 1 => -3
                | 3, 2 => 3
                | 4, 0 => 6
                | 4, 1 => 6
                | 4, 2 => -6
                | 5, 0 => 0
                | 5, 1 => 0
                | 5, 2 => 0,
                fun s =>
                match s with
                | 0 => -3
                | 1 => 3)) *
        Hu R.val) =
  0
  repeat rw [toSMSpecies_toSpecies_invR:MSSMACC.LinSols⊢ 6 *
                    ((fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3).1
                          0 0 *
                        (fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3).1
                          0 0 *
                      Q R.val 0) +
                  3 *
                    (U
                          (toSpecies.symm
                            (fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3))
                          0 *
                        U
                          (toSpecies.symm
                            (fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3))
                          0 *
                      U R.val 0) +
                3 *
                  (D
                        (toSpecies.symm
                          (fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3))
                        0 *
                      D
                        (toSpecies.symm
                          (fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3))
                        0 *
                    D R.val 0) +
              2 *
                (L
                      (toSpecies.symm
                        (fun s i =>
                          match s, i with
                          | 0, 0 => 1
                          | 0, 1 => 1
                          | 0, 2 => -1
                          | 1, 0 => -4
                          | 1, 1 => -4
                          | 1, 2 => 4
                          | 2, 0 => 2
                          | 2, 1 => 2
                          | 2, 2 => -2
                          | 3, 0 => -3
                          | 3, 1 => -3
                          | 3, 2 => 3
                          | 4, 0 => 6
                          | 4, 1 => 6
                          | 4, 2 => -6
                          | 5, 0 => 0
                          | 5, 1 => 0
                          | 5, 2 => 0,
                          fun s =>
                          match s with
                          | 0 => -3
                          | 1 => 3))
                      0 *
                    L
                      (toSpecies.symm
                        (fun s i =>
                          match s, i with
                          | 0, 0 => 1
                          | 0, 1 => 1
                          | 0, 2 => -1
                          | 1, 0 => -4
                          | 1, 1 => -4
                          | 1, 2 => 4
                          | 2, 0 => 2
                          | 2, 1 => 2
                          | 2, 2 => -2
                          | 3, 0 => -3
                          | 3, 1 => -3
                          | 3, 2 => 3
                          | 4, 0 => 6
                          | 4, 1 => 6
                          | 4, 2 => -6
                          | 5, 0 => 0
                          | 5, 1 => 0
                          | 5, 2 => 0,
                          fun s =>
                          match s with
                          | 0 => -3
                          | 1 => 3))
                      0 *
                  L R.val 0) +
            E
                  (toSpecies.symm
                    (fun s i =>
                      match s, i with
                      | 0, 0 => 1
                      | 0, 1 => 1
                      | 0, 2 => -1
                      | 1, 0 => -4
                      | 1, 1 => -4
                      | 1, 2 => 4
                      | 2, 0 => 2
                      | 2, 1 => 2
                      | 2, 2 => -2
                      | 3, 0 => -3
                      | 3, 1 => -3
                      | 3, 2 => 3
                      | 4, 0 => 6
                      | 4, 1 => 6
                      | 4, 2 => -6
                      | 5, 0 => 0
                      | 5, 1 => 0
                      | 5, 2 => 0,
                      fun s =>
                      match s with
                      | 0 => -3
                      | 1 => 3))
                  0 *
                E
                  (toSpecies.symm
                    (fun s i =>
                      match s, i with
                      | 0, 0 => 1
                      | 0, 1 => 1
                      | 0, 2 => -1
                      | 1, 0 => -4
                      | 1, 1 => -4
                      | 1, 2 => 4
                      | 2, 0 => 2
                      | 2, 1 => 2
                      | 2, 2 => -2
                      | 3, 0 => -3
                      | 3, 1 => -3
                      | 3, 2 => 3
                      | 4, 0 => 6
                      | 4, 1 => 6
                      | 4, 2 => -6
                      | 5, 0 => 0
                      | 5, 1 => 0
                      | 5, 2 => 0,
                      fun s =>
                      match s with
                      | 0 => -3
                      | 1 => 3))
                  0 *
              E R.val 0 +
          N
                (toSpecies.symm
                  (fun s i =>
                    match s, i with
                    | 0, 0 => 1
                    | 0, 1 => 1
                    | 0, 2 => -1
                    | 1, 0 => -4
                    | 1, 1 => -4
                    | 1, 2 => 4
                    | 2, 0 => 2
                    | 2, 1 => 2
                    | 2, 2 => -2
                    | 3, 0 => -3
                    | 3, 1 => -3
                    | 3, 2 => 3
                    | 4, 0 => 6
                    | 4, 1 => 6
                    | 4, 2 => -6
                    | 5, 0 => 0
                    | 5, 1 => 0
                    | 5, 2 => 0,
                    fun s =>
                    match s with
                    | 0 => -3
                    | 1 => 3))
                0 *
              N
                (toSpecies.symm
                  (fun s i =>
                    match s, i with
                    | 0, 0 => 1
                    | 0, 1 => 1
                    | 0, 2 => -1
                    | 1, 0 => -4
                    | 1, 1 => -4
                    | 1, 2 => 4
                    | 2, 0 => 2
                    | 2, 1 => 2
                    | 2, 2 => -2
                    | 3, 0 => -3
                    | 3, 1 => -3
                    | 3, 2 => 3
                    | 4, 0 => 6
                    | 4, 1 => 6
                    | 4, 2 => -6
                    | 5, 0 => 0
                    | 5, 1 => 0
                    | 5, 2 => 0,
                    fun s =>
                    match s with
                    | 0 => -3
                    | 1 => 3))
                0 *
            N R.val 0 +
        (6 *
                    ((fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3).1
                          0 1 *
                        (fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3).1
                          0 1 *
                      Q R.val 1) +
                  3 *
                    (U
                          (toSpecies.symm
                            (fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3))
                          1 *
                        U
                          (toSpecies.symm
                            (fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3))
                          1 *
                      U R.val 1) +
                3 *
                  (D
                        (toSpecies.symm
                          (fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3))
                        1 *
                      D
                        (toSpecies.symm
                          (fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3))
                        1 *
                    D R.val 1) +
              2 *
                (L
                      (toSpecies.symm
                        (fun s i =>
                          match s, i with
                          | 0, 0 => 1
                          | 0, 1 => 1
                          | 0, 2 => -1
                          | 1, 0 => -4
                          | 1, 1 => -4
                          | 1, 2 => 4
                          | 2, 0 => 2
                          | 2, 1 => 2
                          | 2, 2 => -2
                          | 3, 0 => -3
                          | 3, 1 => -3
                          | 3, 2 => 3
                          | 4, 0 => 6
                          | 4, 1 => 6
                          | 4, 2 => -6
                          | 5, 0 => 0
                          | 5, 1 => 0
                          | 5, 2 => 0,
                          fun s =>
                          match s with
                          | 0 => -3
                          | 1 => 3))
                      1 *
                    L
                      (toSpecies.symm
                        (fun s i =>
                          match s, i with
                          | 0, 0 => 1
                          | 0, 1 => 1
                          | 0, 2 => -1
                          | 1, 0 => -4
                          | 1, 1 => -4
                          | 1, 2 => 4
                          | 2, 0 => 2
                          | 2, 1 => 2
                          | 2, 2 => -2
                          | 3, 0 => -3
                          | 3, 1 => -3
                          | 3, 2 => 3
                          | 4, 0 => 6
                          | 4, 1 => 6
                          | 4, 2 => -6
                          | 5, 0 => 0
                          | 5, 1 => 0
                          | 5, 2 => 0,
                          fun s =>
                          match s with
                          | 0 => -3
                          | 1 => 3))
                      1 *
                  L R.val 1) +
            E
                  (toSpecies.symm
                    (fun s i =>
                      match s, i with
                      | 0, 0 => 1
                      | 0, 1 => 1
                      | 0, 2 => -1
                      | 1, 0 => -4
                      | 1, 1 => -4
                      | 1, 2 => 4
                      | 2, 0 => 2
                      | 2, 1 => 2
                      | 2, 2 => -2
                      | 3, 0 => -3
                      | 3, 1 => -3
                      | 3, 2 => 3
                      | 4, 0 => 6
                      | 4, 1 => 6
                      | 4, 2 => -6
                      | 5, 0 => 0
                      | 5, 1 => 0
                      | 5, 2 => 0,
                      fun s =>
                      match s with
                      | 0 => -3
                      | 1 => 3))
                  1 *
                E
                  (toSpecies.symm
                    (fun s i =>
                      match s, i with
                      | 0, 0 => 1
                      | 0, 1 => 1
                      | 0, 2 => -1
                      | 1, 0 => -4
                      | 1, 1 => -4
                      | 1, 2 => 4
                      | 2, 0 => 2
                      | 2, 1 => 2
                      | 2, 2 => -2
                      | 3, 0 => -3
                      | 3, 1 => -3
                      | 3, 2 => 3
                      | 4, 0 => 6
                      | 4, 1 => 6
                      | 4, 2 => -6
                      | 5, 0 => 0
                      | 5, 1 => 0
                      | 5, 2 => 0,
                      fun s =>
                      match s with
                      | 0 => -3
                      | 1 => 3))
                  1 *
              E R.val 1 +
          N
                (toSpecies.symm
                  (fun s i =>
                    match s, i with
                    | 0, 0 => 1
                    | 0, 1 => 1
                    | 0, 2 => -1
                    | 1, 0 => -4
                    | 1, 1 => -4
                    | 1, 2 => 4
                    | 2, 0 => 2
                    | 2, 1 => 2
                    | 2, 2 => -2
                    | 3, 0 => -3
                    | 3, 1 => -3
                    | 3, 2 => 3
                    | 4, 0 => 6
                    | 4, 1 => 6
                    | 4, 2 => -6
                    | 5, 0 => 0
                    | 5, 1 => 0
                    | 5, 2 => 0,
                    fun s =>
                    match s with
                    | 0 => -3
                    | 1 => 3))
                1 *
              N
                (toSpecies.symm
                  (fun s i =>
                    match s, i with
                    | 0, 0 => 1
                    | 0, 1 => 1
                    | 0, 2 => -1
                    | 1, 0 => -4
                    | 1, 1 => -4
                    | 1, 2 => 4
                    | 2, 0 => 2
                    | 2, 1 => 2
                    | 2, 2 => -2
                    | 3, 0 => -3
                    | 3, 1 => -3
                    | 3, 2 => 3
                    | 4, 0 => 6
                    | 4, 1 => 6
                    | 4, 2 => -6
                    | 5, 0 => 0
                    | 5, 1 => 0
                    | 5, 2 => 0,
                    fun s =>
                    match s with
                    | 0 => -3
                    | 1 => 3))
                1 *
            N R.val 1) +
      (6 *
                  ((fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3).1
                        0 2 *
                      (fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3).1
                        0 2 *
                    Q R.val 2) +
                3 *
                  (U
                        (toSpecies.symm
                          (fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3))
                        2 *
                      U
                        (toSpecies.symm
                          (fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3))
                        2 *
                    U R.val 2) +
              3 *
                (D
                      (toSpecies.symm
                        (fun s i =>
                          match s, i with
                          | 0, 0 => 1
                          | 0, 1 => 1
                          | 0, 2 => -1
                          | 1, 0 => -4
                          | 1, 1 => -4
                          | 1, 2 => 4
                          | 2, 0 => 2
                          | 2, 1 => 2
                          | 2, 2 => -2
                          | 3, 0 => -3
                          | 3, 1 => -3
                          | 3, 2 => 3
                          | 4, 0 => 6
                          | 4, 1 => 6
                          | 4, 2 => -6
                          | 5, 0 => 0
                          | 5, 1 => 0
                          | 5, 2 => 0,
                          fun s =>
                          match s with
                          | 0 => -3
                          | 1 => 3))
                      2 *
                    D
                      (toSpecies.symm
                        (fun s i =>
                          match s, i with
                          | 0, 0 => 1
                          | 0, 1 => 1
                          | 0, 2 => -1
                          | 1, 0 => -4
                          | 1, 1 => -4
                          | 1, 2 => 4
                          | 2, 0 => 2
                          | 2, 1 => 2
                          | 2, 2 => -2
                          | 3, 0 => -3
                          | 3, 1 => -3
                          | 3, 2 => 3
                          | 4, 0 => 6
                          | 4, 1 => 6
                          | 4, 2 => -6
                          | 5, 0 => 0
                          | 5, 1 => 0
                          | 5, 2 => 0,
                          fun s =>
                          match s with
                          | 0 => -3
                          | 1 => 3))
                      2 *
                  D R.val 2) +
            2 *
              (L
                    (toSpecies.symm
                      (fun s i =>
                        match s, i with
                        | 0, 0 => 1
                        | 0, 1 => 1
                        | 0, 2 => -1
                        | 1, 0 => -4
                        | 1, 1 => -4
                        | 1, 2 => 4
                        | 2, 0 => 2
                        | 2, 1 => 2
                        | 2, 2 => -2
                        | 3, 0 => -3
                        | 3, 1 => -3
                        | 3, 2 => 3
                        | 4, 0 => 6
                        | 4, 1 => 6
                        | 4, 2 => -6
                        | 5, 0 => 0
                        | 5, 1 => 0
                        | 5, 2 => 0,
                        fun s =>
                        match s with
                        | 0 => -3
                        | 1 => 3))
                    2 *
                  L
                    (toSpecies.symm
                      (fun s i =>
                        match s, i with
                        | 0, 0 => 1
                        | 0, 1 => 1
                        | 0, 2 => -1
                        | 1, 0 => -4
                        | 1, 1 => -4
                        | 1, 2 => 4
                        | 2, 0 => 2
                        | 2, 1 => 2
                        | 2, 2 => -2
                        | 3, 0 => -3
                        | 3, 1 => -3
                        | 3, 2 => 3
                        | 4, 0 => 6
                        | 4, 1 => 6
                        | 4, 2 => -6
                        | 5, 0 => 0
                        | 5, 1 => 0
                        | 5, 2 => 0,
                        fun s =>
                        match s with
                        | 0 => -3
                        | 1 => 3))
                    2 *
                L R.val 2) +
          E
                (toSpecies.symm
                  (fun s i =>
                    match s, i with
                    | 0, 0 => 1
                    | 0, 1 => 1
                    | 0, 2 => -1
                    | 1, 0 => -4
                    | 1, 1 => -4
                    | 1, 2 => 4
                    | 2, 0 => 2
                    | 2, 1 => 2
                    | 2, 2 => -2
                    | 3, 0 => -3
                    | 3, 1 => -3
                    | 3, 2 => 3
                    | 4, 0 => 6
                    | 4, 1 => 6
                    | 4, 2 => -6
                    | 5, 0 => 0
                    | 5, 1 => 0
                    | 5, 2 => 0,
                    fun s =>
                    match s with
                    | 0 => -3
                    | 1 => 3))
                2 *
              E
                (toSpecies.symm
                  (fun s i =>
                    match s, i with
                    | 0, 0 => 1
                    | 0, 1 => 1
                    | 0, 2 => -1
                    | 1, 0 => -4
                    | 1, 1 => -4
                    | 1, 2 => 4
                    | 2, 0 => 2
                    | 2, 1 => 2
                    | 2, 2 => -2
                    | 3, 0 => -3
                    | 3, 1 => -3
                    | 3, 2 => 3
                    | 4, 0 => 6
                    | 4, 1 => 6
                    | 4, 2 => -6
                    | 5, 0 => 0
                    | 5, 1 => 0
                    | 5, 2 => 0,
                    fun s =>
                    match s with
                    | 0 => -3
                    | 1 => 3))
                2 *
            E R.val 2 +
        N
              (toSpecies.symm
                (fun s i =>
                  match s, i with
                  | 0, 0 => 1
                  | 0, 1 => 1
                  | 0, 2 => -1
                  | 1, 0 => -4
                  | 1, 1 => -4
                  | 1, 2 => 4
                  | 2, 0 => 2
                  | 2, 1 => 2
                  | 2, 2 => -2
                  | 3, 0 => -3
                  | 3, 1 => -3
                  | 3, 2 => 3
                  | 4, 0 => 6
                  | 4, 1 => 6
                  | 4, 2 => -6
                  | 5, 0 => 0
                  | 5, 1 => 0
                  | 5, 2 => 0,
                  fun s =>
                  match s with
                  | 0 => -3
                  | 1 => 3))
              2 *
            N
              (toSpecies.symm
                (fun s i =>
                  match s, i with
                  | 0, 0 => 1
                  | 0, 1 => 1
                  | 0, 2 => -1
                  | 1, 0 => -4
                  | 1, 1 => -4
                  | 1, 2 => 4
                  | 2, 0 => 2
                  | 2, 1 => 2
                  | 2, 2 => -2
                  | 3, 0 => -3
                  | 3, 1 => -3
                  | 3, 2 => 3
                  | 4, 0 => 6
                  | 4, 1 => 6
                  | 4, 2 => -6
                  | 5, 0 => 0
                  | 5, 1 => 0
                  | 5, 2 => 0,
                  fun s =>
                  match s with
                  | 0 => -3
                  | 1 => 3))
              2 *
          N R.val 2) +
    (2 *
            Hd
              (toSpecies.symm
                (fun s i =>
                  match s, i with
                  | 0, 0 => 1
                  | 0, 1 => 1
                  | 0, 2 => -1
                  | 1, 0 => -4
                  | 1, 1 => -4
                  | 1, 2 => 4
                  | 2, 0 => 2
                  | 2, 1 => 2
                  | 2, 2 => -2
                  | 3, 0 => -3
                  | 3, 1 => -3
                  | 3, 2 => 3
                  | 4, 0 => 6
                  | 4, 1 => 6
                  | 4, 2 => -6
                  | 5, 0 => 0
                  | 5, 1 => 0
                  | 5, 2 => 0,
                  fun s =>
                  match s with
                  | 0 => -3
                  | 1 => 3)) *
          Hd
            (toSpecies.symm
              (fun s i =>
                match s, i with
                | 0, 0 => 1
                | 0, 1 => 1
                | 0, 2 => -1
                | 1, 0 => -4
                | 1, 1 => -4
                | 1, 2 => 4
                | 2, 0 => 2
                | 2, 1 => 2
                | 2, 2 => -2
                | 3, 0 => -3
                | 3, 1 => -3
                | 3, 2 => 3
                | 4, 0 => 6
                | 4, 1 => 6
                | 4, 2 => -6
                | 5, 0 => 0
                | 5, 1 => 0
                | 5, 2 => 0,
                fun s =>
                match s with
                | 0 => -3
                | 1 => 3)) *
        Hd R.val +
      2 *
            Hu
              (toSpecies.symm
                (fun s i =>
                  match s, i with
                  | 0, 0 => 1
                  | 0, 1 => 1
                  | 0, 2 => -1
                  | 1, 0 => -4
                  | 1, 1 => -4
                  | 1, 2 => 4
                  | 2, 0 => 2
                  | 2, 1 => 2
                  | 2, 2 => -2
                  | 3, 0 => -3
                  | 3, 1 => -3
                  | 3, 2 => 3
                  | 4, 0 => 6
                  | 4, 1 => 6
                  | 4, 2 => -6
                  | 5, 0 => 0
                  | 5, 1 => 0
                  | 5, 2 => 0,
                  fun s =>
                  match s with
                  | 0 => -3
                  | 1 => 3)) *
          Hu
            (toSpecies.symm
              (fun s i =>
                match s, i with
                | 0, 0 => 1
                | 0, 1 => 1
                | 0, 2 => -1
                | 1, 0 => -4
                | 1, 1 => -4
                | 1, 2 => 4
                | 2, 0 => 2
                | 2, 1 => 2
                | 2, 2 => -2
                | 3, 0 => -3
                | 3, 1 => -3
                | 3, 2 => 3
                | 4, 0 => 6
                | 4, 1 => 6
                | 4, 2 => -6
                | 5, 0 => 0
                | 5, 1 => 0
                | 5, 2 => 0,
                fun s =>
                match s with
                | 0 => -3
                | 1 => 3)) *
        Hu R.val) =
  0R:MSSMACC.LinSols⊢ 6 *
                    ((fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3).1
                          0 0 *
                        (fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3).1
                          0 0 *
                      Q R.val 0) +
                  3 *
                    ((fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3).1
                          1 0 *
                        (fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3).1
                          1 0 *
                      U R.val 0) +
                3 *
                  ((fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3).1
                        2 0 *
                      (fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3).1
                        2 0 *
                    D R.val 0) +
              2 *
                ((fun s i =>
                          match s, i with
                          | 0, 0 => 1
                          | 0, 1 => 1
                          | 0, 2 => -1
                          | 1, 0 => -4
                          | 1, 1 => -4
                          | 1, 2 => 4
                          | 2, 0 => 2
                          | 2, 1 => 2
                          | 2, 2 => -2
                          | 3, 0 => -3
                          | 3, 1 => -3
                          | 3, 2 => 3
                          | 4, 0 => 6
                          | 4, 1 => 6
                          | 4, 2 => -6
                          | 5, 0 => 0
                          | 5, 1 => 0
                          | 5, 2 => 0,
                          fun s =>
                          match s with
                          | 0 => -3
                          | 1 => 3).1
                      3 0 *
                    (fun s i =>
                          match s, i with
                          | 0, 0 => 1
                          | 0, 1 => 1
                          | 0, 2 => -1
                          | 1, 0 => -4
                          | 1, 1 => -4
                          | 1, 2 => 4
                          | 2, 0 => 2
                          | 2, 1 => 2
                          | 2, 2 => -2
                          | 3, 0 => -3
                          | 3, 1 => -3
                          | 3, 2 => 3
                          | 4, 0 => 6
                          | 4, 1 => 6
                          | 4, 2 => -6
                          | 5, 0 => 0
                          | 5, 1 => 0
                          | 5, 2 => 0,
                          fun s =>
                          match s with
                          | 0 => -3
                          | 1 => 3).1
                      3 0 *
                  L R.val 0) +
            (fun s i =>
                      match s, i with
                      | 0, 0 => 1
                      | 0, 1 => 1
                      | 0, 2 => -1
                      | 1, 0 => -4
                      | 1, 1 => -4
                      | 1, 2 => 4
                      | 2, 0 => 2
                      | 2, 1 => 2
                      | 2, 2 => -2
                      | 3, 0 => -3
                      | 3, 1 => -3
                      | 3, 2 => 3
                      | 4, 0 => 6
                      | 4, 1 => 6
                      | 4, 2 => -6
                      | 5, 0 => 0
                      | 5, 1 => 0
                      | 5, 2 => 0,
                      fun s =>
                      match s with
                      | 0 => -3
                      | 1 => 3).1
                  4 0 *
                (fun s i =>
                      match s, i with
                      | 0, 0 => 1
                      | 0, 1 => 1
                      | 0, 2 => -1
                      | 1, 0 => -4
                      | 1, 1 => -4
                      | 1, 2 => 4
                      | 2, 0 => 2
                      | 2, 1 => 2
                      | 2, 2 => -2
                      | 3, 0 => -3
                      | 3, 1 => -3
                      | 3, 2 => 3
                      | 4, 0 => 6
                      | 4, 1 => 6
                      | 4, 2 => -6
                      | 5, 0 => 0
                      | 5, 1 => 0
                      | 5, 2 => 0,
                      fun s =>
                      match s with
                      | 0 => -3
                      | 1 => 3).1
                  4 0 *
              E R.val 0 +
          (fun s i =>
                    match s, i with
                    | 0, 0 => 1
                    | 0, 1 => 1
                    | 0, 2 => -1
                    | 1, 0 => -4
                    | 1, 1 => -4
                    | 1, 2 => 4
                    | 2, 0 => 2
                    | 2, 1 => 2
                    | 2, 2 => -2
                    | 3, 0 => -3
                    | 3, 1 => -3
                    | 3, 2 => 3
                    | 4, 0 => 6
                    | 4, 1 => 6
                    | 4, 2 => -6
                    | 5, 0 => 0
                    | 5, 1 => 0
                    | 5, 2 => 0,
                    fun s =>
                    match s with
                    | 0 => -3
                    | 1 => 3).1
                5 0 *
              (fun s i =>
                    match s, i with
                    | 0, 0 => 1
                    | 0, 1 => 1
                    | 0, 2 => -1
                    | 1, 0 => -4
                    | 1, 1 => -4
                    | 1, 2 => 4
                    | 2, 0 => 2
                    | 2, 1 => 2
                    | 2, 2 => -2
                    | 3, 0 => -3
                    | 3, 1 => -3
                    | 3, 2 => 3
                    | 4, 0 => 6
                    | 4, 1 => 6
                    | 4, 2 => -6
                    | 5, 0 => 0
                    | 5, 1 => 0
                    | 5, 2 => 0,
                    fun s =>
                    match s with
                    | 0 => -3
                    | 1 => 3).1
                5 0 *
            N R.val 0 +
        (6 *
                    ((fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3).1
                          0 1 *
                        (fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3).1
                          0 1 *
                      Q R.val 1) +
                  3 *
                    ((fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3).1
                          1 1 *
                        (fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3).1
                          1 1 *
                      U R.val 1) +
                3 *
                  ((fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3).1
                        2 1 *
                      (fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3).1
                        2 1 *
                    D R.val 1) +
              2 *
                ((fun s i =>
                          match s, i with
                          | 0, 0 => 1
                          | 0, 1 => 1
                          | 0, 2 => -1
                          | 1, 0 => -4
                          | 1, 1 => -4
                          | 1, 2 => 4
                          | 2, 0 => 2
                          | 2, 1 => 2
                          | 2, 2 => -2
                          | 3, 0 => -3
                          | 3, 1 => -3
                          | 3, 2 => 3
                          | 4, 0 => 6
                          | 4, 1 => 6
                          | 4, 2 => -6
                          | 5, 0 => 0
                          | 5, 1 => 0
                          | 5, 2 => 0,
                          fun s =>
                          match s with
                          | 0 => -3
                          | 1 => 3).1
                      3 1 *
                    (fun s i =>
                          match s, i with
                          | 0, 0 => 1
                          | 0, 1 => 1
                          | 0, 2 => -1
                          | 1, 0 => -4
                          | 1, 1 => -4
                          | 1, 2 => 4
                          | 2, 0 => 2
                          | 2, 1 => 2
                          | 2, 2 => -2
                          | 3, 0 => -3
                          | 3, 1 => -3
                          | 3, 2 => 3
                          | 4, 0 => 6
                          | 4, 1 => 6
                          | 4, 2 => -6
                          | 5, 0 => 0
                          | 5, 1 => 0
                          | 5, 2 => 0,
                          fun s =>
                          match s with
                          | 0 => -3
                          | 1 => 3).1
                      3 1 *
                  L R.val 1) +
            (fun s i =>
                      match s, i with
                      | 0, 0 => 1
                      | 0, 1 => 1
                      | 0, 2 => -1
                      | 1, 0 => -4
                      | 1, 1 => -4
                      | 1, 2 => 4
                      | 2, 0 => 2
                      | 2, 1 => 2
                      | 2, 2 => -2
                      | 3, 0 => -3
                      | 3, 1 => -3
                      | 3, 2 => 3
                      | 4, 0 => 6
                      | 4, 1 => 6
                      | 4, 2 => -6
                      | 5, 0 => 0
                      | 5, 1 => 0
                      | 5, 2 => 0,
                      fun s =>
                      match s with
                      | 0 => -3
                      | 1 => 3).1
                  4 1 *
                (fun s i =>
                      match s, i with
                      | 0, 0 => 1
                      | 0, 1 => 1
                      | 0, 2 => -1
                      | 1, 0 => -4
                      | 1, 1 => -4
                      | 1, 2 => 4
                      | 2, 0 => 2
                      | 2, 1 => 2
                      | 2, 2 => -2
                      | 3, 0 => -3
                      | 3, 1 => -3
                      | 3, 2 => 3
                      | 4, 0 => 6
                      | 4, 1 => 6
                      | 4, 2 => -6
                      | 5, 0 => 0
                      | 5, 1 => 0
                      | 5, 2 => 0,
                      fun s =>
                      match s with
                      | 0 => -3
                      | 1 => 3).1
                  4 1 *
              E R.val 1 +
          (fun s i =>
                    match s, i with
                    | 0, 0 => 1
                    | 0, 1 => 1
                    | 0, 2 => -1
                    | 1, 0 => -4
                    | 1, 1 => -4
                    | 1, 2 => 4
                    | 2, 0 => 2
                    | 2, 1 => 2
                    | 2, 2 => -2
                    | 3, 0 => -3
                    | 3, 1 => -3
                    | 3, 2 => 3
                    | 4, 0 => 6
                    | 4, 1 => 6
                    | 4, 2 => -6
                    | 5, 0 => 0
                    | 5, 1 => 0
                    | 5, 2 => 0,
                    fun s =>
                    match s with
                    | 0 => -3
                    | 1 => 3).1
                5 1 *
              (fun s i =>
                    match s, i with
                    | 0, 0 => 1
                    | 0, 1 => 1
                    | 0, 2 => -1
                    | 1, 0 => -4
                    | 1, 1 => -4
                    | 1, 2 => 4
                    | 2, 0 => 2
                    | 2, 1 => 2
                    | 2, 2 => -2
                    | 3, 0 => -3
                    | 3, 1 => -3
                    | 3, 2 => 3
                    | 4, 0 => 6
                    | 4, 1 => 6
                    | 4, 2 => -6
                    | 5, 0 => 0
                    | 5, 1 => 0
                    | 5, 2 => 0,
                    fun s =>
                    match s with
                    | 0 => -3
                    | 1 => 3).1
                5 1 *
            N R.val 1) +
      (6 *
                  ((fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3).1
                        0 2 *
                      (fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3).1
                        0 2 *
                    Q R.val 2) +
                3 *
                  ((fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3).1
                        1 2 *
                      (fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3).1
                        1 2 *
                    U R.val 2) +
              3 *
                ((fun s i =>
                          match s, i with
                          | 0, 0 => 1
                          | 0, 1 => 1
                          | 0, 2 => -1
                          | 1, 0 => -4
                          | 1, 1 => -4
                          | 1, 2 => 4
                          | 2, 0 => 2
                          | 2, 1 => 2
                          | 2, 2 => -2
                          | 3, 0 => -3
                          | 3, 1 => -3
                          | 3, 2 => 3
                          | 4, 0 => 6
                          | 4, 1 => 6
                          | 4, 2 => -6
                          | 5, 0 => 0
                          | 5, 1 => 0
                          | 5, 2 => 0,
                          fun s =>
                          match s with
                          | 0 => -3
                          | 1 => 3).1
                      2 2 *
                    (fun s i =>
                          match s, i with
                          | 0, 0 => 1
                          | 0, 1 => 1
                          | 0, 2 => -1
                          | 1, 0 => -4
                          | 1, 1 => -4
                          | 1, 2 => 4
                          | 2, 0 => 2
                          | 2, 1 => 2
                          | 2, 2 => -2
                          | 3, 0 => -3
                          | 3, 1 => -3
                          | 3, 2 => 3
                          | 4, 0 => 6
                          | 4, 1 => 6
                          | 4, 2 => -6
                          | 5, 0 => 0
                          | 5, 1 => 0
                          | 5, 2 => 0,
                          fun s =>
                          match s with
                          | 0 => -3
                          | 1 => 3).1
                      2 2 *
                  D R.val 2) +
            2 *
              ((fun s i =>
                        match s, i with
                        | 0, 0 => 1
                        | 0, 1 => 1
                        | 0, 2 => -1
                        | 1, 0 => -4
                        | 1, 1 => -4
                        | 1, 2 => 4
                        | 2, 0 => 2
                        | 2, 1 => 2
                        | 2, 2 => -2
                        | 3, 0 => -3
                        | 3, 1 => -3
                        | 3, 2 => 3
                        | 4, 0 => 6
                        | 4, 1 => 6
                        | 4, 2 => -6
                        | 5, 0 => 0
                        | 5, 1 => 0
                        | 5, 2 => 0,
                        fun s =>
                        match s with
                        | 0 => -3
                        | 1 => 3).1
                    3 2 *
                  (fun s i =>
                        match s, i with
                        | 0, 0 => 1
                        | 0, 1 => 1
                        | 0, 2 => -1
                        | 1, 0 => -4
                        | 1, 1 => -4
                        | 1, 2 => 4
                        | 2, 0 => 2
                        | 2, 1 => 2
                        | 2, 2 => -2
                        | 3, 0 => -3
                        | 3, 1 => -3
                        | 3, 2 => 3
                        | 4, 0 => 6
                        | 4, 1 => 6
                        | 4, 2 => -6
                        | 5, 0 => 0
                        | 5, 1 => 0
                        | 5, 2 => 0,
                        fun s =>
                        match s with
                        | 0 => -3
                        | 1 => 3).1
                    3 2 *
                L R.val 2) +
          (fun s i =>
                    match s, i with
                    | 0, 0 => 1
                    | 0, 1 => 1
                    | 0, 2 => -1
                    | 1, 0 => -4
                    | 1, 1 => -4
                    | 1, 2 => 4
                    | 2, 0 => 2
                    | 2, 1 => 2
                    | 2, 2 => -2
                    | 3, 0 => -3
                    | 3, 1 => -3
                    | 3, 2 => 3
                    | 4, 0 => 6
                    | 4, 1 => 6
                    | 4, 2 => -6
                    | 5, 0 => 0
                    | 5, 1 => 0
                    | 5, 2 => 0,
                    fun s =>
                    match s with
                    | 0 => -3
                    | 1 => 3).1
                4 2 *
              (fun s i =>
                    match s, i with
                    | 0, 0 => 1
                    | 0, 1 => 1
                    | 0, 2 => -1
                    | 1, 0 => -4
                    | 1, 1 => -4
                    | 1, 2 => 4
                    | 2, 0 => 2
                    | 2, 1 => 2
                    | 2, 2 => -2
                    | 3, 0 => -3
                    | 3, 1 => -3
                    | 3, 2 => 3
                    | 4, 0 => 6
                    | 4, 1 => 6
                    | 4, 2 => -6
                    | 5, 0 => 0
                    | 5, 1 => 0
                    | 5, 2 => 0,
                    fun s =>
                    match s with
                    | 0 => -3
                    | 1 => 3).1
                4 2 *
            E R.val 2 +
        (fun s i =>
                  match s, i with
                  | 0, 0 => 1
                  | 0, 1 => 1
                  | 0, 2 => -1
                  | 1, 0 => -4
                  | 1, 1 => -4
                  | 1, 2 => 4
                  | 2, 0 => 2
                  | 2, 1 => 2
                  | 2, 2 => -2
                  | 3, 0 => -3
                  | 3, 1 => -3
                  | 3, 2 => 3
                  | 4, 0 => 6
                  | 4, 1 => 6
                  | 4, 2 => -6
                  | 5, 0 => 0
                  | 5, 1 => 0
                  | 5, 2 => 0,
                  fun s =>
                  match s with
                  | 0 => -3
                  | 1 => 3).1
              5 2 *
            (fun s i =>
                  match s, i with
                  | 0, 0 => 1
                  | 0, 1 => 1
                  | 0, 2 => -1
                  | 1, 0 => -4
                  | 1, 1 => -4
                  | 1, 2 => 4
                  | 2, 0 => 2
                  | 2, 1 => 2
                  | 2, 2 => -2
                  | 3, 0 => -3
                  | 3, 1 => -3
                  | 3, 2 => 3
                  | 4, 0 => 6
                  | 4, 1 => 6
                  | 4, 2 => -6
                  | 5, 0 => 0
                  | 5, 1 => 0
                  | 5, 2 => 0,
                  fun s =>
                  match s with
                  | 0 => -3
                  | 1 => 3).1
              5 2 *
          N R.val 2) +
    (2 *
            Hd
              (toSpecies.symm
                (fun s i =>
                  match s, i with
                  | 0, 0 => 1
                  | 0, 1 => 1
                  | 0, 2 => -1
                  | 1, 0 => -4
                  | 1, 1 => -4
                  | 1, 2 => 4
                  | 2, 0 => 2
                  | 2, 1 => 2
                  | 2, 2 => -2
                  | 3, 0 => -3
                  | 3, 1 => -3
                  | 3, 2 => 3
                  | 4, 0 => 6
                  | 4, 1 => 6
                  | 4, 2 => -6
                  | 5, 0 => 0
                  | 5, 1 => 0
                  | 5, 2 => 0,
                  fun s =>
                  match s with
                  | 0 => -3
                  | 1 => 3)) *
          Hd
            (toSpecies.symm
              (fun s i =>
                match s, i with
                | 0, 0 => 1
                | 0, 1 => 1
                | 0, 2 => -1
                | 1, 0 => -4
                | 1, 1 => -4
                | 1, 2 => 4
                | 2, 0 => 2
                | 2, 1 => 2
                | 2, 2 => -2
                | 3, 0 => -3
                | 3, 1 => -3
                | 3, 2 => 3
                | 4, 0 => 6
                | 4, 1 => 6
                | 4, 2 => -6
                | 5, 0 => 0
                | 5, 1 => 0
                | 5, 2 => 0,
                fun s =>
                match s with
                | 0 => -3
                | 1 => 3)) *
        Hd R.val +
      2 *
            Hu
              (toSpecies.symm
                (fun s i =>
                  match s, i with
                  | 0, 0 => 1
                  | 0, 1 => 1
                  | 0, 2 => -1
                  | 1, 0 => -4
                  | 1, 1 => -4
                  | 1, 2 => 4
                  | 2, 0 => 2
                  | 2, 1 => 2
                  | 2, 2 => -2
                  | 3, 0 => -3
                  | 3, 1 => -3
                  | 3, 2 => 3
                  | 4, 0 => 6
                  | 4, 1 => 6
                  | 4, 2 => -6
                  | 5, 0 => 0
                  | 5, 1 => 0
                  | 5, 2 => 0,
                  fun s =>
                  match s with
                  | 0 => -3
                  | 1 => 3)) *
          Hu
            (toSpecies.symm
              (fun s i =>
                match s, i with
                | 0, 0 => 1
                | 0, 1 => 1
                | 0, 2 => -1
                | 1, 0 => -4
                | 1, 1 => -4
                | 1, 2 => 4
                | 2, 0 => 2
                | 2, 1 => 2
                | 2, 2 => -2
                | 3, 0 => -3
                | 3, 1 => -3
                | 3, 2 => 3
                | 4, 0 => 6
                | 4, 1 => 6
                | 4, 2 => -6
                | 5, 0 => 0
                | 5, 1 => 0
                | 5, 2 => 0,
                fun s =>
                match s with
                | 0 => -3
                | 1 => 3)) *
        Hu R.val) =
  0]R:MSSMACC.LinSols⊢ 6 *
                    ((fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3).1
                          0 0 *
                        (fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3).1
                          0 0 *
                      Q R.val 0) +
                  3 *
                    ((fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3).1
                          1 0 *
                        (fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3).1
                          1 0 *
                      U R.val 0) +
                3 *
                  ((fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3).1
                        2 0 *
                      (fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3).1
                        2 0 *
                    D R.val 0) +
              2 *
                ((fun s i =>
                          match s, i with
                          | 0, 0 => 1
                          | 0, 1 => 1
                          | 0, 2 => -1
                          | 1, 0 => -4
                          | 1, 1 => -4
                          | 1, 2 => 4
                          | 2, 0 => 2
                          | 2, 1 => 2
                          | 2, 2 => -2
                          | 3, 0 => -3
                          | 3, 1 => -3
                          | 3, 2 => 3
                          | 4, 0 => 6
                          | 4, 1 => 6
                          | 4, 2 => -6
                          | 5, 0 => 0
                          | 5, 1 => 0
                          | 5, 2 => 0,
                          fun s =>
                          match s with
                          | 0 => -3
                          | 1 => 3).1
                      3 0 *
                    (fun s i =>
                          match s, i with
                          | 0, 0 => 1
                          | 0, 1 => 1
                          | 0, 2 => -1
                          | 1, 0 => -4
                          | 1, 1 => -4
                          | 1, 2 => 4
                          | 2, 0 => 2
                          | 2, 1 => 2
                          | 2, 2 => -2
                          | 3, 0 => -3
                          | 3, 1 => -3
                          | 3, 2 => 3
                          | 4, 0 => 6
                          | 4, 1 => 6
                          | 4, 2 => -6
                          | 5, 0 => 0
                          | 5, 1 => 0
                          | 5, 2 => 0,
                          fun s =>
                          match s with
                          | 0 => -3
                          | 1 => 3).1
                      3 0 *
                  L R.val 0) +
            (fun s i =>
                      match s, i with
                      | 0, 0 => 1
                      | 0, 1 => 1
                      | 0, 2 => -1
                      | 1, 0 => -4
                      | 1, 1 => -4
                      | 1, 2 => 4
                      | 2, 0 => 2
                      | 2, 1 => 2
                      | 2, 2 => -2
                      | 3, 0 => -3
                      | 3, 1 => -3
                      | 3, 2 => 3
                      | 4, 0 => 6
                      | 4, 1 => 6
                      | 4, 2 => -6
                      | 5, 0 => 0
                      | 5, 1 => 0
                      | 5, 2 => 0,
                      fun s =>
                      match s with
                      | 0 => -3
                      | 1 => 3).1
                  4 0 *
                (fun s i =>
                      match s, i with
                      | 0, 0 => 1
                      | 0, 1 => 1
                      | 0, 2 => -1
                      | 1, 0 => -4
                      | 1, 1 => -4
                      | 1, 2 => 4
                      | 2, 0 => 2
                      | 2, 1 => 2
                      | 2, 2 => -2
                      | 3, 0 => -3
                      | 3, 1 => -3
                      | 3, 2 => 3
                      | 4, 0 => 6
                      | 4, 1 => 6
                      | 4, 2 => -6
                      | 5, 0 => 0
                      | 5, 1 => 0
                      | 5, 2 => 0,
                      fun s =>
                      match s with
                      | 0 => -3
                      | 1 => 3).1
                  4 0 *
              E R.val 0 +
          N
                (toSpecies.symm
                  (fun s i =>
                    match s, i with
                    | 0, 0 => 1
                    | 0, 1 => 1
                    | 0, 2 => -1
                    | 1, 0 => -4
                    | 1, 1 => -4
                    | 1, 2 => 4
                    | 2, 0 => 2
                    | 2, 1 => 2
                    | 2, 2 => -2
                    | 3, 0 => -3
                    | 3, 1 => -3
                    | 3, 2 => 3
                    | 4, 0 => 6
                    | 4, 1 => 6
                    | 4, 2 => -6
                    | 5, 0 => 0
                    | 5, 1 => 0
                    | 5, 2 => 0,
                    fun s =>
                    match s with
                    | 0 => -3
                    | 1 => 3))
                0 *
              N
                (toSpecies.symm
                  (fun s i =>
                    match s, i with
                    | 0, 0 => 1
                    | 0, 1 => 1
                    | 0, 2 => -1
                    | 1, 0 => -4
                    | 1, 1 => -4
                    | 1, 2 => 4
                    | 2, 0 => 2
                    | 2, 1 => 2
                    | 2, 2 => -2
                    | 3, 0 => -3
                    | 3, 1 => -3
                    | 3, 2 => 3
                    | 4, 0 => 6
                    | 4, 1 => 6
                    | 4, 2 => -6
                    | 5, 0 => 0
                    | 5, 1 => 0
                    | 5, 2 => 0,
                    fun s =>
                    match s with
                    | 0 => -3
                    | 1 => 3))
                0 *
            N R.val 0 +
        (6 *
                    ((fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3).1
                          0 1 *
                        (fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3).1
                          0 1 *
                      Q R.val 1) +
                  3 *
                    ((fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3).1
                          1 1 *
                        (fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3).1
                          1 1 *
                      U R.val 1) +
                3 *
                  ((fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3).1
                        2 1 *
                      (fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3).1
                        2 1 *
                    D R.val 1) +
              2 *
                ((fun s i =>
                          match s, i with
                          | 0, 0 => 1
                          | 0, 1 => 1
                          | 0, 2 => -1
                          | 1, 0 => -4
                          | 1, 1 => -4
                          | 1, 2 => 4
                          | 2, 0 => 2
                          | 2, 1 => 2
                          | 2, 2 => -2
                          | 3, 0 => -3
                          | 3, 1 => -3
                          | 3, 2 => 3
                          | 4, 0 => 6
                          | 4, 1 => 6
                          | 4, 2 => -6
                          | 5, 0 => 0
                          | 5, 1 => 0
                          | 5, 2 => 0,
                          fun s =>
                          match s with
                          | 0 => -3
                          | 1 => 3).1
                      3 1 *
                    (fun s i =>
                          match s, i with
                          | 0, 0 => 1
                          | 0, 1 => 1
                          | 0, 2 => -1
                          | 1, 0 => -4
                          | 1, 1 => -4
                          | 1, 2 => 4
                          | 2, 0 => 2
                          | 2, 1 => 2
                          | 2, 2 => -2
                          | 3, 0 => -3
                          | 3, 1 => -3
                          | 3, 2 => 3
                          | 4, 0 => 6
                          | 4, 1 => 6
                          | 4, 2 => -6
                          | 5, 0 => 0
                          | 5, 1 => 0
                          | 5, 2 => 0,
                          fun s =>
                          match s with
                          | 0 => -3
                          | 1 => 3).1
                      3 1 *
                  L R.val 1) +
            (fun s i =>
                      match s, i with
                      | 0, 0 => 1
                      | 0, 1 => 1
                      | 0, 2 => -1
                      | 1, 0 => -4
                      | 1, 1 => -4
                      | 1, 2 => 4
                      | 2, 0 => 2
                      | 2, 1 => 2
                      | 2, 2 => -2
                      | 3, 0 => -3
                      | 3, 1 => -3
                      | 3, 2 => 3
                      | 4, 0 => 6
                      | 4, 1 => 6
                      | 4, 2 => -6
                      | 5, 0 => 0
                      | 5, 1 => 0
                      | 5, 2 => 0,
                      fun s =>
                      match s with
                      | 0 => -3
                      | 1 => 3).1
                  4 1 *
                (fun s i =>
                      match s, i with
                      | 0, 0 => 1
                      | 0, 1 => 1
                      | 0, 2 => -1
                      | 1, 0 => -4
                      | 1, 1 => -4
                      | 1, 2 => 4
                      | 2, 0 => 2
                      | 2, 1 => 2
                      | 2, 2 => -2
                      | 3, 0 => -3
                      | 3, 1 => -3
                      | 3, 2 => 3
                      | 4, 0 => 6
                      | 4, 1 => 6
                      | 4, 2 => -6
                      | 5, 0 => 0
                      | 5, 1 => 0
                      | 5, 2 => 0,
                      fun s =>
                      match s with
                      | 0 => -3
                      | 1 => 3).1
                  4 1 *
              E R.val 1 +
          N
                (toSpecies.symm
                  (fun s i =>
                    match s, i with
                    | 0, 0 => 1
                    | 0, 1 => 1
                    | 0, 2 => -1
                    | 1, 0 => -4
                    | 1, 1 => -4
                    | 1, 2 => 4
                    | 2, 0 => 2
                    | 2, 1 => 2
                    | 2, 2 => -2
                    | 3, 0 => -3
                    | 3, 1 => -3
                    | 3, 2 => 3
                    | 4, 0 => 6
                    | 4, 1 => 6
                    | 4, 2 => -6
                    | 5, 0 => 0
                    | 5, 1 => 0
                    | 5, 2 => 0,
                    fun s =>
                    match s with
                    | 0 => -3
                    | 1 => 3))
                1 *
              N
                (toSpecies.symm
                  (fun s i =>
                    match s, i with
                    | 0, 0 => 1
                    | 0, 1 => 1
                    | 0, 2 => -1
                    | 1, 0 => -4
                    | 1, 1 => -4
                    | 1, 2 => 4
                    | 2, 0 => 2
                    | 2, 1 => 2
                    | 2, 2 => -2
                    | 3, 0 => -3
                    | 3, 1 => -3
                    | 3, 2 => 3
                    | 4, 0 => 6
                    | 4, 1 => 6
                    | 4, 2 => -6
                    | 5, 0 => 0
                    | 5, 1 => 0
                    | 5, 2 => 0,
                    fun s =>
                    match s with
                    | 0 => -3
                    | 1 => 3))
                1 *
            N R.val 1) +
      (6 *
                  ((fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3).1
                        0 2 *
                      (fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3).1
                        0 2 *
                    Q R.val 2) +
                3 *
                  ((fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3).1
                        1 2 *
                      (fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3).1
                        1 2 *
                    U R.val 2) +
              3 *
                ((fun s i =>
                          match s, i with
                          | 0, 0 => 1
                          | 0, 1 => 1
                          | 0, 2 => -1
                          | 1, 0 => -4
                          | 1, 1 => -4
                          | 1, 2 => 4
                          | 2, 0 => 2
                          | 2, 1 => 2
                          | 2, 2 => -2
                          | 3, 0 => -3
                          | 3, 1 => -3
                          | 3, 2 => 3
                          | 4, 0 => 6
                          | 4, 1 => 6
                          | 4, 2 => -6
                          | 5, 0 => 0
                          | 5, 1 => 0
                          | 5, 2 => 0,
                          fun s =>
                          match s with
                          | 0 => -3
                          | 1 => 3).1
                      2 2 *
                    (fun s i =>
                          match s, i with
                          | 0, 0 => 1
                          | 0, 1 => 1
                          | 0, 2 => -1
                          | 1, 0 => -4
                          | 1, 1 => -4
                          | 1, 2 => 4
                          | 2, 0 => 2
                          | 2, 1 => 2
                          | 2, 2 => -2
                          | 3, 0 => -3
                          | 3, 1 => -3
                          | 3, 2 => 3
                          | 4, 0 => 6
                          | 4, 1 => 6
                          | 4, 2 => -6
                          | 5, 0 => 0
                          | 5, 1 => 0
                          | 5, 2 => 0,
                          fun s =>
                          match s with
                          | 0 => -3
                          | 1 => 3).1
                      2 2 *
                  D R.val 2) +
            2 *
              ((fun s i =>
                        match s, i with
                        | 0, 0 => 1
                        | 0, 1 => 1
                        | 0, 2 => -1
                        | 1, 0 => -4
                        | 1, 1 => -4
                        | 1, 2 => 4
                        | 2, 0 => 2
                        | 2, 1 => 2
                        | 2, 2 => -2
                        | 3, 0 => -3
                        | 3, 1 => -3
                        | 3, 2 => 3
                        | 4, 0 => 6
                        | 4, 1 => 6
                        | 4, 2 => -6
                        | 5, 0 => 0
                        | 5, 1 => 0
                        | 5, 2 => 0,
                        fun s =>
                        match s with
                        | 0 => -3
                        | 1 => 3).1
                    3 2 *
                  (fun s i =>
                        match s, i with
                        | 0, 0 => 1
                        | 0, 1 => 1
                        | 0, 2 => -1
                        | 1, 0 => -4
                        | 1, 1 => -4
                        | 1, 2 => 4
                        | 2, 0 => 2
                        | 2, 1 => 2
                        | 2, 2 => -2
                        | 3, 0 => -3
                        | 3, 1 => -3
                        | 3, 2 => 3
                        | 4, 0 => 6
                        | 4, 1 => 6
                        | 4, 2 => -6
                        | 5, 0 => 0
                        | 5, 1 => 0
                        | 5, 2 => 0,
                        fun s =>
                        match s with
                        | 0 => -3
                        | 1 => 3).1
                    3 2 *
                L R.val 2) +
          (fun s i =>
                    match s, i with
                    | 0, 0 => 1
                    | 0, 1 => 1
                    | 0, 2 => -1
                    | 1, 0 => -4
                    | 1, 1 => -4
                    | 1, 2 => 4
                    | 2, 0 => 2
                    | 2, 1 => 2
                    | 2, 2 => -2
                    | 3, 0 => -3
                    | 3, 1 => -3
                    | 3, 2 => 3
                    | 4, 0 => 6
                    | 4, 1 => 6
                    | 4, 2 => -6
                    | 5, 0 => 0
                    | 5, 1 => 0
                    | 5, 2 => 0,
                    fun s =>
                    match s with
                    | 0 => -3
                    | 1 => 3).1
                4 2 *
              (fun s i =>
                    match s, i with
                    | 0, 0 => 1
                    | 0, 1 => 1
                    | 0, 2 => -1
                    | 1, 0 => -4
                    | 1, 1 => -4
                    | 1, 2 => 4
                    | 2, 0 => 2
                    | 2, 1 => 2
                    | 2, 2 => -2
                    | 3, 0 => -3
                    | 3, 1 => -3
                    | 3, 2 => 3
                    | 4, 0 => 6
                    | 4, 1 => 6
                    | 4, 2 => -6
                    | 5, 0 => 0
                    | 5, 1 => 0
                    | 5, 2 => 0,
                    fun s =>
                    match s with
                    | 0 => -3
                    | 1 => 3).1
                4 2 *
            E R.val 2 +
        N
              (toSpecies.symm
                (fun s i =>
                  match s, i with
                  | 0, 0 => 1
                  | 0, 1 => 1
                  | 0, 2 => -1
                  | 1, 0 => -4
                  | 1, 1 => -4
                  | 1, 2 => 4
                  | 2, 0 => 2
                  | 2, 1 => 2
                  | 2, 2 => -2
                  | 3, 0 => -3
                  | 3, 1 => -3
                  | 3, 2 => 3
                  | 4, 0 => 6
                  | 4, 1 => 6
                  | 4, 2 => -6
                  | 5, 0 => 0
                  | 5, 1 => 0
                  | 5, 2 => 0,
                  fun s =>
                  match s with
                  | 0 => -3
                  | 1 => 3))
              2 *
            N
              (toSpecies.symm
                (fun s i =>
                  match s, i with
                  | 0, 0 => 1
                  | 0, 1 => 1
                  | 0, 2 => -1
                  | 1, 0 => -4
                  | 1, 1 => -4
                  | 1, 2 => 4
                  | 2, 0 => 2
                  | 2, 1 => 2
                  | 2, 2 => -2
                  | 3, 0 => -3
                  | 3, 1 => -3
                  | 3, 2 => 3
                  | 4, 0 => 6
                  | 4, 1 => 6
                  | 4, 2 => -6
                  | 5, 0 => 0
                  | 5, 1 => 0
                  | 5, 2 => 0,
                  fun s =>
                  match s with
                  | 0 => -3
                  | 1 => 3))
              2 *
          N R.val 2) +
    (2 *
            Hd
              (toSpecies.symm
                (fun s i =>
                  match s, i with
                  | 0, 0 => 1
                  | 0, 1 => 1
                  | 0, 2 => -1
                  | 1, 0 => -4
                  | 1, 1 => -4
                  | 1, 2 => 4
                  | 2, 0 => 2
                  | 2, 1 => 2
                  | 2, 2 => -2
                  | 3, 0 => -3
                  | 3, 1 => -3
                  | 3, 2 => 3
                  | 4, 0 => 6
                  | 4, 1 => 6
                  | 4, 2 => -6
                  | 5, 0 => 0
                  | 5, 1 => 0
                  | 5, 2 => 0,
                  fun s =>
                  match s with
                  | 0 => -3
                  | 1 => 3)) *
          Hd
            (toSpecies.symm
              (fun s i =>
                match s, i with
                | 0, 0 => 1
                | 0, 1 => 1
                | 0, 2 => -1
                | 1, 0 => -4
                | 1, 1 => -4
                | 1, 2 => 4
                | 2, 0 => 2
                | 2, 1 => 2
                | 2, 2 => -2
                | 3, 0 => -3
                | 3, 1 => -3
                | 3, 2 => 3
                | 4, 0 => 6
                | 4, 1 => 6
                | 4, 2 => -6
                | 5, 0 => 0
                | 5, 1 => 0
                | 5, 2 => 0,
                fun s =>
                match s with
                | 0 => -3
                | 1 => 3)) *
        Hd R.val +
      2 *
            Hu
              (toSpecies.symm
                (fun s i =>
                  match s, i with
                  | 0, 0 => 1
                  | 0, 1 => 1
                  | 0, 2 => -1
                  | 1, 0 => -4
                  | 1, 1 => -4
                  | 1, 2 => 4
                  | 2, 0 => 2
                  | 2, 1 => 2
                  | 2, 2 => -2
                  | 3, 0 => -3
                  | 3, 1 => -3
                  | 3, 2 => 3
                  | 4, 0 => 6
                  | 4, 1 => 6
                  | 4, 2 => -6
                  | 5, 0 => 0
                  | 5, 1 => 0
                  | 5, 2 => 0,
                  fun s =>
                  match s with
                  | 0 => -3
                  | 1 => 3)) *
          Hu
            (toSpecies.symm
              (fun s i =>
                match s, i with
                | 0, 0 => 1
                | 0, 1 => 1
                | 0, 2 => -1
                | 1, 0 => -4
                | 1, 1 => -4
                | 1, 2 => 4
                | 2, 0 => 2
                | 2, 1 => 2
                | 2, 2 => -2
                | 3, 0 => -3
                | 3, 1 => -3
                | 3, 2 => 3
                | 4, 0 => 6
                | 4, 1 => 6
                | 4, 2 => -6
                | 5, 0 => 0
                | 5, 1 => 0
                | 5, 2 => 0,
                fun s =>
                match s with
                | 0 => -3
                | 1 => 3)) *
        Hu R.val) =
  0R:MSSMACC.LinSols⊢ 6 *
                    ((fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3).1
                          0 0 *
                        (fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3).1
                          0 0 *
                      Q R.val 0) +
                  3 *
                    ((fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3).1
                          1 0 *
                        (fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3).1
                          1 0 *
                      U R.val 0) +
                3 *
                  ((fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3).1
                        2 0 *
                      (fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3).1
                        2 0 *
                    D R.val 0) +
              2 *
                ((fun s i =>
                          match s, i with
                          | 0, 0 => 1
                          | 0, 1 => 1
                          | 0, 2 => -1
                          | 1, 0 => -4
                          | 1, 1 => -4
                          | 1, 2 => 4
                          | 2, 0 => 2
                          | 2, 1 => 2
                          | 2, 2 => -2
                          | 3, 0 => -3
                          | 3, 1 => -3
                          | 3, 2 => 3
                          | 4, 0 => 6
                          | 4, 1 => 6
                          | 4, 2 => -6
                          | 5, 0 => 0
                          | 5, 1 => 0
                          | 5, 2 => 0,
                          fun s =>
                          match s with
                          | 0 => -3
                          | 1 => 3).1
                      3 0 *
                    (fun s i =>
                          match s, i with
                          | 0, 0 => 1
                          | 0, 1 => 1
                          | 0, 2 => -1
                          | 1, 0 => -4
                          | 1, 1 => -4
                          | 1, 2 => 4
                          | 2, 0 => 2
                          | 2, 1 => 2
                          | 2, 2 => -2
                          | 3, 0 => -3
                          | 3, 1 => -3
                          | 3, 2 => 3
                          | 4, 0 => 6
                          | 4, 1 => 6
                          | 4, 2 => -6
                          | 5, 0 => 0
                          | 5, 1 => 0
                          | 5, 2 => 0,
                          fun s =>
                          match s with
                          | 0 => -3
                          | 1 => 3).1
                      3 0 *
                  L R.val 0) +
            (fun s i =>
                      match s, i with
                      | 0, 0 => 1
                      | 0, 1 => 1
                      | 0, 2 => -1
                      | 1, 0 => -4
                      | 1, 1 => -4
                      | 1, 2 => 4
                      | 2, 0 => 2
                      | 2, 1 => 2
                      | 2, 2 => -2
                      | 3, 0 => -3
                      | 3, 1 => -3
                      | 3, 2 => 3
                      | 4, 0 => 6
                      | 4, 1 => 6
                      | 4, 2 => -6
                      | 5, 0 => 0
                      | 5, 1 => 0
                      | 5, 2 => 0,
                      fun s =>
                      match s with
                      | 0 => -3
                      | 1 => 3).1
                  4 0 *
                (fun s i =>
                      match s, i with
                      | 0, 0 => 1
                      | 0, 1 => 1
                      | 0, 2 => -1
                      | 1, 0 => -4
                      | 1, 1 => -4
                      | 1, 2 => 4
                      | 2, 0 => 2
                      | 2, 1 => 2
                      | 2, 2 => -2
                      | 3, 0 => -3
                      | 3, 1 => -3
                      | 3, 2 => 3
                      | 4, 0 => 6
                      | 4, 1 => 6
                      | 4, 2 => -6
                      | 5, 0 => 0
                      | 5, 1 => 0
                      | 5, 2 => 0,
                      fun s =>
                      match s with
                      | 0 => -3
                      | 1 => 3).1
                  4 0 *
              E R.val 0 +
          (fun s i =>
                    match s, i with
                    | 0, 0 => 1
                    | 0, 1 => 1
                    | 0, 2 => -1
                    | 1, 0 => -4
                    | 1, 1 => -4
                    | 1, 2 => 4
                    | 2, 0 => 2
                    | 2, 1 => 2
                    | 2, 2 => -2
                    | 3, 0 => -3
                    | 3, 1 => -3
                    | 3, 2 => 3
                    | 4, 0 => 6
                    | 4, 1 => 6
                    | 4, 2 => -6
                    | 5, 0 => 0
                    | 5, 1 => 0
                    | 5, 2 => 0,
                    fun s =>
                    match s with
                    | 0 => -3
                    | 1 => 3).1
                5 0 *
              (fun s i =>
                    match s, i with
                    | 0, 0 => 1
                    | 0, 1 => 1
                    | 0, 2 => -1
                    | 1, 0 => -4
                    | 1, 1 => -4
                    | 1, 2 => 4
                    | 2, 0 => 2
                    | 2, 1 => 2
                    | 2, 2 => -2
                    | 3, 0 => -3
                    | 3, 1 => -3
                    | 3, 2 => 3
                    | 4, 0 => 6
                    | 4, 1 => 6
                    | 4, 2 => -6
                    | 5, 0 => 0
                    | 5, 1 => 0
                    | 5, 2 => 0,
                    fun s =>
                    match s with
                    | 0 => -3
                    | 1 => 3).1
                5 0 *
            N R.val 0 +
        (6 *
                    ((fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3).1
                          0 1 *
                        (fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3).1
                          0 1 *
                      Q R.val 1) +
                  3 *
                    ((fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3).1
                          1 1 *
                        (fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3).1
                          1 1 *
                      U R.val 1) +
                3 *
                  ((fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3).1
                        2 1 *
                      (fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3).1
                        2 1 *
                    D R.val 1) +
              2 *
                ((fun s i =>
                          match s, i with
                          | 0, 0 => 1
                          | 0, 1 => 1
                          | 0, 2 => -1
                          | 1, 0 => -4
                          | 1, 1 => -4
                          | 1, 2 => 4
                          | 2, 0 => 2
                          | 2, 1 => 2
                          | 2, 2 => -2
                          | 3, 0 => -3
                          | 3, 1 => -3
                          | 3, 2 => 3
                          | 4, 0 => 6
                          | 4, 1 => 6
                          | 4, 2 => -6
                          | 5, 0 => 0
                          | 5, 1 => 0
                          | 5, 2 => 0,
                          fun s =>
                          match s with
                          | 0 => -3
                          | 1 => 3).1
                      3 1 *
                    (fun s i =>
                          match s, i with
                          | 0, 0 => 1
                          | 0, 1 => 1
                          | 0, 2 => -1
                          | 1, 0 => -4
                          | 1, 1 => -4
                          | 1, 2 => 4
                          | 2, 0 => 2
                          | 2, 1 => 2
                          | 2, 2 => -2
                          | 3, 0 => -3
                          | 3, 1 => -3
                          | 3, 2 => 3
                          | 4, 0 => 6
                          | 4, 1 => 6
                          | 4, 2 => -6
                          | 5, 0 => 0
                          | 5, 1 => 0
                          | 5, 2 => 0,
                          fun s =>
                          match s with
                          | 0 => -3
                          | 1 => 3).1
                      3 1 *
                  L R.val 1) +
            (fun s i =>
                      match s, i with
                      | 0, 0 => 1
                      | 0, 1 => 1
                      | 0, 2 => -1
                      | 1, 0 => -4
                      | 1, 1 => -4
                      | 1, 2 => 4
                      | 2, 0 => 2
                      | 2, 1 => 2
                      | 2, 2 => -2
                      | 3, 0 => -3
                      | 3, 1 => -3
                      | 3, 2 => 3
                      | 4, 0 => 6
                      | 4, 1 => 6
                      | 4, 2 => -6
                      | 5, 0 => 0
                      | 5, 1 => 0
                      | 5, 2 => 0,
                      fun s =>
                      match s with
                      | 0 => -3
                      | 1 => 3).1
                  4 1 *
                (fun s i =>
                      match s, i with
                      | 0, 0 => 1
                      | 0, 1 => 1
                      | 0, 2 => -1
                      | 1, 0 => -4
                      | 1, 1 => -4
                      | 1, 2 => 4
                      | 2, 0 => 2
                      | 2, 1 => 2
                      | 2, 2 => -2
                      | 3, 0 => -3
                      | 3, 1 => -3
                      | 3, 2 => 3
                      | 4, 0 => 6
                      | 4, 1 => 6
                      | 4, 2 => -6
                      | 5, 0 => 0
                      | 5, 1 => 0
                      | 5, 2 => 0,
                      fun s =>
                      match s with
                      | 0 => -3
                      | 1 => 3).1
                  4 1 *
              E R.val 1 +
          (fun s i =>
                    match s, i with
                    | 0, 0 => 1
                    | 0, 1 => 1
                    | 0, 2 => -1
                    | 1, 0 => -4
                    | 1, 1 => -4
                    | 1, 2 => 4
                    | 2, 0 => 2
                    | 2, 1 => 2
                    | 2, 2 => -2
                    | 3, 0 => -3
                    | 3, 1 => -3
                    | 3, 2 => 3
                    | 4, 0 => 6
                    | 4, 1 => 6
                    | 4, 2 => -6
                    | 5, 0 => 0
                    | 5, 1 => 0
                    | 5, 2 => 0,
                    fun s =>
                    match s with
                    | 0 => -3
                    | 1 => 3).1
                5 1 *
              (fun s i =>
                    match s, i with
                    | 0, 0 => 1
                    | 0, 1 => 1
                    | 0, 2 => -1
                    | 1, 0 => -4
                    | 1, 1 => -4
                    | 1, 2 => 4
                    | 2, 0 => 2
                    | 2, 1 => 2
                    | 2, 2 => -2
                    | 3, 0 => -3
                    | 3, 1 => -3
                    | 3, 2 => 3
                    | 4, 0 => 6
                    | 4, 1 => 6
                    | 4, 2 => -6
                    | 5, 0 => 0
                    | 5, 1 => 0
                    | 5, 2 => 0,
                    fun s =>
                    match s with
                    | 0 => -3
                    | 1 => 3).1
                5 1 *
            N R.val 1) +
      (6 *
                  ((fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3).1
                        0 2 *
                      (fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3).1
                        0 2 *
                    Q R.val 2) +
                3 *
                  ((fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3).1
                        1 2 *
                      (fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3).1
                        1 2 *
                    U R.val 2) +
              3 *
                ((fun s i =>
                          match s, i with
                          | 0, 0 => 1
                          | 0, 1 => 1
                          | 0, 2 => -1
                          | 1, 0 => -4
                          | 1, 1 => -4
                          | 1, 2 => 4
                          | 2, 0 => 2
                          | 2, 1 => 2
                          | 2, 2 => -2
                          | 3, 0 => -3
                          | 3, 1 => -3
                          | 3, 2 => 3
                          | 4, 0 => 6
                          | 4, 1 => 6
                          | 4, 2 => -6
                          | 5, 0 => 0
                          | 5, 1 => 0
                          | 5, 2 => 0,
                          fun s =>
                          match s with
                          | 0 => -3
                          | 1 => 3).1
                      2 2 *
                    (fun s i =>
                          match s, i with
                          | 0, 0 => 1
                          | 0, 1 => 1
                          | 0, 2 => -1
                          | 1, 0 => -4
                          | 1, 1 => -4
                          | 1, 2 => 4
                          | 2, 0 => 2
                          | 2, 1 => 2
                          | 2, 2 => -2
                          | 3, 0 => -3
                          | 3, 1 => -3
                          | 3, 2 => 3
                          | 4, 0 => 6
                          | 4, 1 => 6
                          | 4, 2 => -6
                          | 5, 0 => 0
                          | 5, 1 => 0
                          | 5, 2 => 0,
                          fun s =>
                          match s with
                          | 0 => -3
                          | 1 => 3).1
                      2 2 *
                  D R.val 2) +
            2 *
              ((fun s i =>
                        match s, i with
                        | 0, 0 => 1
                        | 0, 1 => 1
                        | 0, 2 => -1
                        | 1, 0 => -4
                        | 1, 1 => -4
                        | 1, 2 => 4
                        | 2, 0 => 2
                        | 2, 1 => 2
                        | 2, 2 => -2
                        | 3, 0 => -3
                        | 3, 1 => -3
                        | 3, 2 => 3
                        | 4, 0 => 6
                        | 4, 1 => 6
                        | 4, 2 => -6
                        | 5, 0 => 0
                        | 5, 1 => 0
                        | 5, 2 => 0,
                        fun s =>
                        match s with
                        | 0 => -3
                        | 1 => 3).1
                    3 2 *
                  (fun s i =>
                        match s, i with
                        | 0, 0 => 1
                        | 0, 1 => 1
                        | 0, 2 => -1
                        | 1, 0 => -4
                        | 1, 1 => -4
                        | 1, 2 => 4
                        | 2, 0 => 2
                        | 2, 1 => 2
                        | 2, 2 => -2
                        | 3, 0 => -3
                        | 3, 1 => -3
                        | 3, 2 => 3
                        | 4, 0 => 6
                        | 4, 1 => 6
                        | 4, 2 => -6
                        | 5, 0 => 0
                        | 5, 1 => 0
                        | 5, 2 => 0,
                        fun s =>
                        match s with
                        | 0 => -3
                        | 1 => 3).1
                    3 2 *
                L R.val 2) +
          (fun s i =>
                    match s, i with
                    | 0, 0 => 1
                    | 0, 1 => 1
                    | 0, 2 => -1
                    | 1, 0 => -4
                    | 1, 1 => -4
                    | 1, 2 => 4
                    | 2, 0 => 2
                    | 2, 1 => 2
                    | 2, 2 => -2
                    | 3, 0 => -3
                    | 3, 1 => -3
                    | 3, 2 => 3
                    | 4, 0 => 6
                    | 4, 1 => 6
                    | 4, 2 => -6
                    | 5, 0 => 0
                    | 5, 1 => 0
                    | 5, 2 => 0,
                    fun s =>
                    match s with
                    | 0 => -3
                    | 1 => 3).1
                4 2 *
              (fun s i =>
                    match s, i with
                    | 0, 0 => 1
                    | 0, 1 => 1
                    | 0, 2 => -1
                    | 1, 0 => -4
                    | 1, 1 => -4
                    | 1, 2 => 4
                    | 2, 0 => 2
                    | 2, 1 => 2
                    | 2, 2 => -2
                    | 3, 0 => -3
                    | 3, 1 => -3
                    | 3, 2 => 3
                    | 4, 0 => 6
                    | 4, 1 => 6
                    | 4, 2 => -6
                    | 5, 0 => 0
                    | 5, 1 => 0
                    | 5, 2 => 0,
                    fun s =>
                    match s with
                    | 0 => -3
                    | 1 => 3).1
                4 2 *
            E R.val 2 +
        (fun s i =>
                  match s, i with
                  | 0, 0 => 1
                  | 0, 1 => 1
                  | 0, 2 => -1
                  | 1, 0 => -4
                  | 1, 1 => -4
                  | 1, 2 => 4
                  | 2, 0 => 2
                  | 2, 1 => 2
                  | 2, 2 => -2
                  | 3, 0 => -3
                  | 3, 1 => -3
                  | 3, 2 => 3
                  | 4, 0 => 6
                  | 4, 1 => 6
                  | 4, 2 => -6
                  | 5, 0 => 0
                  | 5, 1 => 0
                  | 5, 2 => 0,
                  fun s =>
                  match s with
                  | 0 => -3
                  | 1 => 3).1
              5 2 *
            (fun s i =>
                  match s, i with
                  | 0, 0 => 1
                  | 0, 1 => 1
                  | 0, 2 => -1
                  | 1, 0 => -4
                  | 1, 1 => -4
                  | 1, 2 => 4
                  | 2, 0 => 2
                  | 2, 1 => 2
                  | 2, 2 => -2
                  | 3, 0 => -3
                  | 3, 1 => -3
                  | 3, 2 => 3
                  | 4, 0 => 6
                  | 4, 1 => 6
                  | 4, 2 => -6
                  | 5, 0 => 0
                  | 5, 1 => 0
                  | 5, 2 => 0,
                  fun s =>
                  match s with
                  | 0 => -3
                  | 1 => 3).1
              5 2 *
          N R.val 2) +
    (2 *
            Hd
              (toSpecies.symm
                (fun s i =>
                  match s, i with
                  | 0, 0 => 1
                  | 0, 1 => 1
                  | 0, 2 => -1
                  | 1, 0 => -4
                  | 1, 1 => -4
                  | 1, 2 => 4
                  | 2, 0 => 2
                  | 2, 1 => 2
                  | 2, 2 => -2
                  | 3, 0 => -3
                  | 3, 1 => -3
                  | 3, 2 => 3
                  | 4, 0 => 6
                  | 4, 1 => 6
                  | 4, 2 => -6
                  | 5, 0 => 0
                  | 5, 1 => 0
                  | 5, 2 => 0,
                  fun s =>
                  match s with
                  | 0 => -3
                  | 1 => 3)) *
          Hd
            (toSpecies.symm
              (fun s i =>
                match s, i with
                | 0, 0 => 1
                | 0, 1 => 1
                | 0, 2 => -1
                | 1, 0 => -4
                | 1, 1 => -4
                | 1, 2 => 4
                | 2, 0 => 2
                | 2, 1 => 2
                | 2, 2 => -2
                | 3, 0 => -3
                | 3, 1 => -3
                | 3, 2 => 3
                | 4, 0 => 6
                | 4, 1 => 6
                | 4, 2 => -6
                | 5, 0 => 0
                | 5, 1 => 0
                | 5, 2 => 0,
                fun s =>
                match s with
                | 0 => -3
                | 1 => 3)) *
        Hd R.val +
      2 *
            Hu
              (toSpecies.symm
                (fun s i =>
                  match s, i with
                  | 0, 0 => 1
                  | 0, 1 => 1
                  | 0, 2 => -1
                  | 1, 0 => -4
                  | 1, 1 => -4
                  | 1, 2 => 4
                  | 2, 0 => 2
                  | 2, 1 => 2
                  | 2, 2 => -2
                  | 3, 0 => -3
                  | 3, 1 => -3
                  | 3, 2 => 3
                  | 4, 0 => 6
                  | 4, 1 => 6
                  | 4, 2 => -6
                  | 5, 0 => 0
                  | 5, 1 => 0
                  | 5, 2 => 0,
                  fun s =>
                  match s with
                  | 0 => -3
                  | 1 => 3)) *
          Hu
            (toSpecies.symm
              (fun s i =>
                match s, i with
                | 0, 0 => 1
                | 0, 1 => 1
                | 0, 2 => -1
                | 1, 0 => -4
                | 1, 1 => -4
                | 1, 2 => 4
                | 2, 0 => 2
                | 2, 1 => 2
                | 2, 2 => -2
                | 3, 0 => -3
                | 3, 1 => -3
                | 3, 2 => 3
                | 4, 0 => 6
                | 4, 1 => 6
                | 4, 2 => -6
                | 5, 0 => 0
                | 5, 1 => 0
                | 5, 2 => 0,
                fun s =>
                match s with
                | 0 => -3
                | 1 => 3)) *
        Hu R.val) =
  0R:MSSMACC.LinSols⊢ 6 *
                    ((fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3).1
                          0 0 *
                        (fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3).1
                          0 0 *
                      Q R.val 0) +
                  3 *
                    ((fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3).1
                          1 0 *
                        (fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3).1
                          1 0 *
                      U R.val 0) +
                3 *
                  ((fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3).1
                        2 0 *
                      (fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3).1
                        2 0 *
                    D R.val 0) +
              2 *
                ((fun s i =>
                          match s, i with
                          | 0, 0 => 1
                          | 0, 1 => 1
                          | 0, 2 => -1
                          | 1, 0 => -4
                          | 1, 1 => -4
                          | 1, 2 => 4
                          | 2, 0 => 2
                          | 2, 1 => 2
                          | 2, 2 => -2
                          | 3, 0 => -3
                          | 3, 1 => -3
                          | 3, 2 => 3
                          | 4, 0 => 6
                          | 4, 1 => 6
                          | 4, 2 => -6
                          | 5, 0 => 0
                          | 5, 1 => 0
                          | 5, 2 => 0,
                          fun s =>
                          match s with
                          | 0 => -3
                          | 1 => 3).1
                      3 0 *
                    (fun s i =>
                          match s, i with
                          | 0, 0 => 1
                          | 0, 1 => 1
                          | 0, 2 => -1
                          | 1, 0 => -4
                          | 1, 1 => -4
                          | 1, 2 => 4
                          | 2, 0 => 2
                          | 2, 1 => 2
                          | 2, 2 => -2
                          | 3, 0 => -3
                          | 3, 1 => -3
                          | 3, 2 => 3
                          | 4, 0 => 6
                          | 4, 1 => 6
                          | 4, 2 => -6
                          | 5, 0 => 0
                          | 5, 1 => 0
                          | 5, 2 => 0,
                          fun s =>
                          match s with
                          | 0 => -3
                          | 1 => 3).1
                      3 0 *
                  L R.val 0) +
            (fun s i =>
                      match s, i with
                      | 0, 0 => 1
                      | 0, 1 => 1
                      | 0, 2 => -1
                      | 1, 0 => -4
                      | 1, 1 => -4
                      | 1, 2 => 4
                      | 2, 0 => 2
                      | 2, 1 => 2
                      | 2, 2 => -2
                      | 3, 0 => -3
                      | 3, 1 => -3
                      | 3, 2 => 3
                      | 4, 0 => 6
                      | 4, 1 => 6
                      | 4, 2 => -6
                      | 5, 0 => 0
                      | 5, 1 => 0
                      | 5, 2 => 0,
                      fun s =>
                      match s with
                      | 0 => -3
                      | 1 => 3).1
                  4 0 *
                (fun s i =>
                      match s, i with
                      | 0, 0 => 1
                      | 0, 1 => 1
                      | 0, 2 => -1
                      | 1, 0 => -4
                      | 1, 1 => -4
                      | 1, 2 => 4
                      | 2, 0 => 2
                      | 2, 1 => 2
                      | 2, 2 => -2
                      | 3, 0 => -3
                      | 3, 1 => -3
                      | 3, 2 => 3
                      | 4, 0 => 6
                      | 4, 1 => 6
                      | 4, 2 => -6
                      | 5, 0 => 0
                      | 5, 1 => 0
                      | 5, 2 => 0,
                      fun s =>
                      match s with
                      | 0 => -3
                      | 1 => 3).1
                  4 0 *
              E R.val 0 +
          (fun s i =>
                    match s, i with
                    | 0, 0 => 1
                    | 0, 1 => 1
                    | 0, 2 => -1
                    | 1, 0 => -4
                    | 1, 1 => -4
                    | 1, 2 => 4
                    | 2, 0 => 2
                    | 2, 1 => 2
                    | 2, 2 => -2
                    | 3, 0 => -3
                    | 3, 1 => -3
                    | 3, 2 => 3
                    | 4, 0 => 6
                    | 4, 1 => 6
                    | 4, 2 => -6
                    | 5, 0 => 0
                    | 5, 1 => 0
                    | 5, 2 => 0,
                    fun s =>
                    match s with
                    | 0 => -3
                    | 1 => 3).1
                5 0 *
              (fun s i =>
                    match s, i with
                    | 0, 0 => 1
                    | 0, 1 => 1
                    | 0, 2 => -1
                    | 1, 0 => -4
                    | 1, 1 => -4
                    | 1, 2 => 4
                    | 2, 0 => 2
                    | 2, 1 => 2
                    | 2, 2 => -2
                    | 3, 0 => -3
                    | 3, 1 => -3
                    | 3, 2 => 3
                    | 4, 0 => 6
                    | 4, 1 => 6
                    | 4, 2 => -6
                    | 5, 0 => 0
                    | 5, 1 => 0
                    | 5, 2 => 0,
                    fun s =>
                    match s with
                    | 0 => -3
                    | 1 => 3).1
                5 0 *
            N R.val 0 +
        (6 *
                    ((fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3).1
                          0 1 *
                        (fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3).1
                          0 1 *
                      Q R.val 1) +
                  3 *
                    ((fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3).1
                          1 1 *
                        (fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3).1
                          1 1 *
                      U R.val 1) +
                3 *
                  ((fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3).1
                        2 1 *
                      (fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3).1
                        2 1 *
                    D R.val 1) +
              2 *
                ((fun s i =>
                          match s, i with
                          | 0, 0 => 1
                          | 0, 1 => 1
                          | 0, 2 => -1
                          | 1, 0 => -4
                          | 1, 1 => -4
                          | 1, 2 => 4
                          | 2, 0 => 2
                          | 2, 1 => 2
                          | 2, 2 => -2
                          | 3, 0 => -3
                          | 3, 1 => -3
                          | 3, 2 => 3
                          | 4, 0 => 6
                          | 4, 1 => 6
                          | 4, 2 => -6
                          | 5, 0 => 0
                          | 5, 1 => 0
                          | 5, 2 => 0,
                          fun s =>
                          match s with
                          | 0 => -3
                          | 1 => 3).1
                      3 1 *
                    (fun s i =>
                          match s, i with
                          | 0, 0 => 1
                          | 0, 1 => 1
                          | 0, 2 => -1
                          | 1, 0 => -4
                          | 1, 1 => -4
                          | 1, 2 => 4
                          | 2, 0 => 2
                          | 2, 1 => 2
                          | 2, 2 => -2
                          | 3, 0 => -3
                          | 3, 1 => -3
                          | 3, 2 => 3
                          | 4, 0 => 6
                          | 4, 1 => 6
                          | 4, 2 => -6
                          | 5, 0 => 0
                          | 5, 1 => 0
                          | 5, 2 => 0,
                          fun s =>
                          match s with
                          | 0 => -3
                          | 1 => 3).1
                      3 1 *
                  L R.val 1) +
            (fun s i =>
                      match s, i with
                      | 0, 0 => 1
                      | 0, 1 => 1
                      | 0, 2 => -1
                      | 1, 0 => -4
                      | 1, 1 => -4
                      | 1, 2 => 4
                      | 2, 0 => 2
                      | 2, 1 => 2
                      | 2, 2 => -2
                      | 3, 0 => -3
                      | 3, 1 => -3
                      | 3, 2 => 3
                      | 4, 0 => 6
                      | 4, 1 => 6
                      | 4, 2 => -6
                      | 5, 0 => 0
                      | 5, 1 => 0
                      | 5, 2 => 0,
                      fun s =>
                      match s with
                      | 0 => -3
                      | 1 => 3).1
                  4 1 *
                (fun s i =>
                      match s, i with
                      | 0, 0 => 1
                      | 0, 1 => 1
                      | 0, 2 => -1
                      | 1, 0 => -4
                      | 1, 1 => -4
                      | 1, 2 => 4
                      | 2, 0 => 2
                      | 2, 1 => 2
                      | 2, 2 => -2
                      | 3, 0 => -3
                      | 3, 1 => -3
                      | 3, 2 => 3
                      | 4, 0 => 6
                      | 4, 1 => 6
                      | 4, 2 => -6
                      | 5, 0 => 0
                      | 5, 1 => 0
                      | 5, 2 => 0,
                      fun s =>
                      match s with
                      | 0 => -3
                      | 1 => 3).1
                  4 1 *
              E R.val 1 +
          (fun s i =>
                    match s, i with
                    | 0, 0 => 1
                    | 0, 1 => 1
                    | 0, 2 => -1
                    | 1, 0 => -4
                    | 1, 1 => -4
                    | 1, 2 => 4
                    | 2, 0 => 2
                    | 2, 1 => 2
                    | 2, 2 => -2
                    | 3, 0 => -3
                    | 3, 1 => -3
                    | 3, 2 => 3
                    | 4, 0 => 6
                    | 4, 1 => 6
                    | 4, 2 => -6
                    | 5, 0 => 0
                    | 5, 1 => 0
                    | 5, 2 => 0,
                    fun s =>
                    match s with
                    | 0 => -3
                    | 1 => 3).1
                5 1 *
              (fun s i =>
                    match s, i with
                    | 0, 0 => 1
                    | 0, 1 => 1
                    | 0, 2 => -1
                    | 1, 0 => -4
                    | 1, 1 => -4
                    | 1, 2 => 4
                    | 2, 0 => 2
                    | 2, 1 => 2
                    | 2, 2 => -2
                    | 3, 0 => -3
                    | 3, 1 => -3
                    | 3, 2 => 3
                    | 4, 0 => 6
                    | 4, 1 => 6
                    | 4, 2 => -6
                    | 5, 0 => 0
                    | 5, 1 => 0
                    | 5, 2 => 0,
                    fun s =>
                    match s with
                    | 0 => -3
                    | 1 => 3).1
                5 1 *
            N R.val 1) +
      (6 *
                  ((fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3).1
                        0 2 *
                      (fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3).1
                        0 2 *
                    Q R.val 2) +
                3 *
                  ((fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3).1
                        1 2 *
                      (fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3).1
                        1 2 *
                    U R.val 2) +
              3 *
                ((fun s i =>
                          match s, i with
                          | 0, 0 => 1
                          | 0, 1 => 1
                          | 0, 2 => -1
                          | 1, 0 => -4
                          | 1, 1 => -4
                          | 1, 2 => 4
                          | 2, 0 => 2
                          | 2, 1 => 2
                          | 2, 2 => -2
                          | 3, 0 => -3
                          | 3, 1 => -3
                          | 3, 2 => 3
                          | 4, 0 => 6
                          | 4, 1 => 6
                          | 4, 2 => -6
                          | 5, 0 => 0
                          | 5, 1 => 0
                          | 5, 2 => 0,
                          fun s =>
                          match s with
                          | 0 => -3
                          | 1 => 3).1
                      2 2 *
                    (fun s i =>
                          match s, i with
                          | 0, 0 => 1
                          | 0, 1 => 1
                          | 0, 2 => -1
                          | 1, 0 => -4
                          | 1, 1 => -4
                          | 1, 2 => 4
                          | 2, 0 => 2
                          | 2, 1 => 2
                          | 2, 2 => -2
                          | 3, 0 => -3
                          | 3, 1 => -3
                          | 3, 2 => 3
                          | 4, 0 => 6
                          | 4, 1 => 6
                          | 4, 2 => -6
                          | 5, 0 => 0
                          | 5, 1 => 0
                          | 5, 2 => 0,
                          fun s =>
                          match s with
                          | 0 => -3
                          | 1 => 3).1
                      2 2 *
                  D R.val 2) +
            2 *
              ((fun s i =>
                        match s, i with
                        | 0, 0 => 1
                        | 0, 1 => 1
                        | 0, 2 => -1
                        | 1, 0 => -4
                        | 1, 1 => -4
                        | 1, 2 => 4
                        | 2, 0 => 2
                        | 2, 1 => 2
                        | 2, 2 => -2
                        | 3, 0 => -3
                        | 3, 1 => -3
                        | 3, 2 => 3
                        | 4, 0 => 6
                        | 4, 1 => 6
                        | 4, 2 => -6
                        | 5, 0 => 0
                        | 5, 1 => 0
                        | 5, 2 => 0,
                        fun s =>
                        match s with
                        | 0 => -3
                        | 1 => 3).1
                    3 2 *
                  (fun s i =>
                        match s, i with
                        | 0, 0 => 1
                        | 0, 1 => 1
                        | 0, 2 => -1
                        | 1, 0 => -4
                        | 1, 1 => -4
                        | 1, 2 => 4
                        | 2, 0 => 2
                        | 2, 1 => 2
                        | 2, 2 => -2
                        | 3, 0 => -3
                        | 3, 1 => -3
                        | 3, 2 => 3
                        | 4, 0 => 6
                        | 4, 1 => 6
                        | 4, 2 => -6
                        | 5, 0 => 0
                        | 5, 1 => 0
                        | 5, 2 => 0,
                        fun s =>
                        match s with
                        | 0 => -3
                        | 1 => 3).1
                    3 2 *
                L R.val 2) +
          (fun s i =>
                    match s, i with
                    | 0, 0 => 1
                    | 0, 1 => 1
                    | 0, 2 => -1
                    | 1, 0 => -4
                    | 1, 1 => -4
                    | 1, 2 => 4
                    | 2, 0 => 2
                    | 2, 1 => 2
                    | 2, 2 => -2
                    | 3, 0 => -3
                    | 3, 1 => -3
                    | 3, 2 => 3
                    | 4, 0 => 6
                    | 4, 1 => 6
                    | 4, 2 => -6
                    | 5, 0 => 0
                    | 5, 1 => 0
                    | 5, 2 => 0,
                    fun s =>
                    match s with
                    | 0 => -3
                    | 1 => 3).1
                4 2 *
              (fun s i =>
                    match s, i with
                    | 0, 0 => 1
                    | 0, 1 => 1
                    | 0, 2 => -1
                    | 1, 0 => -4
                    | 1, 1 => -4
                    | 1, 2 => 4
                    | 2, 0 => 2
                    | 2, 1 => 2
                    | 2, 2 => -2
                    | 3, 0 => -3
                    | 3, 1 => -3
                    | 3, 2 => 3
                    | 4, 0 => 6
                    | 4, 1 => 6
                    | 4, 2 => -6
                    | 5, 0 => 0
                    | 5, 1 => 0
                    | 5, 2 => 0,
                    fun s =>
                    match s with
                    | 0 => -3
                    | 1 => 3).1
                4 2 *
            E R.val 2 +
        (fun s i =>
                  match s, i with
                  | 0, 0 => 1
                  | 0, 1 => 1
                  | 0, 2 => -1
                  | 1, 0 => -4
                  | 1, 1 => -4
                  | 1, 2 => 4
                  | 2, 0 => 2
                  | 2, 1 => 2
                  | 2, 2 => -2
                  | 3, 0 => -3
                  | 3, 1 => -3
                  | 3, 2 => 3
                  | 4, 0 => 6
                  | 4, 1 => 6
                  | 4, 2 => -6
                  | 5, 0 => 0
                  | 5, 1 => 0
                  | 5, 2 => 0,
                  fun s =>
                  match s with
                  | 0 => -3
                  | 1 => 3).1
              5 2 *
            (fun s i =>
                  match s, i with
                  | 0, 0 => 1
                  | 0, 1 => 1
                  | 0, 2 => -1
                  | 1, 0 => -4
                  | 1, 1 => -4
                  | 1, 2 => 4
                  | 2, 0 => 2
                  | 2, 1 => 2
                  | 2, 2 => -2
                  | 3, 0 => -3
                  | 3, 1 => -3
                  | 3, 2 => 3
                  | 4, 0 => 6
                  | 4, 1 => 6
                  | 4, 2 => -6
                  | 5, 0 => 0
                  | 5, 1 => 0
                  | 5, 2 => 0,
                  fun s =>
                  match s with
                  | 0 => -3
                  | 1 => 3).1
              5 2 *
          N R.val 2) +
    (2 *
            Hd
              (toSpecies.symm
                (fun s i =>
                  match s, i with
                  | 0, 0 => 1
                  | 0, 1 => 1
                  | 0, 2 => -1
                  | 1, 0 => -4
                  | 1, 1 => -4
                  | 1, 2 => 4
                  | 2, 0 => 2
                  | 2, 1 => 2
                  | 2, 2 => -2
                  | 3, 0 => -3
                  | 3, 1 => -3
                  | 3, 2 => 3
                  | 4, 0 => 6
                  | 4, 1 => 6
                  | 4, 2 => -6
                  | 5, 0 => 0
                  | 5, 1 => 0
                  | 5, 2 => 0,
                  fun s =>
                  match s with
                  | 0 => -3
                  | 1 => 3)) *
          Hd
            (toSpecies.symm
              (fun s i =>
                match s, i with
                | 0, 0 => 1
                | 0, 1 => 1
                | 0, 2 => -1
                | 1, 0 => -4
                | 1, 1 => -4
                | 1, 2 => 4
                | 2, 0 => 2
                | 2, 1 => 2
                | 2, 2 => -2
                | 3, 0 => -3
                | 3, 1 => -3
                | 3, 2 => 3
                | 4, 0 => 6
                | 4, 1 => 6
                | 4, 2 => -6
                | 5, 0 => 0
                | 5, 1 => 0
                | 5, 2 => 0,
                fun s =>
                match s with
                | 0 => -3
                | 1 => 3)) *
        Hd R.val +
      2 *
            Hu
              (toSpecies.symm
                (fun s i =>
                  match s, i with
                  | 0, 0 => 1
                  | 0, 1 => 1
                  | 0, 2 => -1
                  | 1, 0 => -4
                  | 1, 1 => -4
                  | 1, 2 => 4
                  | 2, 0 => 2
                  | 2, 1 => 2
                  | 2, 2 => -2
                  | 3, 0 => -3
                  | 3, 1 => -3
                  | 3, 2 => 3
                  | 4, 0 => 6
                  | 4, 1 => 6
                  | 4, 2 => -6
                  | 5, 0 => 0
                  | 5, 1 => 0
                  | 5, 2 => 0,
                  fun s =>
                  match s with
                  | 0 => -3
                  | 1 => 3)) *
          Hu
            (toSpecies.symm
              (fun s i =>
                match s, i with
                | 0, 0 => 1
                | 0, 1 => 1
                | 0, 2 => -1
                | 1, 0 => -4
                | 1, 1 => -4
                | 1, 2 => 4
                | 2, 0 => 2
                | 2, 1 => 2
                | 2, 2 => -2
                | 3, 0 => -3
                | 3, 1 => -3
                | 3, 2 => 3
                | 4, 0 => 6
                | 4, 1 => 6
                | 4, 2 => -6
                | 5, 0 => 0
                | 5, 1 => 0
                | 5, 2 => 0,
                fun s =>
                match s with
                | 0 => -3
                | 1 => 3)) *
        Hu R.val) =
  0
  rw [Hd_toSpecies_inv,R:MSSMACC.LinSols⊢ 6 *
                    ((fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3).1
                          0 0 *
                        (fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3).1
                          0 0 *
                      Q R.val 0) +
                  3 *
                    ((fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3).1
                          1 0 *
                        (fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3).1
                          1 0 *
                      U R.val 0) +
                3 *
                  ((fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3).1
                        2 0 *
                      (fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3).1
                        2 0 *
                    D R.val 0) +
              2 *
                ((fun s i =>
                          match s, i with
                          | 0, 0 => 1
                          | 0, 1 => 1
                          | 0, 2 => -1
                          | 1, 0 => -4
                          | 1, 1 => -4
                          | 1, 2 => 4
                          | 2, 0 => 2
                          | 2, 1 => 2
                          | 2, 2 => -2
                          | 3, 0 => -3
                          | 3, 1 => -3
                          | 3, 2 => 3
                          | 4, 0 => 6
                          | 4, 1 => 6
                          | 4, 2 => -6
                          | 5, 0 => 0
                          | 5, 1 => 0
                          | 5, 2 => 0,
                          fun s =>
                          match s with
                          | 0 => -3
                          | 1 => 3).1
                      3 0 *
                    (fun s i =>
                          match s, i with
                          | 0, 0 => 1
                          | 0, 1 => 1
                          | 0, 2 => -1
                          | 1, 0 => -4
                          | 1, 1 => -4
                          | 1, 2 => 4
                          | 2, 0 => 2
                          | 2, 1 => 2
                          | 2, 2 => -2
                          | 3, 0 => -3
                          | 3, 1 => -3
                          | 3, 2 => 3
                          | 4, 0 => 6
                          | 4, 1 => 6
                          | 4, 2 => -6
                          | 5, 0 => 0
                          | 5, 1 => 0
                          | 5, 2 => 0,
                          fun s =>
                          match s with
                          | 0 => -3
                          | 1 => 3).1
                      3 0 *
                  L R.val 0) +
            (fun s i =>
                      match s, i with
                      | 0, 0 => 1
                      | 0, 1 => 1
                      | 0, 2 => -1
                      | 1, 0 => -4
                      | 1, 1 => -4
                      | 1, 2 => 4
                      | 2, 0 => 2
                      | 2, 1 => 2
                      | 2, 2 => -2
                      | 3, 0 => -3
                      | 3, 1 => -3
                      | 3, 2 => 3
                      | 4, 0 => 6
                      | 4, 1 => 6
                      | 4, 2 => -6
                      | 5, 0 => 0
                      | 5, 1 => 0
                      | 5, 2 => 0,
                      fun s =>
                      match s with
                      | 0 => -3
                      | 1 => 3).1
                  4 0 *
                (fun s i =>
                      match s, i with
                      | 0, 0 => 1
                      | 0, 1 => 1
                      | 0, 2 => -1
                      | 1, 0 => -4
                      | 1, 1 => -4
                      | 1, 2 => 4
                      | 2, 0 => 2
                      | 2, 1 => 2
                      | 2, 2 => -2
                      | 3, 0 => -3
                      | 3, 1 => -3
                      | 3, 2 => 3
                      | 4, 0 => 6
                      | 4, 1 => 6
                      | 4, 2 => -6
                      | 5, 0 => 0
                      | 5, 1 => 0
                      | 5, 2 => 0,
                      fun s =>
                      match s with
                      | 0 => -3
                      | 1 => 3).1
                  4 0 *
              E R.val 0 +
          (fun s i =>
                    match s, i with
                    | 0, 0 => 1
                    | 0, 1 => 1
                    | 0, 2 => -1
                    | 1, 0 => -4
                    | 1, 1 => -4
                    | 1, 2 => 4
                    | 2, 0 => 2
                    | 2, 1 => 2
                    | 2, 2 => -2
                    | 3, 0 => -3
                    | 3, 1 => -3
                    | 3, 2 => 3
                    | 4, 0 => 6
                    | 4, 1 => 6
                    | 4, 2 => -6
                    | 5, 0 => 0
                    | 5, 1 => 0
                    | 5, 2 => 0,
                    fun s =>
                    match s with
                    | 0 => -3
                    | 1 => 3).1
                5 0 *
              (fun s i =>
                    match s, i with
                    | 0, 0 => 1
                    | 0, 1 => 1
                    | 0, 2 => -1
                    | 1, 0 => -4
                    | 1, 1 => -4
                    | 1, 2 => 4
                    | 2, 0 => 2
                    | 2, 1 => 2
                    | 2, 2 => -2
                    | 3, 0 => -3
                    | 3, 1 => -3
                    | 3, 2 => 3
                    | 4, 0 => 6
                    | 4, 1 => 6
                    | 4, 2 => -6
                    | 5, 0 => 0
                    | 5, 1 => 0
                    | 5, 2 => 0,
                    fun s =>
                    match s with
                    | 0 => -3
                    | 1 => 3).1
                5 0 *
            N R.val 0 +
        (6 *
                    ((fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3).1
                          0 1 *
                        (fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3).1
                          0 1 *
                      Q R.val 1) +
                  3 *
                    ((fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3).1
                          1 1 *
                        (fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3).1
                          1 1 *
                      U R.val 1) +
                3 *
                  ((fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3).1
                        2 1 *
                      (fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3).1
                        2 1 *
                    D R.val 1) +
              2 *
                ((fun s i =>
                          match s, i with
                          | 0, 0 => 1
                          | 0, 1 => 1
                          | 0, 2 => -1
                          | 1, 0 => -4
                          | 1, 1 => -4
                          | 1, 2 => 4
                          | 2, 0 => 2
                          | 2, 1 => 2
                          | 2, 2 => -2
                          | 3, 0 => -3
                          | 3, 1 => -3
                          | 3, 2 => 3
                          | 4, 0 => 6
                          | 4, 1 => 6
                          | 4, 2 => -6
                          | 5, 0 => 0
                          | 5, 1 => 0
                          | 5, 2 => 0,
                          fun s =>
                          match s with
                          | 0 => -3
                          | 1 => 3).1
                      3 1 *
                    (fun s i =>
                          match s, i with
                          | 0, 0 => 1
                          | 0, 1 => 1
                          | 0, 2 => -1
                          | 1, 0 => -4
                          | 1, 1 => -4
                          | 1, 2 => 4
                          | 2, 0 => 2
                          | 2, 1 => 2
                          | 2, 2 => -2
                          | 3, 0 => -3
                          | 3, 1 => -3
                          | 3, 2 => 3
                          | 4, 0 => 6
                          | 4, 1 => 6
                          | 4, 2 => -6
                          | 5, 0 => 0
                          | 5, 1 => 0
                          | 5, 2 => 0,
                          fun s =>
                          match s with
                          | 0 => -3
                          | 1 => 3).1
                      3 1 *
                  L R.val 1) +
            (fun s i =>
                      match s, i with
                      | 0, 0 => 1
                      | 0, 1 => 1
                      | 0, 2 => -1
                      | 1, 0 => -4
                      | 1, 1 => -4
                      | 1, 2 => 4
                      | 2, 0 => 2
                      | 2, 1 => 2
                      | 2, 2 => -2
                      | 3, 0 => -3
                      | 3, 1 => -3
                      | 3, 2 => 3
                      | 4, 0 => 6
                      | 4, 1 => 6
                      | 4, 2 => -6
                      | 5, 0 => 0
                      | 5, 1 => 0
                      | 5, 2 => 0,
                      fun s =>
                      match s with
                      | 0 => -3
                      | 1 => 3).1
                  4 1 *
                (fun s i =>
                      match s, i with
                      | 0, 0 => 1
                      | 0, 1 => 1
                      | 0, 2 => -1
                      | 1, 0 => -4
                      | 1, 1 => -4
                      | 1, 2 => 4
                      | 2, 0 => 2
                      | 2, 1 => 2
                      | 2, 2 => -2
                      | 3, 0 => -3
                      | 3, 1 => -3
                      | 3, 2 => 3
                      | 4, 0 => 6
                      | 4, 1 => 6
                      | 4, 2 => -6
                      | 5, 0 => 0
                      | 5, 1 => 0
                      | 5, 2 => 0,
                      fun s =>
                      match s with
                      | 0 => -3
                      | 1 => 3).1
                  4 1 *
              E R.val 1 +
          (fun s i =>
                    match s, i with
                    | 0, 0 => 1
                    | 0, 1 => 1
                    | 0, 2 => -1
                    | 1, 0 => -4
                    | 1, 1 => -4
                    | 1, 2 => 4
                    | 2, 0 => 2
                    | 2, 1 => 2
                    | 2, 2 => -2
                    | 3, 0 => -3
                    | 3, 1 => -3
                    | 3, 2 => 3
                    | 4, 0 => 6
                    | 4, 1 => 6
                    | 4, 2 => -6
                    | 5, 0 => 0
                    | 5, 1 => 0
                    | 5, 2 => 0,
                    fun s =>
                    match s with
                    | 0 => -3
                    | 1 => 3).1
                5 1 *
              (fun s i =>
                    match s, i with
                    | 0, 0 => 1
                    | 0, 1 => 1
                    | 0, 2 => -1
                    | 1, 0 => -4
                    | 1, 1 => -4
                    | 1, 2 => 4
                    | 2, 0 => 2
                    | 2, 1 => 2
                    | 2, 2 => -2
                    | 3, 0 => -3
                    | 3, 1 => -3
                    | 3, 2 => 3
                    | 4, 0 => 6
                    | 4, 1 => 6
                    | 4, 2 => -6
                    | 5, 0 => 0
                    | 5, 1 => 0
                    | 5, 2 => 0,
                    fun s =>
                    match s with
                    | 0 => -3
                    | 1 => 3).1
                5 1 *
            N R.val 1) +
      (6 *
                  ((fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3).1
                        0 2 *
                      (fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3).1
                        0 2 *
                    Q R.val 2) +
                3 *
                  ((fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3).1
                        1 2 *
                      (fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3).1
                        1 2 *
                    U R.val 2) +
              3 *
                ((fun s i =>
                          match s, i with
                          | 0, 0 => 1
                          | 0, 1 => 1
                          | 0, 2 => -1
                          | 1, 0 => -4
                          | 1, 1 => -4
                          | 1, 2 => 4
                          | 2, 0 => 2
                          | 2, 1 => 2
                          | 2, 2 => -2
                          | 3, 0 => -3
                          | 3, 1 => -3
                          | 3, 2 => 3
                          | 4, 0 => 6
                          | 4, 1 => 6
                          | 4, 2 => -6
                          | 5, 0 => 0
                          | 5, 1 => 0
                          | 5, 2 => 0,
                          fun s =>
                          match s with
                          | 0 => -3
                          | 1 => 3).1
                      2 2 *
                    (fun s i =>
                          match s, i with
                          | 0, 0 => 1
                          | 0, 1 => 1
                          | 0, 2 => -1
                          | 1, 0 => -4
                          | 1, 1 => -4
                          | 1, 2 => 4
                          | 2, 0 => 2
                          | 2, 1 => 2
                          | 2, 2 => -2
                          | 3, 0 => -3
                          | 3, 1 => -3
                          | 3, 2 => 3
                          | 4, 0 => 6
                          | 4, 1 => 6
                          | 4, 2 => -6
                          | 5, 0 => 0
                          | 5, 1 => 0
                          | 5, 2 => 0,
                          fun s =>
                          match s with
                          | 0 => -3
                          | 1 => 3).1
                      2 2 *
                  D R.val 2) +
            2 *
              ((fun s i =>
                        match s, i with
                        | 0, 0 => 1
                        | 0, 1 => 1
                        | 0, 2 => -1
                        | 1, 0 => -4
                        | 1, 1 => -4
                        | 1, 2 => 4
                        | 2, 0 => 2
                        | 2, 1 => 2
                        | 2, 2 => -2
                        | 3, 0 => -3
                        | 3, 1 => -3
                        | 3, 2 => 3
                        | 4, 0 => 6
                        | 4, 1 => 6
                        | 4, 2 => -6
                        | 5, 0 => 0
                        | 5, 1 => 0
                        | 5, 2 => 0,
                        fun s =>
                        match s with
                        | 0 => -3
                        | 1 => 3).1
                    3 2 *
                  (fun s i =>
                        match s, i with
                        | 0, 0 => 1
                        | 0, 1 => 1
                        | 0, 2 => -1
                        | 1, 0 => -4
                        | 1, 1 => -4
                        | 1, 2 => 4
                        | 2, 0 => 2
                        | 2, 1 => 2
                        | 2, 2 => -2
                        | 3, 0 => -3
                        | 3, 1 => -3
                        | 3, 2 => 3
                        | 4, 0 => 6
                        | 4, 1 => 6
                        | 4, 2 => -6
                        | 5, 0 => 0
                        | 5, 1 => 0
                        | 5, 2 => 0,
                        fun s =>
                        match s with
                        | 0 => -3
                        | 1 => 3).1
                    3 2 *
                L R.val 2) +
          (fun s i =>
                    match s, i with
                    | 0, 0 => 1
                    | 0, 1 => 1
                    | 0, 2 => -1
                    | 1, 0 => -4
                    | 1, 1 => -4
                    | 1, 2 => 4
                    | 2, 0 => 2
                    | 2, 1 => 2
                    | 2, 2 => -2
                    | 3, 0 => -3
                    | 3, 1 => -3
                    | 3, 2 => 3
                    | 4, 0 => 6
                    | 4, 1 => 6
                    | 4, 2 => -6
                    | 5, 0 => 0
                    | 5, 1 => 0
                    | 5, 2 => 0,
                    fun s =>
                    match s with
                    | 0 => -3
                    | 1 => 3).1
                4 2 *
              (fun s i =>
                    match s, i with
                    | 0, 0 => 1
                    | 0, 1 => 1
                    | 0, 2 => -1
                    | 1, 0 => -4
                    | 1, 1 => -4
                    | 1, 2 => 4
                    | 2, 0 => 2
                    | 2, 1 => 2
                    | 2, 2 => -2
                    | 3, 0 => -3
                    | 3, 1 => -3
                    | 3, 2 => 3
                    | 4, 0 => 6
                    | 4, 1 => 6
                    | 4, 2 => -6
                    | 5, 0 => 0
                    | 5, 1 => 0
                    | 5, 2 => 0,
                    fun s =>
                    match s with
                    | 0 => -3
                    | 1 => 3).1
                4 2 *
            E R.val 2 +
        (fun s i =>
                  match s, i with
                  | 0, 0 => 1
                  | 0, 1 => 1
                  | 0, 2 => -1
                  | 1, 0 => -4
                  | 1, 1 => -4
                  | 1, 2 => 4
                  | 2, 0 => 2
                  | 2, 1 => 2
                  | 2, 2 => -2
                  | 3, 0 => -3
                  | 3, 1 => -3
                  | 3, 2 => 3
                  | 4, 0 => 6
                  | 4, 1 => 6
                  | 4, 2 => -6
                  | 5, 0 => 0
                  | 5, 1 => 0
                  | 5, 2 => 0,
                  fun s =>
                  match s with
                  | 0 => -3
                  | 1 => 3).1
              5 2 *
            (fun s i =>
                  match s, i with
                  | 0, 0 => 1
                  | 0, 1 => 1
                  | 0, 2 => -1
                  | 1, 0 => -4
                  | 1, 1 => -4
                  | 1, 2 => 4
                  | 2, 0 => 2
                  | 2, 1 => 2
                  | 2, 2 => -2
                  | 3, 0 => -3
                  | 3, 1 => -3
                  | 3, 2 => 3
                  | 4, 0 => 6
                  | 4, 1 => 6
                  | 4, 2 => -6
                  | 5, 0 => 0
                  | 5, 1 => 0
                  | 5, 2 => 0,
                  fun s =>
                  match s with
                  | 0 => -3
                  | 1 => 3).1
              5 2 *
          N R.val 2) +
    (2 *
            (fun s i =>
                  match s, i with
                  | 0, 0 => 1
                  | 0, 1 => 1
                  | 0, 2 => -1
                  | 1, 0 => -4
                  | 1, 1 => -4
                  | 1, 2 => 4
                  | 2, 0 => 2
                  | 2, 1 => 2
                  | 2, 2 => -2
                  | 3, 0 => -3
                  | 3, 1 => -3
                  | 3, 2 => 3
                  | 4, 0 => 6
                  | 4, 1 => 6
                  | 4, 2 => -6
                  | 5, 0 => 0
                  | 5, 1 => 0
                  | 5, 2 => 0,
                  fun s =>
                  match s with
                  | 0 => -3
                  | 1 => 3).2
              0 *
          (fun s i =>
                match s, i with
                | 0, 0 => 1
                | 0, 1 => 1
                | 0, 2 => -1
                | 1, 0 => -4
                | 1, 1 => -4
                | 1, 2 => 4
                | 2, 0 => 2
                | 2, 1 => 2
                | 2, 2 => -2
                | 3, 0 => -3
                | 3, 1 => -3
                | 3, 2 => 3
                | 4, 0 => 6
                | 4, 1 => 6
                | 4, 2 => -6
                | 5, 0 => 0
                | 5, 1 => 0
                | 5, 2 => 0,
                fun s =>
                match s with
                | 0 => -3
                | 1 => 3).2
            0 *
        Hd R.val +
      2 *
            Hu
              (toSpecies.symm
                (fun s i =>
                  match s, i with
                  | 0, 0 => 1
                  | 0, 1 => 1
                  | 0, 2 => -1
                  | 1, 0 => -4
                  | 1, 1 => -4
                  | 1, 2 => 4
                  | 2, 0 => 2
                  | 2, 1 => 2
                  | 2, 2 => -2
                  | 3, 0 => -3
                  | 3, 1 => -3
                  | 3, 2 => 3
                  | 4, 0 => 6
                  | 4, 1 => 6
                  | 4, 2 => -6
                  | 5, 0 => 0
                  | 5, 1 => 0
                  | 5, 2 => 0,
                  fun s =>
                  match s with
                  | 0 => -3
                  | 1 => 3)) *
          Hu
            (toSpecies.symm
              (fun s i =>
                match s, i with
                | 0, 0 => 1
                | 0, 1 => 1
                | 0, 2 => -1
                | 1, 0 => -4
                | 1, 1 => -4
                | 1, 2 => 4
                | 2, 0 => 2
                | 2, 1 => 2
                | 2, 2 => -2
                | 3, 0 => -3
                | 3, 1 => -3
                | 3, 2 => 3
                | 4, 0 => 6
                | 4, 1 => 6
                | 4, 2 => -6
                | 5, 0 => 0
                | 5, 1 => 0
                | 5, 2 => 0,
                fun s =>
                match s with
                | 0 => -3
                | 1 => 3)) *
        Hu R.val) =
  0R:MSSMACC.LinSols⊢ 6 *
                    ((fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3).1
                          0 0 *
                        (fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3).1
                          0 0 *
                      Q R.val 0) +
                  3 *
                    ((fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3).1
                          1 0 *
                        (fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3).1
                          1 0 *
                      U R.val 0) +
                3 *
                  ((fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3).1
                        2 0 *
                      (fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3).1
                        2 0 *
                    D R.val 0) +
              2 *
                ((fun s i =>
                          match s, i with
                          | 0, 0 => 1
                          | 0, 1 => 1
                          | 0, 2 => -1
                          | 1, 0 => -4
                          | 1, 1 => -4
                          | 1, 2 => 4
                          | 2, 0 => 2
                          | 2, 1 => 2
                          | 2, 2 => -2
                          | 3, 0 => -3
                          | 3, 1 => -3
                          | 3, 2 => 3
                          | 4, 0 => 6
                          | 4, 1 => 6
                          | 4, 2 => -6
                          | 5, 0 => 0
                          | 5, 1 => 0
                          | 5, 2 => 0,
                          fun s =>
                          match s with
                          | 0 => -3
                          | 1 => 3).1
                      3 0 *
                    (fun s i =>
                          match s, i with
                          | 0, 0 => 1
                          | 0, 1 => 1
                          | 0, 2 => -1
                          | 1, 0 => -4
                          | 1, 1 => -4
                          | 1, 2 => 4
                          | 2, 0 => 2
                          | 2, 1 => 2
                          | 2, 2 => -2
                          | 3, 0 => -3
                          | 3, 1 => -3
                          | 3, 2 => 3
                          | 4, 0 => 6
                          | 4, 1 => 6
                          | 4, 2 => -6
                          | 5, 0 => 0
                          | 5, 1 => 0
                          | 5, 2 => 0,
                          fun s =>
                          match s with
                          | 0 => -3
                          | 1 => 3).1
                      3 0 *
                  L R.val 0) +
            (fun s i =>
                      match s, i with
                      | 0, 0 => 1
                      | 0, 1 => 1
                      | 0, 2 => -1
                      | 1, 0 => -4
                      | 1, 1 => -4
                      | 1, 2 => 4
                      | 2, 0 => 2
                      | 2, 1 => 2
                      | 2, 2 => -2
                      | 3, 0 => -3
                      | 3, 1 => -3
                      | 3, 2 => 3
                      | 4, 0 => 6
                      | 4, 1 => 6
                      | 4, 2 => -6
                      | 5, 0 => 0
                      | 5, 1 => 0
                      | 5, 2 => 0,
                      fun s =>
                      match s with
                      | 0 => -3
                      | 1 => 3).1
                  4 0 *
                (fun s i =>
                      match s, i with
                      | 0, 0 => 1
                      | 0, 1 => 1
                      | 0, 2 => -1
                      | 1, 0 => -4
                      | 1, 1 => -4
                      | 1, 2 => 4
                      | 2, 0 => 2
                      | 2, 1 => 2
                      | 2, 2 => -2
                      | 3, 0 => -3
                      | 3, 1 => -3
                      | 3, 2 => 3
                      | 4, 0 => 6
                      | 4, 1 => 6
                      | 4, 2 => -6
                      | 5, 0 => 0
                      | 5, 1 => 0
                      | 5, 2 => 0,
                      fun s =>
                      match s with
                      | 0 => -3
                      | 1 => 3).1
                  4 0 *
              E R.val 0 +
          (fun s i =>
                    match s, i with
                    | 0, 0 => 1
                    | 0, 1 => 1
                    | 0, 2 => -1
                    | 1, 0 => -4
                    | 1, 1 => -4
                    | 1, 2 => 4
                    | 2, 0 => 2
                    | 2, 1 => 2
                    | 2, 2 => -2
                    | 3, 0 => -3
                    | 3, 1 => -3
                    | 3, 2 => 3
                    | 4, 0 => 6
                    | 4, 1 => 6
                    | 4, 2 => -6
                    | 5, 0 => 0
                    | 5, 1 => 0
                    | 5, 2 => 0,
                    fun s =>
                    match s with
                    | 0 => -3
                    | 1 => 3).1
                5 0 *
              (fun s i =>
                    match s, i with
                    | 0, 0 => 1
                    | 0, 1 => 1
                    | 0, 2 => -1
                    | 1, 0 => -4
                    | 1, 1 => -4
                    | 1, 2 => 4
                    | 2, 0 => 2
                    | 2, 1 => 2
                    | 2, 2 => -2
                    | 3, 0 => -3
                    | 3, 1 => -3
                    | 3, 2 => 3
                    | 4, 0 => 6
                    | 4, 1 => 6
                    | 4, 2 => -6
                    | 5, 0 => 0
                    | 5, 1 => 0
                    | 5, 2 => 0,
                    fun s =>
                    match s with
                    | 0 => -3
                    | 1 => 3).1
                5 0 *
            N R.val 0 +
        (6 *
                    ((fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3).1
                          0 1 *
                        (fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3).1
                          0 1 *
                      Q R.val 1) +
                  3 *
                    ((fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3).1
                          1 1 *
                        (fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3).1
                          1 1 *
                      U R.val 1) +
                3 *
                  ((fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3).1
                        2 1 *
                      (fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3).1
                        2 1 *
                    D R.val 1) +
              2 *
                ((fun s i =>
                          match s, i with
                          | 0, 0 => 1
                          | 0, 1 => 1
                          | 0, 2 => -1
                          | 1, 0 => -4
                          | 1, 1 => -4
                          | 1, 2 => 4
                          | 2, 0 => 2
                          | 2, 1 => 2
                          | 2, 2 => -2
                          | 3, 0 => -3
                          | 3, 1 => -3
                          | 3, 2 => 3
                          | 4, 0 => 6
                          | 4, 1 => 6
                          | 4, 2 => -6
                          | 5, 0 => 0
                          | 5, 1 => 0
                          | 5, 2 => 0,
                          fun s =>
                          match s with
                          | 0 => -3
                          | 1 => 3).1
                      3 1 *
                    (fun s i =>
                          match s, i with
                          | 0, 0 => 1
                          | 0, 1 => 1
                          | 0, 2 => -1
                          | 1, 0 => -4
                          | 1, 1 => -4
                          | 1, 2 => 4
                          | 2, 0 => 2
                          | 2, 1 => 2
                          | 2, 2 => -2
                          | 3, 0 => -3
                          | 3, 1 => -3
                          | 3, 2 => 3
                          | 4, 0 => 6
                          | 4, 1 => 6
                          | 4, 2 => -6
                          | 5, 0 => 0
                          | 5, 1 => 0
                          | 5, 2 => 0,
                          fun s =>
                          match s with
                          | 0 => -3
                          | 1 => 3).1
                      3 1 *
                  L R.val 1) +
            (fun s i =>
                      match s, i with
                      | 0, 0 => 1
                      | 0, 1 => 1
                      | 0, 2 => -1
                      | 1, 0 => -4
                      | 1, 1 => -4
                      | 1, 2 => 4
                      | 2, 0 => 2
                      | 2, 1 => 2
                      | 2, 2 => -2
                      | 3, 0 => -3
                      | 3, 1 => -3
                      | 3, 2 => 3
                      | 4, 0 => 6
                      | 4, 1 => 6
                      | 4, 2 => -6
                      | 5, 0 => 0
                      | 5, 1 => 0
                      | 5, 2 => 0,
                      fun s =>
                      match s with
                      | 0 => -3
                      | 1 => 3).1
                  4 1 *
                (fun s i =>
                      match s, i with
                      | 0, 0 => 1
                      | 0, 1 => 1
                      | 0, 2 => -1
                      | 1, 0 => -4
                      | 1, 1 => -4
                      | 1, 2 => 4
                      | 2, 0 => 2
                      | 2, 1 => 2
                      | 2, 2 => -2
                      | 3, 0 => -3
                      | 3, 1 => -3
                      | 3, 2 => 3
                      | 4, 0 => 6
                      | 4, 1 => 6
                      | 4, 2 => -6
                      | 5, 0 => 0
                      | 5, 1 => 0
                      | 5, 2 => 0,
                      fun s =>
                      match s with
                      | 0 => -3
                      | 1 => 3).1
                  4 1 *
              E R.val 1 +
          (fun s i =>
                    match s, i with
                    | 0, 0 => 1
                    | 0, 1 => 1
                    | 0, 2 => -1
                    | 1, 0 => -4
                    | 1, 1 => -4
                    | 1, 2 => 4
                    | 2, 0 => 2
                    | 2, 1 => 2
                    | 2, 2 => -2
                    | 3, 0 => -3
                    | 3, 1 => -3
                    | 3, 2 => 3
                    | 4, 0 => 6
                    | 4, 1 => 6
                    | 4, 2 => -6
                    | 5, 0 => 0
                    | 5, 1 => 0
                    | 5, 2 => 0,
                    fun s =>
                    match s with
                    | 0 => -3
                    | 1 => 3).1
                5 1 *
              (fun s i =>
                    match s, i with
                    | 0, 0 => 1
                    | 0, 1 => 1
                    | 0, 2 => -1
                    | 1, 0 => -4
                    | 1, 1 => -4
                    | 1, 2 => 4
                    | 2, 0 => 2
                    | 2, 1 => 2
                    | 2, 2 => -2
                    | 3, 0 => -3
                    | 3, 1 => -3
                    | 3, 2 => 3
                    | 4, 0 => 6
                    | 4, 1 => 6
                    | 4, 2 => -6
                    | 5, 0 => 0
                    | 5, 1 => 0
                    | 5, 2 => 0,
                    fun s =>
                    match s with
                    | 0 => -3
                    | 1 => 3).1
                5 1 *
            N R.val 1) +
      (6 *
                  ((fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3).1
                        0 2 *
                      (fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3).1
                        0 2 *
                    Q R.val 2) +
                3 *
                  ((fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3).1
                        1 2 *
                      (fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3).1
                        1 2 *
                    U R.val 2) +
              3 *
                ((fun s i =>
                          match s, i with
                          | 0, 0 => 1
                          | 0, 1 => 1
                          | 0, 2 => -1
                          | 1, 0 => -4
                          | 1, 1 => -4
                          | 1, 2 => 4
                          | 2, 0 => 2
                          | 2, 1 => 2
                          | 2, 2 => -2
                          | 3, 0 => -3
                          | 3, 1 => -3
                          | 3, 2 => 3
                          | 4, 0 => 6
                          | 4, 1 => 6
                          | 4, 2 => -6
                          | 5, 0 => 0
                          | 5, 1 => 0
                          | 5, 2 => 0,
                          fun s =>
                          match s with
                          | 0 => -3
                          | 1 => 3).1
                      2 2 *
                    (fun s i =>
                          match s, i with
                          | 0, 0 => 1
                          | 0, 1 => 1
                          | 0, 2 => -1
                          | 1, 0 => -4
                          | 1, 1 => -4
                          | 1, 2 => 4
                          | 2, 0 => 2
                          | 2, 1 => 2
                          | 2, 2 => -2
                          | 3, 0 => -3
                          | 3, 1 => -3
                          | 3, 2 => 3
                          | 4, 0 => 6
                          | 4, 1 => 6
                          | 4, 2 => -6
                          | 5, 0 => 0
                          | 5, 1 => 0
                          | 5, 2 => 0,
                          fun s =>
                          match s with
                          | 0 => -3
                          | 1 => 3).1
                      2 2 *
                  D R.val 2) +
            2 *
              ((fun s i =>
                        match s, i with
                        | 0, 0 => 1
                        | 0, 1 => 1
                        | 0, 2 => -1
                        | 1, 0 => -4
                        | 1, 1 => -4
                        | 1, 2 => 4
                        | 2, 0 => 2
                        | 2, 1 => 2
                        | 2, 2 => -2
                        | 3, 0 => -3
                        | 3, 1 => -3
                        | 3, 2 => 3
                        | 4, 0 => 6
                        | 4, 1 => 6
                        | 4, 2 => -6
                        | 5, 0 => 0
                        | 5, 1 => 0
                        | 5, 2 => 0,
                        fun s =>
                        match s with
                        | 0 => -3
                        | 1 => 3).1
                    3 2 *
                  (fun s i =>
                        match s, i with
                        | 0, 0 => 1
                        | 0, 1 => 1
                        | 0, 2 => -1
                        | 1, 0 => -4
                        | 1, 1 => -4
                        | 1, 2 => 4
                        | 2, 0 => 2
                        | 2, 1 => 2
                        | 2, 2 => -2
                        | 3, 0 => -3
                        | 3, 1 => -3
                        | 3, 2 => 3
                        | 4, 0 => 6
                        | 4, 1 => 6
                        | 4, 2 => -6
                        | 5, 0 => 0
                        | 5, 1 => 0
                        | 5, 2 => 0,
                        fun s =>
                        match s with
                        | 0 => -3
                        | 1 => 3).1
                    3 2 *
                L R.val 2) +
          (fun s i =>
                    match s, i with
                    | 0, 0 => 1
                    | 0, 1 => 1
                    | 0, 2 => -1
                    | 1, 0 => -4
                    | 1, 1 => -4
                    | 1, 2 => 4
                    | 2, 0 => 2
                    | 2, 1 => 2
                    | 2, 2 => -2
                    | 3, 0 => -3
                    | 3, 1 => -3
                    | 3, 2 => 3
                    | 4, 0 => 6
                    | 4, 1 => 6
                    | 4, 2 => -6
                    | 5, 0 => 0
                    | 5, 1 => 0
                    | 5, 2 => 0,
                    fun s =>
                    match s with
                    | 0 => -3
                    | 1 => 3).1
                4 2 *
              (fun s i =>
                    match s, i with
                    | 0, 0 => 1
                    | 0, 1 => 1
                    | 0, 2 => -1
                    | 1, 0 => -4
                    | 1, 1 => -4
                    | 1, 2 => 4
                    | 2, 0 => 2
                    | 2, 1 => 2
                    | 2, 2 => -2
                    | 3, 0 => -3
                    | 3, 1 => -3
                    | 3, 2 => 3
                    | 4, 0 => 6
                    | 4, 1 => 6
                    | 4, 2 => -6
                    | 5, 0 => 0
                    | 5, 1 => 0
                    | 5, 2 => 0,
                    fun s =>
                    match s with
                    | 0 => -3
                    | 1 => 3).1
                4 2 *
            E R.val 2 +
        (fun s i =>
                  match s, i with
                  | 0, 0 => 1
                  | 0, 1 => 1
                  | 0, 2 => -1
                  | 1, 0 => -4
                  | 1, 1 => -4
                  | 1, 2 => 4
                  | 2, 0 => 2
                  | 2, 1 => 2
                  | 2, 2 => -2
                  | 3, 0 => -3
                  | 3, 1 => -3
                  | 3, 2 => 3
                  | 4, 0 => 6
                  | 4, 1 => 6
                  | 4, 2 => -6
                  | 5, 0 => 0
                  | 5, 1 => 0
                  | 5, 2 => 0,
                  fun s =>
                  match s with
                  | 0 => -3
                  | 1 => 3).1
              5 2 *
            (fun s i =>
                  match s, i with
                  | 0, 0 => 1
                  | 0, 1 => 1
                  | 0, 2 => -1
                  | 1, 0 => -4
                  | 1, 1 => -4
                  | 1, 2 => 4
                  | 2, 0 => 2
                  | 2, 1 => 2
                  | 2, 2 => -2
                  | 3, 0 => -3
                  | 3, 1 => -3
                  | 3, 2 => 3
                  | 4, 0 => 6
                  | 4, 1 => 6
                  | 4, 2 => -6
                  | 5, 0 => 0
                  | 5, 1 => 0
                  | 5, 2 => 0,
                  fun s =>
                  match s with
                  | 0 => -3
                  | 1 => 3).1
              5 2 *
          N R.val 2) +
    (2 *
            (fun s i =>
                  match s, i with
                  | 0, 0 => 1
                  | 0, 1 => 1
                  | 0, 2 => -1
                  | 1, 0 => -4
                  | 1, 1 => -4
                  | 1, 2 => 4
                  | 2, 0 => 2
                  | 2, 1 => 2
                  | 2, 2 => -2
                  | 3, 0 => -3
                  | 3, 1 => -3
                  | 3, 2 => 3
                  | 4, 0 => 6
                  | 4, 1 => 6
                  | 4, 2 => -6
                  | 5, 0 => 0
                  | 5, 1 => 0
                  | 5, 2 => 0,
                  fun s =>
                  match s with
                  | 0 => -3
                  | 1 => 3).2
              0 *
          (fun s i =>
                match s, i with
                | 0, 0 => 1
                | 0, 1 => 1
                | 0, 2 => -1
                | 1, 0 => -4
                | 1, 1 => -4
                | 1, 2 => 4
                | 2, 0 => 2
                | 2, 1 => 2
                | 2, 2 => -2
                | 3, 0 => -3
                | 3, 1 => -3
                | 3, 2 => 3
                | 4, 0 => 6
                | 4, 1 => 6
                | 4, 2 => -6
                | 5, 0 => 0
                | 5, 1 => 0
                | 5, 2 => 0,
                fun s =>
                match s with
                | 0 => -3
                | 1 => 3).2
            0 *
        Hd R.val +
      2 *
            (fun s i =>
                  match s, i with
                  | 0, 0 => 1
                  | 0, 1 => 1
                  | 0, 2 => -1
                  | 1, 0 => -4
                  | 1, 1 => -4
                  | 1, 2 => 4
                  | 2, 0 => 2
                  | 2, 1 => 2
                  | 2, 2 => -2
                  | 3, 0 => -3
                  | 3, 1 => -3
                  | 3, 2 => 3
                  | 4, 0 => 6
                  | 4, 1 => 6
                  | 4, 2 => -6
                  | 5, 0 => 0
                  | 5, 1 => 0
                  | 5, 2 => 0,
                  fun s =>
                  match s with
                  | 0 => -3
                  | 1 => 3).2
              1 *
          (fun s i =>
                match s, i with
                | 0, 0 => 1
                | 0, 1 => 1
                | 0, 2 => -1
                | 1, 0 => -4
                | 1, 1 => -4
                | 1, 2 => 4
                | 2, 0 => 2
                | 2, 1 => 2
                | 2, 2 => -2
                | 3, 0 => -3
                | 3, 1 => -3
                | 3, 2 => 3
                | 4, 0 => 6
                | 4, 1 => 6
                | 4, 2 => -6
                | 5, 0 => 0
                | 5, 1 => 0
                | 5, 2 => 0,
                fun s =>
                match s with
                | 0 => -3
                | 1 => 3).2
            1 *
        Hu R.val) =
  0 Hu_toSpecies_invR:MSSMACC.LinSols⊢ 6 *
                    ((fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3).1
                          0 0 *
                        (fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3).1
                          0 0 *
                      Q R.val 0) +
                  3 *
                    ((fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3).1
                          1 0 *
                        (fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3).1
                          1 0 *
                      U R.val 0) +
                3 *
                  ((fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3).1
                        2 0 *
                      (fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3).1
                        2 0 *
                    D R.val 0) +
              2 *
                ((fun s i =>
                          match s, i with
                          | 0, 0 => 1
                          | 0, 1 => 1
                          | 0, 2 => -1
                          | 1, 0 => -4
                          | 1, 1 => -4
                          | 1, 2 => 4
                          | 2, 0 => 2
                          | 2, 1 => 2
                          | 2, 2 => -2
                          | 3, 0 => -3
                          | 3, 1 => -3
                          | 3, 2 => 3
                          | 4, 0 => 6
                          | 4, 1 => 6
                          | 4, 2 => -6
                          | 5, 0 => 0
                          | 5, 1 => 0
                          | 5, 2 => 0,
                          fun s =>
                          match s with
                          | 0 => -3
                          | 1 => 3).1
                      3 0 *
                    (fun s i =>
                          match s, i with
                          | 0, 0 => 1
                          | 0, 1 => 1
                          | 0, 2 => -1
                          | 1, 0 => -4
                          | 1, 1 => -4
                          | 1, 2 => 4
                          | 2, 0 => 2
                          | 2, 1 => 2
                          | 2, 2 => -2
                          | 3, 0 => -3
                          | 3, 1 => -3
                          | 3, 2 => 3
                          | 4, 0 => 6
                          | 4, 1 => 6
                          | 4, 2 => -6
                          | 5, 0 => 0
                          | 5, 1 => 0
                          | 5, 2 => 0,
                          fun s =>
                          match s with
                          | 0 => -3
                          | 1 => 3).1
                      3 0 *
                  L R.val 0) +
            (fun s i =>
                      match s, i with
                      | 0, 0 => 1
                      | 0, 1 => 1
                      | 0, 2 => -1
                      | 1, 0 => -4
                      | 1, 1 => -4
                      | 1, 2 => 4
                      | 2, 0 => 2
                      | 2, 1 => 2
                      | 2, 2 => -2
                      | 3, 0 => -3
                      | 3, 1 => -3
                      | 3, 2 => 3
                      | 4, 0 => 6
                      | 4, 1 => 6
                      | 4, 2 => -6
                      | 5, 0 => 0
                      | 5, 1 => 0
                      | 5, 2 => 0,
                      fun s =>
                      match s with
                      | 0 => -3
                      | 1 => 3).1
                  4 0 *
                (fun s i =>
                      match s, i with
                      | 0, 0 => 1
                      | 0, 1 => 1
                      | 0, 2 => -1
                      | 1, 0 => -4
                      | 1, 1 => -4
                      | 1, 2 => 4
                      | 2, 0 => 2
                      | 2, 1 => 2
                      | 2, 2 => -2
                      | 3, 0 => -3
                      | 3, 1 => -3
                      | 3, 2 => 3
                      | 4, 0 => 6
                      | 4, 1 => 6
                      | 4, 2 => -6
                      | 5, 0 => 0
                      | 5, 1 => 0
                      | 5, 2 => 0,
                      fun s =>
                      match s with
                      | 0 => -3
                      | 1 => 3).1
                  4 0 *
              E R.val 0 +
          (fun s i =>
                    match s, i with
                    | 0, 0 => 1
                    | 0, 1 => 1
                    | 0, 2 => -1
                    | 1, 0 => -4
                    | 1, 1 => -4
                    | 1, 2 => 4
                    | 2, 0 => 2
                    | 2, 1 => 2
                    | 2, 2 => -2
                    | 3, 0 => -3
                    | 3, 1 => -3
                    | 3, 2 => 3
                    | 4, 0 => 6
                    | 4, 1 => 6
                    | 4, 2 => -6
                    | 5, 0 => 0
                    | 5, 1 => 0
                    | 5, 2 => 0,
                    fun s =>
                    match s with
                    | 0 => -3
                    | 1 => 3).1
                5 0 *
              (fun s i =>
                    match s, i with
                    | 0, 0 => 1
                    | 0, 1 => 1
                    | 0, 2 => -1
                    | 1, 0 => -4
                    | 1, 1 => -4
                    | 1, 2 => 4
                    | 2, 0 => 2
                    | 2, 1 => 2
                    | 2, 2 => -2
                    | 3, 0 => -3
                    | 3, 1 => -3
                    | 3, 2 => 3
                    | 4, 0 => 6
                    | 4, 1 => 6
                    | 4, 2 => -6
                    | 5, 0 => 0
                    | 5, 1 => 0
                    | 5, 2 => 0,
                    fun s =>
                    match s with
                    | 0 => -3
                    | 1 => 3).1
                5 0 *
            N R.val 0 +
        (6 *
                    ((fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3).1
                          0 1 *
                        (fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3).1
                          0 1 *
                      Q R.val 1) +
                  3 *
                    ((fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3).1
                          1 1 *
                        (fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3).1
                          1 1 *
                      U R.val 1) +
                3 *
                  ((fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3).1
                        2 1 *
                      (fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3).1
                        2 1 *
                    D R.val 1) +
              2 *
                ((fun s i =>
                          match s, i with
                          | 0, 0 => 1
                          | 0, 1 => 1
                          | 0, 2 => -1
                          | 1, 0 => -4
                          | 1, 1 => -4
                          | 1, 2 => 4
                          | 2, 0 => 2
                          | 2, 1 => 2
                          | 2, 2 => -2
                          | 3, 0 => -3
                          | 3, 1 => -3
                          | 3, 2 => 3
                          | 4, 0 => 6
                          | 4, 1 => 6
                          | 4, 2 => -6
                          | 5, 0 => 0
                          | 5, 1 => 0
                          | 5, 2 => 0,
                          fun s =>
                          match s with
                          | 0 => -3
                          | 1 => 3).1
                      3 1 *
                    (fun s i =>
                          match s, i with
                          | 0, 0 => 1
                          | 0, 1 => 1
                          | 0, 2 => -1
                          | 1, 0 => -4
                          | 1, 1 => -4
                          | 1, 2 => 4
                          | 2, 0 => 2
                          | 2, 1 => 2
                          | 2, 2 => -2
                          | 3, 0 => -3
                          | 3, 1 => -3
                          | 3, 2 => 3
                          | 4, 0 => 6
                          | 4, 1 => 6
                          | 4, 2 => -6
                          | 5, 0 => 0
                          | 5, 1 => 0
                          | 5, 2 => 0,
                          fun s =>
                          match s with
                          | 0 => -3
                          | 1 => 3).1
                      3 1 *
                  L R.val 1) +
            (fun s i =>
                      match s, i with
                      | 0, 0 => 1
                      | 0, 1 => 1
                      | 0, 2 => -1
                      | 1, 0 => -4
                      | 1, 1 => -4
                      | 1, 2 => 4
                      | 2, 0 => 2
                      | 2, 1 => 2
                      | 2, 2 => -2
                      | 3, 0 => -3
                      | 3, 1 => -3
                      | 3, 2 => 3
                      | 4, 0 => 6
                      | 4, 1 => 6
                      | 4, 2 => -6
                      | 5, 0 => 0
                      | 5, 1 => 0
                      | 5, 2 => 0,
                      fun s =>
                      match s with
                      | 0 => -3
                      | 1 => 3).1
                  4 1 *
                (fun s i =>
                      match s, i with
                      | 0, 0 => 1
                      | 0, 1 => 1
                      | 0, 2 => -1
                      | 1, 0 => -4
                      | 1, 1 => -4
                      | 1, 2 => 4
                      | 2, 0 => 2
                      | 2, 1 => 2
                      | 2, 2 => -2
                      | 3, 0 => -3
                      | 3, 1 => -3
                      | 3, 2 => 3
                      | 4, 0 => 6
                      | 4, 1 => 6
                      | 4, 2 => -6
                      | 5, 0 => 0
                      | 5, 1 => 0
                      | 5, 2 => 0,
                      fun s =>
                      match s with
                      | 0 => -3
                      | 1 => 3).1
                  4 1 *
              E R.val 1 +
          (fun s i =>
                    match s, i with
                    | 0, 0 => 1
                    | 0, 1 => 1
                    | 0, 2 => -1
                    | 1, 0 => -4
                    | 1, 1 => -4
                    | 1, 2 => 4
                    | 2, 0 => 2
                    | 2, 1 => 2
                    | 2, 2 => -2
                    | 3, 0 => -3
                    | 3, 1 => -3
                    | 3, 2 => 3
                    | 4, 0 => 6
                    | 4, 1 => 6
                    | 4, 2 => -6
                    | 5, 0 => 0
                    | 5, 1 => 0
                    | 5, 2 => 0,
                    fun s =>
                    match s with
                    | 0 => -3
                    | 1 => 3).1
                5 1 *
              (fun s i =>
                    match s, i with
                    | 0, 0 => 1
                    | 0, 1 => 1
                    | 0, 2 => -1
                    | 1, 0 => -4
                    | 1, 1 => -4
                    | 1, 2 => 4
                    | 2, 0 => 2
                    | 2, 1 => 2
                    | 2, 2 => -2
                    | 3, 0 => -3
                    | 3, 1 => -3
                    | 3, 2 => 3
                    | 4, 0 => 6
                    | 4, 1 => 6
                    | 4, 2 => -6
                    | 5, 0 => 0
                    | 5, 1 => 0
                    | 5, 2 => 0,
                    fun s =>
                    match s with
                    | 0 => -3
                    | 1 => 3).1
                5 1 *
            N R.val 1) +
      (6 *
                  ((fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3).1
                        0 2 *
                      (fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3).1
                        0 2 *
                    Q R.val 2) +
                3 *
                  ((fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3).1
                        1 2 *
                      (fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3).1
                        1 2 *
                    U R.val 2) +
              3 *
                ((fun s i =>
                          match s, i with
                          | 0, 0 => 1
                          | 0, 1 => 1
                          | 0, 2 => -1
                          | 1, 0 => -4
                          | 1, 1 => -4
                          | 1, 2 => 4
                          | 2, 0 => 2
                          | 2, 1 => 2
                          | 2, 2 => -2
                          | 3, 0 => -3
                          | 3, 1 => -3
                          | 3, 2 => 3
                          | 4, 0 => 6
                          | 4, 1 => 6
                          | 4, 2 => -6
                          | 5, 0 => 0
                          | 5, 1 => 0
                          | 5, 2 => 0,
                          fun s =>
                          match s with
                          | 0 => -3
                          | 1 => 3).1
                      2 2 *
                    (fun s i =>
                          match s, i with
                          | 0, 0 => 1
                          | 0, 1 => 1
                          | 0, 2 => -1
                          | 1, 0 => -4
                          | 1, 1 => -4
                          | 1, 2 => 4
                          | 2, 0 => 2
                          | 2, 1 => 2
                          | 2, 2 => -2
                          | 3, 0 => -3
                          | 3, 1 => -3
                          | 3, 2 => 3
                          | 4, 0 => 6
                          | 4, 1 => 6
                          | 4, 2 => -6
                          | 5, 0 => 0
                          | 5, 1 => 0
                          | 5, 2 => 0,
                          fun s =>
                          match s with
                          | 0 => -3
                          | 1 => 3).1
                      2 2 *
                  D R.val 2) +
            2 *
              ((fun s i =>
                        match s, i with
                        | 0, 0 => 1
                        | 0, 1 => 1
                        | 0, 2 => -1
                        | 1, 0 => -4
                        | 1, 1 => -4
                        | 1, 2 => 4
                        | 2, 0 => 2
                        | 2, 1 => 2
                        | 2, 2 => -2
                        | 3, 0 => -3
                        | 3, 1 => -3
                        | 3, 2 => 3
                        | 4, 0 => 6
                        | 4, 1 => 6
                        | 4, 2 => -6
                        | 5, 0 => 0
                        | 5, 1 => 0
                        | 5, 2 => 0,
                        fun s =>
                        match s with
                        | 0 => -3
                        | 1 => 3).1
                    3 2 *
                  (fun s i =>
                        match s, i with
                        | 0, 0 => 1
                        | 0, 1 => 1
                        | 0, 2 => -1
                        | 1, 0 => -4
                        | 1, 1 => -4
                        | 1, 2 => 4
                        | 2, 0 => 2
                        | 2, 1 => 2
                        | 2, 2 => -2
                        | 3, 0 => -3
                        | 3, 1 => -3
                        | 3, 2 => 3
                        | 4, 0 => 6
                        | 4, 1 => 6
                        | 4, 2 => -6
                        | 5, 0 => 0
                        | 5, 1 => 0
                        | 5, 2 => 0,
                        fun s =>
                        match s with
                        | 0 => -3
                        | 1 => 3).1
                    3 2 *
                L R.val 2) +
          (fun s i =>
                    match s, i with
                    | 0, 0 => 1
                    | 0, 1 => 1
                    | 0, 2 => -1
                    | 1, 0 => -4
                    | 1, 1 => -4
                    | 1, 2 => 4
                    | 2, 0 => 2
                    | 2, 1 => 2
                    | 2, 2 => -2
                    | 3, 0 => -3
                    | 3, 1 => -3
                    | 3, 2 => 3
                    | 4, 0 => 6
                    | 4, 1 => 6
                    | 4, 2 => -6
                    | 5, 0 => 0
                    | 5, 1 => 0
                    | 5, 2 => 0,
                    fun s =>
                    match s with
                    | 0 => -3
                    | 1 => 3).1
                4 2 *
              (fun s i =>
                    match s, i with
                    | 0, 0 => 1
                    | 0, 1 => 1
                    | 0, 2 => -1
                    | 1, 0 => -4
                    | 1, 1 => -4
                    | 1, 2 => 4
                    | 2, 0 => 2
                    | 2, 1 => 2
                    | 2, 2 => -2
                    | 3, 0 => -3
                    | 3, 1 => -3
                    | 3, 2 => 3
                    | 4, 0 => 6
                    | 4, 1 => 6
                    | 4, 2 => -6
                    | 5, 0 => 0
                    | 5, 1 => 0
                    | 5, 2 => 0,
                    fun s =>
                    match s with
                    | 0 => -3
                    | 1 => 3).1
                4 2 *
            E R.val 2 +
        (fun s i =>
                  match s, i with
                  | 0, 0 => 1
                  | 0, 1 => 1
                  | 0, 2 => -1
                  | 1, 0 => -4
                  | 1, 1 => -4
                  | 1, 2 => 4
                  | 2, 0 => 2
                  | 2, 1 => 2
                  | 2, 2 => -2
                  | 3, 0 => -3
                  | 3, 1 => -3
                  | 3, 2 => 3
                  | 4, 0 => 6
                  | 4, 1 => 6
                  | 4, 2 => -6
                  | 5, 0 => 0
                  | 5, 1 => 0
                  | 5, 2 => 0,
                  fun s =>
                  match s with
                  | 0 => -3
                  | 1 => 3).1
              5 2 *
            (fun s i =>
                  match s, i with
                  | 0, 0 => 1
                  | 0, 1 => 1
                  | 0, 2 => -1
                  | 1, 0 => -4
                  | 1, 1 => -4
                  | 1, 2 => 4
                  | 2, 0 => 2
                  | 2, 1 => 2
                  | 2, 2 => -2
                  | 3, 0 => -3
                  | 3, 1 => -3
                  | 3, 2 => 3
                  | 4, 0 => 6
                  | 4, 1 => 6
                  | 4, 2 => -6
                  | 5, 0 => 0
                  | 5, 1 => 0
                  | 5, 2 => 0,
                  fun s =>
                  match s with
                  | 0 => -3
                  | 1 => 3).1
              5 2 *
          N R.val 2) +
    (2 *
            (fun s i =>
                  match s, i with
                  | 0, 0 => 1
                  | 0, 1 => 1
                  | 0, 2 => -1
                  | 1, 0 => -4
                  | 1, 1 => -4
                  | 1, 2 => 4
                  | 2, 0 => 2
                  | 2, 1 => 2
                  | 2, 2 => -2
                  | 3, 0 => -3
                  | 3, 1 => -3
                  | 3, 2 => 3
                  | 4, 0 => 6
                  | 4, 1 => 6
                  | 4, 2 => -6
                  | 5, 0 => 0
                  | 5, 1 => 0
                  | 5, 2 => 0,
                  fun s =>
                  match s with
                  | 0 => -3
                  | 1 => 3).2
              0 *
          (fun s i =>
                match s, i with
                | 0, 0 => 1
                | 0, 1 => 1
                | 0, 2 => -1
                | 1, 0 => -4
                | 1, 1 => -4
                | 1, 2 => 4
                | 2, 0 => 2
                | 2, 1 => 2
                | 2, 2 => -2
                | 3, 0 => -3
                | 3, 1 => -3
                | 3, 2 => 3
                | 4, 0 => 6
                | 4, 1 => 6
                | 4, 2 => -6
                | 5, 0 => 0
                | 5, 1 => 0
                | 5, 2 => 0,
                fun s =>
                match s with
                | 0 => -3
                | 1 => 3).2
            0 *
        Hd R.val +
      2 *
            (fun s i =>
                  match s, i with
                  | 0, 0 => 1
                  | 0, 1 => 1
                  | 0, 2 => -1
                  | 1, 0 => -4
                  | 1, 1 => -4
                  | 1, 2 => 4
                  | 2, 0 => 2
                  | 2, 1 => 2
                  | 2, 2 => -2
                  | 3, 0 => -3
                  | 3, 1 => -3
                  | 3, 2 => 3
                  | 4, 0 => 6
                  | 4, 1 => 6
                  | 4, 2 => -6
                  | 5, 0 => 0
                  | 5, 1 => 0
                  | 5, 2 => 0,
                  fun s =>
                  match s with
                  | 0 => -3
                  | 1 => 3).2
              1 *
          (fun s i =>
                match s, i with
                | 0, 0 => 1
                | 0, 1 => 1
                | 0, 2 => -1
                | 1, 0 => -4
                | 1, 1 => -4
                | 1, 2 => 4
                | 2, 0 => 2
                | 2, 1 => 2
                | 2, 2 => -2
                | 3, 0 => -3
                | 3, 1 => -3
                | 3, 2 => 3
                | 4, 0 => 6
                | 4, 1 => 6
                | 4, 2 => -6
                | 5, 0 => 0
                | 5, 1 => 0
                | 5, 2 => 0,
                fun s =>
                match s with
                | 0 => -3
                | 1 => 3).2
            1 *
        Hu R.val) =
  0R:MSSMACC.LinSols⊢ 6 *
                    ((fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3).1
                          0 0 *
                        (fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3).1
                          0 0 *
                      Q R.val 0) +
                  3 *
                    ((fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3).1
                          1 0 *
                        (fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3).1
                          1 0 *
                      U R.val 0) +
                3 *
                  ((fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3).1
                        2 0 *
                      (fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3).1
                        2 0 *
                    D R.val 0) +
              2 *
                ((fun s i =>
                          match s, i with
                          | 0, 0 => 1
                          | 0, 1 => 1
                          | 0, 2 => -1
                          | 1, 0 => -4
                          | 1, 1 => -4
                          | 1, 2 => 4
                          | 2, 0 => 2
                          | 2, 1 => 2
                          | 2, 2 => -2
                          | 3, 0 => -3
                          | 3, 1 => -3
                          | 3, 2 => 3
                          | 4, 0 => 6
                          | 4, 1 => 6
                          | 4, 2 => -6
                          | 5, 0 => 0
                          | 5, 1 => 0
                          | 5, 2 => 0,
                          fun s =>
                          match s with
                          | 0 => -3
                          | 1 => 3).1
                      3 0 *
                    (fun s i =>
                          match s, i with
                          | 0, 0 => 1
                          | 0, 1 => 1
                          | 0, 2 => -1
                          | 1, 0 => -4
                          | 1, 1 => -4
                          | 1, 2 => 4
                          | 2, 0 => 2
                          | 2, 1 => 2
                          | 2, 2 => -2
                          | 3, 0 => -3
                          | 3, 1 => -3
                          | 3, 2 => 3
                          | 4, 0 => 6
                          | 4, 1 => 6
                          | 4, 2 => -6
                          | 5, 0 => 0
                          | 5, 1 => 0
                          | 5, 2 => 0,
                          fun s =>
                          match s with
                          | 0 => -3
                          | 1 => 3).1
                      3 0 *
                  L R.val 0) +
            (fun s i =>
                      match s, i with
                      | 0, 0 => 1
                      | 0, 1 => 1
                      | 0, 2 => -1
                      | 1, 0 => -4
                      | 1, 1 => -4
                      | 1, 2 => 4
                      | 2, 0 => 2
                      | 2, 1 => 2
                      | 2, 2 => -2
                      | 3, 0 => -3
                      | 3, 1 => -3
                      | 3, 2 => 3
                      | 4, 0 => 6
                      | 4, 1 => 6
                      | 4, 2 => -6
                      | 5, 0 => 0
                      | 5, 1 => 0
                      | 5, 2 => 0,
                      fun s =>
                      match s with
                      | 0 => -3
                      | 1 => 3).1
                  4 0 *
                (fun s i =>
                      match s, i with
                      | 0, 0 => 1
                      | 0, 1 => 1
                      | 0, 2 => -1
                      | 1, 0 => -4
                      | 1, 1 => -4
                      | 1, 2 => 4
                      | 2, 0 => 2
                      | 2, 1 => 2
                      | 2, 2 => -2
                      | 3, 0 => -3
                      | 3, 1 => -3
                      | 3, 2 => 3
                      | 4, 0 => 6
                      | 4, 1 => 6
                      | 4, 2 => -6
                      | 5, 0 => 0
                      | 5, 1 => 0
                      | 5, 2 => 0,
                      fun s =>
                      match s with
                      | 0 => -3
                      | 1 => 3).1
                  4 0 *
              E R.val 0 +
          (fun s i =>
                    match s, i with
                    | 0, 0 => 1
                    | 0, 1 => 1
                    | 0, 2 => -1
                    | 1, 0 => -4
                    | 1, 1 => -4
                    | 1, 2 => 4
                    | 2, 0 => 2
                    | 2, 1 => 2
                    | 2, 2 => -2
                    | 3, 0 => -3
                    | 3, 1 => -3
                    | 3, 2 => 3
                    | 4, 0 => 6
                    | 4, 1 => 6
                    | 4, 2 => -6
                    | 5, 0 => 0
                    | 5, 1 => 0
                    | 5, 2 => 0,
                    fun s =>
                    match s with
                    | 0 => -3
                    | 1 => 3).1
                5 0 *
              (fun s i =>
                    match s, i with
                    | 0, 0 => 1
                    | 0, 1 => 1
                    | 0, 2 => -1
                    | 1, 0 => -4
                    | 1, 1 => -4
                    | 1, 2 => 4
                    | 2, 0 => 2
                    | 2, 1 => 2
                    | 2, 2 => -2
                    | 3, 0 => -3
                    | 3, 1 => -3
                    | 3, 2 => 3
                    | 4, 0 => 6
                    | 4, 1 => 6
                    | 4, 2 => -6
                    | 5, 0 => 0
                    | 5, 1 => 0
                    | 5, 2 => 0,
                    fun s =>
                    match s with
                    | 0 => -3
                    | 1 => 3).1
                5 0 *
            N R.val 0 +
        (6 *
                    ((fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3).1
                          0 1 *
                        (fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3).1
                          0 1 *
                      Q R.val 1) +
                  3 *
                    ((fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3).1
                          1 1 *
                        (fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3).1
                          1 1 *
                      U R.val 1) +
                3 *
                  ((fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3).1
                        2 1 *
                      (fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3).1
                        2 1 *
                    D R.val 1) +
              2 *
                ((fun s i =>
                          match s, i with
                          | 0, 0 => 1
                          | 0, 1 => 1
                          | 0, 2 => -1
                          | 1, 0 => -4
                          | 1, 1 => -4
                          | 1, 2 => 4
                          | 2, 0 => 2
                          | 2, 1 => 2
                          | 2, 2 => -2
                          | 3, 0 => -3
                          | 3, 1 => -3
                          | 3, 2 => 3
                          | 4, 0 => 6
                          | 4, 1 => 6
                          | 4, 2 => -6
                          | 5, 0 => 0
                          | 5, 1 => 0
                          | 5, 2 => 0,
                          fun s =>
                          match s with
                          | 0 => -3
                          | 1 => 3).1
                      3 1 *
                    (fun s i =>
                          match s, i with
                          | 0, 0 => 1
                          | 0, 1 => 1
                          | 0, 2 => -1
                          | 1, 0 => -4
                          | 1, 1 => -4
                          | 1, 2 => 4
                          | 2, 0 => 2
                          | 2, 1 => 2
                          | 2, 2 => -2
                          | 3, 0 => -3
                          | 3, 1 => -3
                          | 3, 2 => 3
                          | 4, 0 => 6
                          | 4, 1 => 6
                          | 4, 2 => -6
                          | 5, 0 => 0
                          | 5, 1 => 0
                          | 5, 2 => 0,
                          fun s =>
                          match s with
                          | 0 => -3
                          | 1 => 3).1
                      3 1 *
                  L R.val 1) +
            (fun s i =>
                      match s, i with
                      | 0, 0 => 1
                      | 0, 1 => 1
                      | 0, 2 => -1
                      | 1, 0 => -4
                      | 1, 1 => -4
                      | 1, 2 => 4
                      | 2, 0 => 2
                      | 2, 1 => 2
                      | 2, 2 => -2
                      | 3, 0 => -3
                      | 3, 1 => -3
                      | 3, 2 => 3
                      | 4, 0 => 6
                      | 4, 1 => 6
                      | 4, 2 => -6
                      | 5, 0 => 0
                      | 5, 1 => 0
                      | 5, 2 => 0,
                      fun s =>
                      match s with
                      | 0 => -3
                      | 1 => 3).1
                  4 1 *
                (fun s i =>
                      match s, i with
                      | 0, 0 => 1
                      | 0, 1 => 1
                      | 0, 2 => -1
                      | 1, 0 => -4
                      | 1, 1 => -4
                      | 1, 2 => 4
                      | 2, 0 => 2
                      | 2, 1 => 2
                      | 2, 2 => -2
                      | 3, 0 => -3
                      | 3, 1 => -3
                      | 3, 2 => 3
                      | 4, 0 => 6
                      | 4, 1 => 6
                      | 4, 2 => -6
                      | 5, 0 => 0
                      | 5, 1 => 0
                      | 5, 2 => 0,
                      fun s =>
                      match s with
                      | 0 => -3
                      | 1 => 3).1
                  4 1 *
              E R.val 1 +
          (fun s i =>
                    match s, i with
                    | 0, 0 => 1
                    | 0, 1 => 1
                    | 0, 2 => -1
                    | 1, 0 => -4
                    | 1, 1 => -4
                    | 1, 2 => 4
                    | 2, 0 => 2
                    | 2, 1 => 2
                    | 2, 2 => -2
                    | 3, 0 => -3
                    | 3, 1 => -3
                    | 3, 2 => 3
                    | 4, 0 => 6
                    | 4, 1 => 6
                    | 4, 2 => -6
                    | 5, 0 => 0
                    | 5, 1 => 0
                    | 5, 2 => 0,
                    fun s =>
                    match s with
                    | 0 => -3
                    | 1 => 3).1
                5 1 *
              (fun s i =>
                    match s, i with
                    | 0, 0 => 1
                    | 0, 1 => 1
                    | 0, 2 => -1
                    | 1, 0 => -4
                    | 1, 1 => -4
                    | 1, 2 => 4
                    | 2, 0 => 2
                    | 2, 1 => 2
                    | 2, 2 => -2
                    | 3, 0 => -3
                    | 3, 1 => -3
                    | 3, 2 => 3
                    | 4, 0 => 6
                    | 4, 1 => 6
                    | 4, 2 => -6
                    | 5, 0 => 0
                    | 5, 1 => 0
                    | 5, 2 => 0,
                    fun s =>
                    match s with
                    | 0 => -3
                    | 1 => 3).1
                5 1 *
            N R.val 1) +
      (6 *
                  ((fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3).1
                        0 2 *
                      (fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3).1
                        0 2 *
                    Q R.val 2) +
                3 *
                  ((fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3).1
                        1 2 *
                      (fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3).1
                        1 2 *
                    U R.val 2) +
              3 *
                ((fun s i =>
                          match s, i with
                          | 0, 0 => 1
                          | 0, 1 => 1
                          | 0, 2 => -1
                          | 1, 0 => -4
                          | 1, 1 => -4
                          | 1, 2 => 4
                          | 2, 0 => 2
                          | 2, 1 => 2
                          | 2, 2 => -2
                          | 3, 0 => -3
                          | 3, 1 => -3
                          | 3, 2 => 3
                          | 4, 0 => 6
                          | 4, 1 => 6
                          | 4, 2 => -6
                          | 5, 0 => 0
                          | 5, 1 => 0
                          | 5, 2 => 0,
                          fun s =>
                          match s with
                          | 0 => -3
                          | 1 => 3).1
                      2 2 *
                    (fun s i =>
                          match s, i with
                          | 0, 0 => 1
                          | 0, 1 => 1
                          | 0, 2 => -1
                          | 1, 0 => -4
                          | 1, 1 => -4
                          | 1, 2 => 4
                          | 2, 0 => 2
                          | 2, 1 => 2
                          | 2, 2 => -2
                          | 3, 0 => -3
                          | 3, 1 => -3
                          | 3, 2 => 3
                          | 4, 0 => 6
                          | 4, 1 => 6
                          | 4, 2 => -6
                          | 5, 0 => 0
                          | 5, 1 => 0
                          | 5, 2 => 0,
                          fun s =>
                          match s with
                          | 0 => -3
                          | 1 => 3).1
                      2 2 *
                  D R.val 2) +
            2 *
              ((fun s i =>
                        match s, i with
                        | 0, 0 => 1
                        | 0, 1 => 1
                        | 0, 2 => -1
                        | 1, 0 => -4
                        | 1, 1 => -4
                        | 1, 2 => 4
                        | 2, 0 => 2
                        | 2, 1 => 2
                        | 2, 2 => -2
                        | 3, 0 => -3
                        | 3, 1 => -3
                        | 3, 2 => 3
                        | 4, 0 => 6
                        | 4, 1 => 6
                        | 4, 2 => -6
                        | 5, 0 => 0
                        | 5, 1 => 0
                        | 5, 2 => 0,
                        fun s =>
                        match s with
                        | 0 => -3
                        | 1 => 3).1
                    3 2 *
                  (fun s i =>
                        match s, i with
                        | 0, 0 => 1
                        | 0, 1 => 1
                        | 0, 2 => -1
                        | 1, 0 => -4
                        | 1, 1 => -4
                        | 1, 2 => 4
                        | 2, 0 => 2
                        | 2, 1 => 2
                        | 2, 2 => -2
                        | 3, 0 => -3
                        | 3, 1 => -3
                        | 3, 2 => 3
                        | 4, 0 => 6
                        | 4, 1 => 6
                        | 4, 2 => -6
                        | 5, 0 => 0
                        | 5, 1 => 0
                        | 5, 2 => 0,
                        fun s =>
                        match s with
                        | 0 => -3
                        | 1 => 3).1
                    3 2 *
                L R.val 2) +
          (fun s i =>
                    match s, i with
                    | 0, 0 => 1
                    | 0, 1 => 1
                    | 0, 2 => -1
                    | 1, 0 => -4
                    | 1, 1 => -4
                    | 1, 2 => 4
                    | 2, 0 => 2
                    | 2, 1 => 2
                    | 2, 2 => -2
                    | 3, 0 => -3
                    | 3, 1 => -3
                    | 3, 2 => 3
                    | 4, 0 => 6
                    | 4, 1 => 6
                    | 4, 2 => -6
                    | 5, 0 => 0
                    | 5, 1 => 0
                    | 5, 2 => 0,
                    fun s =>
                    match s with
                    | 0 => -3
                    | 1 => 3).1
                4 2 *
              (fun s i =>
                    match s, i with
                    | 0, 0 => 1
                    | 0, 1 => 1
                    | 0, 2 => -1
                    | 1, 0 => -4
                    | 1, 1 => -4
                    | 1, 2 => 4
                    | 2, 0 => 2
                    | 2, 1 => 2
                    | 2, 2 => -2
                    | 3, 0 => -3
                    | 3, 1 => -3
                    | 3, 2 => 3
                    | 4, 0 => 6
                    | 4, 1 => 6
                    | 4, 2 => -6
                    | 5, 0 => 0
                    | 5, 1 => 0
                    | 5, 2 => 0,
                    fun s =>
                    match s with
                    | 0 => -3
                    | 1 => 3).1
                4 2 *
            E R.val 2 +
        (fun s i =>
                  match s, i with
                  | 0, 0 => 1
                  | 0, 1 => 1
                  | 0, 2 => -1
                  | 1, 0 => -4
                  | 1, 1 => -4
                  | 1, 2 => 4
                  | 2, 0 => 2
                  | 2, 1 => 2
                  | 2, 2 => -2
                  | 3, 0 => -3
                  | 3, 1 => -3
                  | 3, 2 => 3
                  | 4, 0 => 6
                  | 4, 1 => 6
                  | 4, 2 => -6
                  | 5, 0 => 0
                  | 5, 1 => 0
                  | 5, 2 => 0,
                  fun s =>
                  match s with
                  | 0 => -3
                  | 1 => 3).1
              5 2 *
            (fun s i =>
                  match s, i with
                  | 0, 0 => 1
                  | 0, 1 => 1
                  | 0, 2 => -1
                  | 1, 0 => -4
                  | 1, 1 => -4
                  | 1, 2 => 4
                  | 2, 0 => 2
                  | 2, 1 => 2
                  | 2, 2 => -2
                  | 3, 0 => -3
                  | 3, 1 => -3
                  | 3, 2 => 3
                  | 4, 0 => 6
                  | 4, 1 => 6
                  | 4, 2 => -6
                  | 5, 0 => 0
                  | 5, 1 => 0
                  | 5, 2 => 0,
                  fun s =>
                  match s with
                  | 0 => -3
                  | 1 => 3).1
              5 2 *
          N R.val 2) +
    (2 *
            (fun s i =>
                  match s, i with
                  | 0, 0 => 1
                  | 0, 1 => 1
                  | 0, 2 => -1
                  | 1, 0 => -4
                  | 1, 1 => -4
                  | 1, 2 => 4
                  | 2, 0 => 2
                  | 2, 1 => 2
                  | 2, 2 => -2
                  | 3, 0 => -3
                  | 3, 1 => -3
                  | 3, 2 => 3
                  | 4, 0 => 6
                  | 4, 1 => 6
                  | 4, 2 => -6
                  | 5, 0 => 0
                  | 5, 1 => 0
                  | 5, 2 => 0,
                  fun s =>
                  match s with
                  | 0 => -3
                  | 1 => 3).2
              0 *
          (fun s i =>
                match s, i with
                | 0, 0 => 1
                | 0, 1 => 1
                | 0, 2 => -1
                | 1, 0 => -4
                | 1, 1 => -4
                | 1, 2 => 4
                | 2, 0 => 2
                | 2, 1 => 2
                | 2, 2 => -2
                | 3, 0 => -3
                | 3, 1 => -3
                | 3, 2 => 3
                | 4, 0 => 6
                | 4, 1 => 6
                | 4, 2 => -6
                | 5, 0 => 0
                | 5, 1 => 0
                | 5, 2 => 0,
                fun s =>
                match s with
                | 0 => -3
                | 1 => 3).2
            0 *
        Hd R.val +
      2 *
            (fun s i =>
                  match s, i with
                  | 0, 0 => 1
                  | 0, 1 => 1
                  | 0, 2 => -1
                  | 1, 0 => -4
                  | 1, 1 => -4
                  | 1, 2 => 4
                  | 2, 0 => 2
                  | 2, 1 => 2
                  | 2, 2 => -2
                  | 3, 0 => -3
                  | 3, 1 => -3
                  | 3, 2 => 3
                  | 4, 0 => 6
                  | 4, 1 => 6
                  | 4, 2 => -6
                  | 5, 0 => 0
                  | 5, 1 => 0
                  | 5, 2 => 0,
                  fun s =>
                  match s with
                  | 0 => -3
                  | 1 => 3).2
              1 *
          (fun s i =>
                match s, i with
                | 0, 0 => 1
                | 0, 1 => 1
                | 0, 2 => -1
                | 1, 0 => -4
                | 1, 1 => -4
                | 1, 2 => 4
                | 2, 0 => 2
                | 2, 1 => 2
                | 2, 2 => -2
                | 3, 0 => -3
                | 3, 1 => -3
                | 3, 2 => 3
                | 4, 0 => 6
                | 4, 1 => 6
                | 4, 2 => -6
                | 5, 0 => 0
                | 5, 1 => 0
                | 5, 2 => 0,
                fun s =>
                match s with
                | 0 => -3
                | 1 => 3).2
            1 *
        Hu R.val) =
  0]R:MSSMACC.LinSols⊢ 6 *
                    ((fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3).1
                          0 0 *
                        (fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3).1
                          0 0 *
                      Q R.val 0) +
                  3 *
                    ((fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3).1
                          1 0 *
                        (fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3).1
                          1 0 *
                      U R.val 0) +
                3 *
                  ((fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3).1
                        2 0 *
                      (fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3).1
                        2 0 *
                    D R.val 0) +
              2 *
                ((fun s i =>
                          match s, i with
                          | 0, 0 => 1
                          | 0, 1 => 1
                          | 0, 2 => -1
                          | 1, 0 => -4
                          | 1, 1 => -4
                          | 1, 2 => 4
                          | 2, 0 => 2
                          | 2, 1 => 2
                          | 2, 2 => -2
                          | 3, 0 => -3
                          | 3, 1 => -3
                          | 3, 2 => 3
                          | 4, 0 => 6
                          | 4, 1 => 6
                          | 4, 2 => -6
                          | 5, 0 => 0
                          | 5, 1 => 0
                          | 5, 2 => 0,
                          fun s =>
                          match s with
                          | 0 => -3
                          | 1 => 3).1
                      3 0 *
                    (fun s i =>
                          match s, i with
                          | 0, 0 => 1
                          | 0, 1 => 1
                          | 0, 2 => -1
                          | 1, 0 => -4
                          | 1, 1 => -4
                          | 1, 2 => 4
                          | 2, 0 => 2
                          | 2, 1 => 2
                          | 2, 2 => -2
                          | 3, 0 => -3
                          | 3, 1 => -3
                          | 3, 2 => 3
                          | 4, 0 => 6
                          | 4, 1 => 6
                          | 4, 2 => -6
                          | 5, 0 => 0
                          | 5, 1 => 0
                          | 5, 2 => 0,
                          fun s =>
                          match s with
                          | 0 => -3
                          | 1 => 3).1
                      3 0 *
                  L R.val 0) +
            (fun s i =>
                      match s, i with
                      | 0, 0 => 1
                      | 0, 1 => 1
                      | 0, 2 => -1
                      | 1, 0 => -4
                      | 1, 1 => -4
                      | 1, 2 => 4
                      | 2, 0 => 2
                      | 2, 1 => 2
                      | 2, 2 => -2
                      | 3, 0 => -3
                      | 3, 1 => -3
                      | 3, 2 => 3
                      | 4, 0 => 6
                      | 4, 1 => 6
                      | 4, 2 => -6
                      | 5, 0 => 0
                      | 5, 1 => 0
                      | 5, 2 => 0,
                      fun s =>
                      match s with
                      | 0 => -3
                      | 1 => 3).1
                  4 0 *
                (fun s i =>
                      match s, i with
                      | 0, 0 => 1
                      | 0, 1 => 1
                      | 0, 2 => -1
                      | 1, 0 => -4
                      | 1, 1 => -4
                      | 1, 2 => 4
                      | 2, 0 => 2
                      | 2, 1 => 2
                      | 2, 2 => -2
                      | 3, 0 => -3
                      | 3, 1 => -3
                      | 3, 2 => 3
                      | 4, 0 => 6
                      | 4, 1 => 6
                      | 4, 2 => -6
                      | 5, 0 => 0
                      | 5, 1 => 0
                      | 5, 2 => 0,
                      fun s =>
                      match s with
                      | 0 => -3
                      | 1 => 3).1
                  4 0 *
              E R.val 0 +
          (fun s i =>
                    match s, i with
                    | 0, 0 => 1
                    | 0, 1 => 1
                    | 0, 2 => -1
                    | 1, 0 => -4
                    | 1, 1 => -4
                    | 1, 2 => 4
                    | 2, 0 => 2
                    | 2, 1 => 2
                    | 2, 2 => -2
                    | 3, 0 => -3
                    | 3, 1 => -3
                    | 3, 2 => 3
                    | 4, 0 => 6
                    | 4, 1 => 6
                    | 4, 2 => -6
                    | 5, 0 => 0
                    | 5, 1 => 0
                    | 5, 2 => 0,
                    fun s =>
                    match s with
                    | 0 => -3
                    | 1 => 3).1
                5 0 *
              (fun s i =>
                    match s, i with
                    | 0, 0 => 1
                    | 0, 1 => 1
                    | 0, 2 => -1
                    | 1, 0 => -4
                    | 1, 1 => -4
                    | 1, 2 => 4
                    | 2, 0 => 2
                    | 2, 1 => 2
                    | 2, 2 => -2
                    | 3, 0 => -3
                    | 3, 1 => -3
                    | 3, 2 => 3
                    | 4, 0 => 6
                    | 4, 1 => 6
                    | 4, 2 => -6
                    | 5, 0 => 0
                    | 5, 1 => 0
                    | 5, 2 => 0,
                    fun s =>
                    match s with
                    | 0 => -3
                    | 1 => 3).1
                5 0 *
            N R.val 0 +
        (6 *
                    ((fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3).1
                          0 1 *
                        (fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3).1
                          0 1 *
                      Q R.val 1) +
                  3 *
                    ((fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3).1
                          1 1 *
                        (fun s i =>
                              match s, i with
                              | 0, 0 => 1
                              | 0, 1 => 1
                              | 0, 2 => -1
                              | 1, 0 => -4
                              | 1, 1 => -4
                              | 1, 2 => 4
                              | 2, 0 => 2
                              | 2, 1 => 2
                              | 2, 2 => -2
                              | 3, 0 => -3
                              | 3, 1 => -3
                              | 3, 2 => 3
                              | 4, 0 => 6
                              | 4, 1 => 6
                              | 4, 2 => -6
                              | 5, 0 => 0
                              | 5, 1 => 0
                              | 5, 2 => 0,
                              fun s =>
                              match s with
                              | 0 => -3
                              | 1 => 3).1
                          1 1 *
                      U R.val 1) +
                3 *
                  ((fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3).1
                        2 1 *
                      (fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3).1
                        2 1 *
                    D R.val 1) +
              2 *
                ((fun s i =>
                          match s, i with
                          | 0, 0 => 1
                          | 0, 1 => 1
                          | 0, 2 => -1
                          | 1, 0 => -4
                          | 1, 1 => -4
                          | 1, 2 => 4
                          | 2, 0 => 2
                          | 2, 1 => 2
                          | 2, 2 => -2
                          | 3, 0 => -3
                          | 3, 1 => -3
                          | 3, 2 => 3
                          | 4, 0 => 6
                          | 4, 1 => 6
                          | 4, 2 => -6
                          | 5, 0 => 0
                          | 5, 1 => 0
                          | 5, 2 => 0,
                          fun s =>
                          match s with
                          | 0 => -3
                          | 1 => 3).1
                      3 1 *
                    (fun s i =>
                          match s, i with
                          | 0, 0 => 1
                          | 0, 1 => 1
                          | 0, 2 => -1
                          | 1, 0 => -4
                          | 1, 1 => -4
                          | 1, 2 => 4
                          | 2, 0 => 2
                          | 2, 1 => 2
                          | 2, 2 => -2
                          | 3, 0 => -3
                          | 3, 1 => -3
                          | 3, 2 => 3
                          | 4, 0 => 6
                          | 4, 1 => 6
                          | 4, 2 => -6
                          | 5, 0 => 0
                          | 5, 1 => 0
                          | 5, 2 => 0,
                          fun s =>
                          match s with
                          | 0 => -3
                          | 1 => 3).1
                      3 1 *
                  L R.val 1) +
            (fun s i =>
                      match s, i with
                      | 0, 0 => 1
                      | 0, 1 => 1
                      | 0, 2 => -1
                      | 1, 0 => -4
                      | 1, 1 => -4
                      | 1, 2 => 4
                      | 2, 0 => 2
                      | 2, 1 => 2
                      | 2, 2 => -2
                      | 3, 0 => -3
                      | 3, 1 => -3
                      | 3, 2 => 3
                      | 4, 0 => 6
                      | 4, 1 => 6
                      | 4, 2 => -6
                      | 5, 0 => 0
                      | 5, 1 => 0
                      | 5, 2 => 0,
                      fun s =>
                      match s with
                      | 0 => -3
                      | 1 => 3).1
                  4 1 *
                (fun s i =>
                      match s, i with
                      | 0, 0 => 1
                      | 0, 1 => 1
                      | 0, 2 => -1
                      | 1, 0 => -4
                      | 1, 1 => -4
                      | 1, 2 => 4
                      | 2, 0 => 2
                      | 2, 1 => 2
                      | 2, 2 => -2
                      | 3, 0 => -3
                      | 3, 1 => -3
                      | 3, 2 => 3
                      | 4, 0 => 6
                      | 4, 1 => 6
                      | 4, 2 => -6
                      | 5, 0 => 0
                      | 5, 1 => 0
                      | 5, 2 => 0,
                      fun s =>
                      match s with
                      | 0 => -3
                      | 1 => 3).1
                  4 1 *
              E R.val 1 +
          (fun s i =>
                    match s, i with
                    | 0, 0 => 1
                    | 0, 1 => 1
                    | 0, 2 => -1
                    | 1, 0 => -4
                    | 1, 1 => -4
                    | 1, 2 => 4
                    | 2, 0 => 2
                    | 2, 1 => 2
                    | 2, 2 => -2
                    | 3, 0 => -3
                    | 3, 1 => -3
                    | 3, 2 => 3
                    | 4, 0 => 6
                    | 4, 1 => 6
                    | 4, 2 => -6
                    | 5, 0 => 0
                    | 5, 1 => 0
                    | 5, 2 => 0,
                    fun s =>
                    match s with
                    | 0 => -3
                    | 1 => 3).1
                5 1 *
              (fun s i =>
                    match s, i with
                    | 0, 0 => 1
                    | 0, 1 => 1
                    | 0, 2 => -1
                    | 1, 0 => -4
                    | 1, 1 => -4
                    | 1, 2 => 4
                    | 2, 0 => 2
                    | 2, 1 => 2
                    | 2, 2 => -2
                    | 3, 0 => -3
                    | 3, 1 => -3
                    | 3, 2 => 3
                    | 4, 0 => 6
                    | 4, 1 => 6
                    | 4, 2 => -6
                    | 5, 0 => 0
                    | 5, 1 => 0
                    | 5, 2 => 0,
                    fun s =>
                    match s with
                    | 0 => -3
                    | 1 => 3).1
                5 1 *
            N R.val 1) +
      (6 *
                  ((fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3).1
                        0 2 *
                      (fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3).1
                        0 2 *
                    Q R.val 2) +
                3 *
                  ((fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3).1
                        1 2 *
                      (fun s i =>
                            match s, i with
                            | 0, 0 => 1
                            | 0, 1 => 1
                            | 0, 2 => -1
                            | 1, 0 => -4
                            | 1, 1 => -4
                            | 1, 2 => 4
                            | 2, 0 => 2
                            | 2, 1 => 2
                            | 2, 2 => -2
                            | 3, 0 => -3
                            | 3, 1 => -3
                            | 3, 2 => 3
                            | 4, 0 => 6
                            | 4, 1 => 6
                            | 4, 2 => -6
                            | 5, 0 => 0
                            | 5, 1 => 0
                            | 5, 2 => 0,
                            fun s =>
                            match s with
                            | 0 => -3
                            | 1 => 3).1
                        1 2 *
                    U R.val 2) +
              3 *
                ((fun s i =>
                          match s, i with
                          | 0, 0 => 1
                          | 0, 1 => 1
                          | 0, 2 => -1
                          | 1, 0 => -4
                          | 1, 1 => -4
                          | 1, 2 => 4
                          | 2, 0 => 2
                          | 2, 1 => 2
                          | 2, 2 => -2
                          | 3, 0 => -3
                          | 3, 1 => -3
                          | 3, 2 => 3
                          | 4, 0 => 6
                          | 4, 1 => 6
                          | 4, 2 => -6
                          | 5, 0 => 0
                          | 5, 1 => 0
                          | 5, 2 => 0,
                          fun s =>
                          match s with
                          | 0 => -3
                          | 1 => 3).1
                      2 2 *
                    (fun s i =>
                          match s, i with
                          | 0, 0 => 1
                          | 0, 1 => 1
                          | 0, 2 => -1
                          | 1, 0 => -4
                          | 1, 1 => -4
                          | 1, 2 => 4
                          | 2, 0 => 2
                          | 2, 1 => 2
                          | 2, 2 => -2
                          | 3, 0 => -3
                          | 3, 1 => -3
                          | 3, 2 => 3
                          | 4, 0 => 6
                          | 4, 1 => 6
                          | 4, 2 => -6
                          | 5, 0 => 0
                          | 5, 1 => 0
                          | 5, 2 => 0,
                          fun s =>
                          match s with
                          | 0 => -3
                          | 1 => 3).1
                      2 2 *
                  D R.val 2) +
            2 *
              ((fun s i =>
                        match s, i with
                        | 0, 0 => 1
                        | 0, 1 => 1
                        | 0, 2 => -1
                        | 1, 0 => -4
                        | 1, 1 => -4
                        | 1, 2 => 4
                        | 2, 0 => 2
                        | 2, 1 => 2
                        | 2, 2 => -2
                        | 3, 0 => -3
                        | 3, 1 => -3
                        | 3, 2 => 3
                        | 4, 0 => 6
                        | 4, 1 => 6
                        | 4, 2 => -6
                        | 5, 0 => 0
                        | 5, 1 => 0
                        | 5, 2 => 0,
                        fun s =>
                        match s with
                        | 0 => -3
                        | 1 => 3).1
                    3 2 *
                  (fun s i =>
                        match s, i with
                        | 0, 0 => 1
                        | 0, 1 => 1
                        | 0, 2 => -1
                        | 1, 0 => -4
                        | 1, 1 => -4
                        | 1, 2 => 4
                        | 2, 0 => 2
                        | 2, 1 => 2
                        | 2, 2 => -2
                        | 3, 0 => -3
                        | 3, 1 => -3
                        | 3, 2 => 3
                        | 4, 0 => 6
                        | 4, 1 => 6
                        | 4, 2 => -6
                        | 5, 0 => 0
                        | 5, 1 => 0
                        | 5, 2 => 0,
                        fun s =>
                        match s with
                        | 0 => -3
                        | 1 => 3).1
                    3 2 *
                L R.val 2) +
          (fun s i =>
                    match s, i with
                    | 0, 0 => 1
                    | 0, 1 => 1
                    | 0, 2 => -1
                    | 1, 0 => -4
                    | 1, 1 => -4
                    | 1, 2 => 4
                    | 2, 0 => 2
                    | 2, 1 => 2
                    | 2, 2 => -2
                    | 3, 0 => -3
                    | 3, 1 => -3
                    | 3, 2 => 3
                    | 4, 0 => 6
                    | 4, 1 => 6
                    | 4, 2 => -6
                    | 5, 0 => 0
                    | 5, 1 => 0
                    | 5, 2 => 0,
                    fun s =>
                    match s with
                    | 0 => -3
                    | 1 => 3).1
                4 2 *
              (fun s i =>
                    match s, i with
                    | 0, 0 => 1
                    | 0, 1 => 1
                    | 0, 2 => -1
                    | 1, 0 => -4
                    | 1, 1 => -4
                    | 1, 2 => 4
                    | 2, 0 => 2
                    | 2, 1 => 2
                    | 2, 2 => -2
                    | 3, 0 => -3
                    | 3, 1 => -3
                    | 3, 2 => 3
                    | 4, 0 => 6
                    | 4, 1 => 6
                    | 4, 2 => -6
                    | 5, 0 => 0
                    | 5, 1 => 0
                    | 5, 2 => 0,
                    fun s =>
                    match s with
                    | 0 => -3
                    | 1 => 3).1
                4 2 *
            E R.val 2 +
        (fun s i =>
                  match s, i with
                  | 0, 0 => 1
                  | 0, 1 => 1
                  | 0, 2 => -1
                  | 1, 0 => -4
                  | 1, 1 => -4
                  | 1, 2 => 4
                  | 2, 0 => 2
                  | 2, 1 => 2
                  | 2, 2 => -2
                  | 3, 0 => -3
                  | 3, 1 => -3
                  | 3, 2 => 3
                  | 4, 0 => 6
                  | 4, 1 => 6
                  | 4, 2 => -6
                  | 5, 0 => 0
                  | 5, 1 => 0
                  | 5, 2 => 0,
                  fun s =>
                  match s with
                  | 0 => -3
                  | 1 => 3).1
              5 2 *
            (fun s i =>
                  match s, i with
                  | 0, 0 => 1
                  | 0, 1 => 1
                  | 0, 2 => -1
                  | 1, 0 => -4
                  | 1, 1 => -4
                  | 1, 2 => 4
                  | 2, 0 => 2
                  | 2, 1 => 2
                  | 2, 2 => -2
                  | 3, 0 => -3
                  | 3, 1 => -3
                  | 3, 2 => 3
                  | 4, 0 => 6
                  | 4, 1 => 6
                  | 4, 2 => -6
                  | 5, 0 => 0
                  | 5, 1 => 0
                  | 5, 2 => 0,
                  fun s =>
                  match s with
                  | 0 => -3
                  | 1 => 3).1
              5 2 *
          N R.val 2) +
    (2 *
            (fun s i =>
                  match s, i with
                  | 0, 0 => 1
                  | 0, 1 => 1
                  | 0, 2 => -1
                  | 1, 0 => -4
                  | 1, 1 => -4
                  | 1, 2 => 4
                  | 2, 0 => 2
                  | 2, 1 => 2
                  | 2, 2 => -2
                  | 3, 0 => -3
                  | 3, 1 => -3
                  | 3, 2 => 3
                  | 4, 0 => 6
                  | 4, 1 => 6
                  | 4, 2 => -6
                  | 5, 0 => 0
                  | 5, 1 => 0
                  | 5, 2 => 0,
                  fun s =>
                  match s with
                  | 0 => -3
                  | 1 => 3).2
              0 *
          (fun s i =>
                match s, i with
                | 0, 0 => 1
                | 0, 1 => 1
                | 0, 2 => -1
                | 1, 0 => -4
                | 1, 1 => -4
                | 1, 2 => 4
                | 2, 0 => 2
                | 2, 1 => 2
                | 2, 2 => -2
                | 3, 0 => -3
                | 3, 1 => -3
                | 3, 2 => 3
                | 4, 0 => 6
                | 4, 1 => 6
                | 4, 2 => -6
                | 5, 0 => 0
                | 5, 1 => 0
                | 5, 2 => 0,
                fun s =>
                match s with
                | 0 => -3
                | 1 => 3).2
            0 *
        Hd R.val +
      2 *
            (fun s i =>
                  match s, i with
                  | 0, 0 => 1
                  | 0, 1 => 1
                  | 0, 2 => -1
                  | 1, 0 => -4
                  | 1, 1 => -4
                  | 1, 2 => 4
                  | 2, 0 => 2
                  | 2, 1 => 2
                  | 2, 2 => -2
                  | 3, 0 => -3
                  | 3, 1 => -3
                  | 3, 2 => 3
                  | 4, 0 => 6
                  | 4, 1 => 6
                  | 4, 2 => -6
                  | 5, 0 => 0
                  | 5, 1 => 0
                  | 5, 2 => 0,
                  fun s =>
                  match s with
                  | 0 => -3
                  | 1 => 3).2
              1 *
          (fun s i =>
                match s, i with
                | 0, 0 => 1
                | 0, 1 => 1
                | 0, 2 => -1
                | 1, 0 => -4
                | 1, 1 => -4
                | 1, 2 => 4
                | 2, 0 => 2
                | 2, 1 => 2
                | 2, 2 => -2
                | 3, 0 => -3
                | 3, 1 => -3
                | 3, 2 => 3
                | 4, 0 => 6
                | 4, 1 => 6
                | 4, 2 => -6
                | 5, 0 => 0
                | 5, 1 => 0
                | 5, 2 => 0,
                fun s =>
                match s with
                | 0 => -3
                | 1 => 3).2
            1 *
        Hu R.val) =
  0
  simp only [mul_one, Fin.isValue, toSMSpecies_apply, one_mul, mul_neg, neg_mul, neg_neg, mul_zero,
    zero_mul, add_zero, Hd_apply, Fin.reduceFinMk, Hu_apply]R:MSSMACC.LinSols⊢ 6 * R.val (Fin.castAdd 2 (finProdFinEquiv (0, 0))) + 3 * (4 * 4 * R.val (Fin.castAdd 2 (finProdFinEquiv (1, 0)))) +
              3 * (2 * 2 * R.val (Fin.castAdd 2 (finProdFinEquiv (2, 0)))) +
            2 * (3 * 3 * R.val (Fin.castAdd 2 (finProdFinEquiv (3, 0)))) +
          6 * 6 * R.val (Fin.castAdd 2 (finProdFinEquiv (4, 0))) +
        (6 * R.val (Fin.castAdd 2 (finProdFinEquiv (0, 1))) +
                3 * (4 * 4 * R.val (Fin.castAdd 2 (finProdFinEquiv (1, 1)))) +
              3 * (2 * 2 * R.val (Fin.castAdd 2 (finProdFinEquiv (2, 1)))) +
            2 * (3 * 3 * R.val (Fin.castAdd 2 (finProdFinEquiv (3, 1)))) +
          6 * 6 * R.val (Fin.castAdd 2 (finProdFinEquiv (4, 1)))) +
      (6 * R.val (Fin.castAdd 2 (finProdFinEquiv (0, 2))) +
              3 * (4 * 4 * R.val (Fin.castAdd 2 (finProdFinEquiv (1, 2)))) +
            3 * (2 * 2 * R.val (Fin.castAdd 2 (finProdFinEquiv (2, 2)))) +
          2 * (3 * 3 * R.val (Fin.castAdd 2 (finProdFinEquiv (3, 2)))) +
        6 * 6 * R.val (Fin.castAdd 2 (finProdFinEquiv (4, 2)))) +
    (2 * 3 * 3 * R.val 18 + 2 * 3 * 3 * R.val 19) =
  0
  have hLin := R.linearSolR:MSSMACC.LinSolshLin:∀ (i : Fin MSSMACC.numberLinear), (MSSMACC.linearACCs i) R.val = 0⊢ 6 * R.val (Fin.castAdd 2 (finProdFinEquiv (0, 0))) + 3 * (4 * 4 * R.val (Fin.castAdd 2 (finProdFinEquiv (1, 0)))) +
              3 * (2 * 2 * R.val (Fin.castAdd 2 (finProdFinEquiv (2, 0)))) +
            2 * (3 * 3 * R.val (Fin.castAdd 2 (finProdFinEquiv (3, 0)))) +
          6 * 6 * R.val (Fin.castAdd 2 (finProdFinEquiv (4, 0))) +
        (6 * R.val (Fin.castAdd 2 (finProdFinEquiv (0, 1))) +
                3 * (4 * 4 * R.val (Fin.castAdd 2 (finProdFinEquiv (1, 1)))) +
              3 * (2 * 2 * R.val (Fin.castAdd 2 (finProdFinEquiv (2, 1)))) +
            2 * (3 * 3 * R.val (Fin.castAdd 2 (finProdFinEquiv (3, 1)))) +
          6 * 6 * R.val (Fin.castAdd 2 (finProdFinEquiv (4, 1)))) +
      (6 * R.val (Fin.castAdd 2 (finProdFinEquiv (0, 2))) +
              3 * (4 * 4 * R.val (Fin.castAdd 2 (finProdFinEquiv (1, 2)))) +
            3 * (2 * 2 * R.val (Fin.castAdd 2 (finProdFinEquiv (2, 2)))) +
          2 * (3 * 3 * R.val (Fin.castAdd 2 (finProdFinEquiv (3, 2)))) +
        6 * 6 * R.val (Fin.castAdd 2 (finProdFinEquiv (4, 2)))) +
    (2 * 3 * 3 * R.val 18 + 2 * 3 * 3 * R.val 19) =
  0
  simp only [MSSMACC_linearACCs] at hLinR:MSSMACC.LinSolshLin:∀ (i : Fin MSSMACC.numberLinear),
  (match i with
      | 0 => accGrav
      | 1 => accSU2
      | 2 => accSU3
      | 3 => accYY)
      R.val =
    0⊢ 6 * R.val (Fin.castAdd 2 (finProdFinEquiv (0, 0))) + 3 * (4 * 4 * R.val (Fin.castAdd 2 (finProdFinEquiv (1, 0)))) +
              3 * (2 * 2 * R.val (Fin.castAdd 2 (finProdFinEquiv (2, 0)))) +
            2 * (3 * 3 * R.val (Fin.castAdd 2 (finProdFinEquiv (3, 0)))) +
          6 * 6 * R.val (Fin.castAdd 2 (finProdFinEquiv (4, 0))) +
        (6 * R.val (Fin.castAdd 2 (finProdFinEquiv (0, 1))) +
                3 * (4 * 4 * R.val (Fin.castAdd 2 (finProdFinEquiv (1, 1)))) +
              3 * (2 * 2 * R.val (Fin.castAdd 2 (finProdFinEquiv (2, 1)))) +
            2 * (3 * 3 * R.val (Fin.castAdd 2 (finProdFinEquiv (3, 1)))) +
          6 * 6 * R.val (Fin.castAdd 2 (finProdFinEquiv (4, 1)))) +
      (6 * R.val (Fin.castAdd 2 (finProdFinEquiv (0, 2))) +
              3 * (4 * 4 * R.val (Fin.castAdd 2 (finProdFinEquiv (1, 2)))) +
            3 * (2 * 2 * R.val (Fin.castAdd 2 (finProdFinEquiv (2, 2)))) +
          2 * (3 * 3 * R.val (Fin.castAdd 2 (finProdFinEquiv (3, 2)))) +
        6 * 6 * R.val (Fin.castAdd 2 (finProdFinEquiv (4, 2)))) +
    (2 * 3 * 3 * R.val 18 + 2 * 3 * 3 * R.val 19) =
  0
  have h3 := hLin ⟨3, byR:MSSMACC.LinSolshLin:∀ (i : Fin MSSMACC.numberLinear),
  (match i with
      | 0 => accGrav
      | 1 => accSU2
      | 2 => accSU3
      | 3 => accYY)
      R.val =
    0⊢ 3 < MSSMACC.numberLinearR:MSSMACC.LinSolshLin:∀ (i : Fin MSSMACC.numberLinear),
  (match i with
      | 0 => accGrav
      | 1 => accSU2
      | 2 => accSU3
      | 3 => accYY)
      R.val =
    0h3:(match ⟨3, ⋯⟩ with
    | 0 => accGrav
    | 1 => accSU2
    | 2 => accSU3
    | 3 => accYY)
    R.val =
  0⊢ 6 * R.val (Fin.castAdd 2 (finProdFinEquiv (0, 0))) + 3 * (4 * 4 * R.val (Fin.castAdd 2 (finProdFinEquiv (1, 0)))) +
              3 * (2 * 2 * R.val (Fin.castAdd 2 (finProdFinEquiv (2, 0)))) +
            2 * (3 * 3 * R.val (Fin.castAdd 2 (finProdFinEquiv (3, 0)))) +
          6 * 6 * R.val (Fin.castAdd 2 (finProdFinEquiv (4, 0))) +
        (6 * R.val (Fin.castAdd 2 (finProdFinEquiv (0, 1))) +
                3 * (4 * 4 * R.val (Fin.castAdd 2 (finProdFinEquiv (1, 1)))) +
              3 * (2 * 2 * R.val (Fin.castAdd 2 (finProdFinEquiv (2, 1)))) +
            2 * (3 * 3 * R.val (Fin.castAdd 2 (finProdFinEquiv (3, 1)))) +
          6 * 6 * R.val (Fin.castAdd 2 (finProdFinEquiv (4, 1)))) +
      (6 * R.val (Fin.castAdd 2 (finProdFinEquiv (0, 2))) +
              3 * (4 * 4 * R.val (Fin.castAdd 2 (finProdFinEquiv (1, 2)))) +
            3 * (2 * 2 * R.val (Fin.castAdd 2 (finProdFinEquiv (2, 2)))) +
          2 * (3 * 3 * R.val (Fin.castAdd 2 (finProdFinEquiv (3, 2)))) +
        6 * 6 * R.val (Fin.castAdd 2 (finProdFinEquiv (4, 2)))) +
    (2 * 3 * 3 * R.val 18 + 2 * 3 * 3 * R.val 19) =
  0 simpAll goals completed! 🐙R:MSSMACC.LinSolshLin:∀ (i : Fin MSSMACC.numberLinear),
  (match i with
      | 0 => accGrav
      | 1 => accSU2
      | 2 => accSU3
      | 3 => accYY)
      R.val =
    0h3:(match ⟨3, ⋯⟩ with
    | 0 => accGrav
    | 1 => accSU2
    | 2 => accSU3
    | 3 => accYY)
    R.val =
  0⊢ 6 * R.val (Fin.castAdd 2 (finProdFinEquiv (0, 0))) + 3 * (4 * 4 * R.val (Fin.castAdd 2 (finProdFinEquiv (1, 0)))) +
              3 * (2 * 2 * R.val (Fin.castAdd 2 (finProdFinEquiv (2, 0)))) +
            2 * (3 * 3 * R.val (Fin.castAdd 2 (finProdFinEquiv (3, 0)))) +
          6 * 6 * R.val (Fin.castAdd 2 (finProdFinEquiv (4, 0))) +
        (6 * R.val (Fin.castAdd 2 (finProdFinEquiv (0, 1))) +
                3 * (4 * 4 * R.val (Fin.castAdd 2 (finProdFinEquiv (1, 1)))) +
              3 * (2 * 2 * R.val (Fin.castAdd 2 (finProdFinEquiv (2, 1)))) +
            2 * (3 * 3 * R.val (Fin.castAdd 2 (finProdFinEquiv (3, 1)))) +
          6 * 6 * R.val (Fin.castAdd 2 (finProdFinEquiv (4, 1)))) +
      (6 * R.val (Fin.castAdd 2 (finProdFinEquiv (0, 2))) +
              3 * (4 * 4 * R.val (Fin.castAdd 2 (finProdFinEquiv (1, 2)))) +
            3 * (2 * 2 * R.val (Fin.castAdd 2 (finProdFinEquiv (2, 2)))) +
          2 * (3 * 3 * R.val (Fin.castAdd 2 (finProdFinEquiv (3, 2)))) +
        6 * 6 * R.val (Fin.castAdd 2 (finProdFinEquiv (4, 2)))) +
    (2 * 3 * 3 * R.val 18 + 2 * 3 * 3 * R.val 19) =
  0⟩R:MSSMACC.LinSolshLin:∀ (i : Fin MSSMACC.numberLinear),
  (match i with
      | 0 => accGrav
      | 1 => accSU2
      | 2 => accSU3
      | 3 => accYY)
      R.val =
    0h3:(match ⟨3, ⋯⟩ with
    | 0 => accGrav
    | 1 => accSU2
    | 2 => accSU3
    | 3 => accYY)
    R.val =
  0⊢ 6 * R.val (Fin.castAdd 2 (finProdFinEquiv (0, 0))) + 3 * (4 * 4 * R.val (Fin.castAdd 2 (finProdFinEquiv (1, 0)))) +
              3 * (2 * 2 * R.val (Fin.castAdd 2 (finProdFinEquiv (2, 0)))) +
            2 * (3 * 3 * R.val (Fin.castAdd 2 (finProdFinEquiv (3, 0)))) +
          6 * 6 * R.val (Fin.castAdd 2 (finProdFinEquiv (4, 0))) +
        (6 * R.val (Fin.castAdd 2 (finProdFinEquiv (0, 1))) +
                3 * (4 * 4 * R.val (Fin.castAdd 2 (finProdFinEquiv (1, 1)))) +
              3 * (2 * 2 * R.val (Fin.castAdd 2 (finProdFinEquiv (2, 1)))) +
            2 * (3 * 3 * R.val (Fin.castAdd 2 (finProdFinEquiv (3, 1)))) +
          6 * 6 * R.val (Fin.castAdd 2 (finProdFinEquiv (4, 1)))) +
      (6 * R.val (Fin.castAdd 2 (finProdFinEquiv (0, 2))) +
              3 * (4 * 4 * R.val (Fin.castAdd 2 (finProdFinEquiv (1, 2)))) +
            3 * (2 * 2 * R.val (Fin.castAdd 2 (finProdFinEquiv (2, 2)))) +
          2 * (3 * 3 * R.val (Fin.castAdd 2 (finProdFinEquiv (3, 2)))) +
        6 * 6 * R.val (Fin.castAdd 2 (finProdFinEquiv (4, 2)))) +
    (2 * 3 * 3 * R.val 18 + 2 * 3 * 3 * R.val 19) =
  0
  simp only [accYY, LinearMap.coe_mk, AddHom.coe_mk] at h3R:MSSMACC.LinSolshLin:∀ (i : Fin MSSMACC.numberLinear),
  (match i with
      | 0 => accGrav
      | 1 => accSU2
      | 2 => accSU3
      | 3 => accYY)
      R.val =
    0h3:∑ i, (Q R.val i + 8 * U R.val i + 2 * D R.val i + 3 * L R.val i + 6 * E R.val i) + 3 * (Hd R.val + Hu R.val) = 0⊢ 6 * R.val (Fin.castAdd 2 (finProdFinEquiv (0, 0))) + 3 * (4 * 4 * R.val (Fin.castAdd 2 (finProdFinEquiv (1, 0)))) +
              3 * (2 * 2 * R.val (Fin.castAdd 2 (finProdFinEquiv (2, 0)))) +
            2 * (3 * 3 * R.val (Fin.castAdd 2 (finProdFinEquiv (3, 0)))) +
          6 * 6 * R.val (Fin.castAdd 2 (finProdFinEquiv (4, 0))) +
        (6 * R.val (Fin.castAdd 2 (finProdFinEquiv (0, 1))) +
                3 * (4 * 4 * R.val (Fin.castAdd 2 (finProdFinEquiv (1, 1)))) +
              3 * (2 * 2 * R.val (Fin.castAdd 2 (finProdFinEquiv (2, 1)))) +
            2 * (3 * 3 * R.val (Fin.castAdd 2 (finProdFinEquiv (3, 1)))) +
          6 * 6 * R.val (Fin.castAdd 2 (finProdFinEquiv (4, 1)))) +
      (6 * R.val (Fin.castAdd 2 (finProdFinEquiv (0, 2))) +
              3 * (4 * 4 * R.val (Fin.castAdd 2 (finProdFinEquiv (1, 2)))) +
            3 * (2 * 2 * R.val (Fin.castAdd 2 (finProdFinEquiv (2, 2)))) +
          2 * (3 * 3 * R.val (Fin.castAdd 2 (finProdFinEquiv (3, 2)))) +
        6 * 6 * R.val (Fin.castAdd 2 (finProdFinEquiv (4, 2)))) +
    (2 * 3 * 3 * R.val 18 + 2 * 3 * 3 * R.val 19) =
  0
  erw [Fin.sum_univ_threeR:MSSMACC.LinSolshLin:∀ (i : Fin MSSMACC.numberLinear),
  (match i with
      | 0 => accGrav
      | 1 => accSU2
      | 2 => accSU3
      | 3 => accYY)
      R.val =
    0h3:Q R.val 0 + 8 * U R.val 0 + 2 * D R.val 0 + 3 * L R.val 0 + 6 * E R.val 0 +
        (Q R.val 1 + 8 * U R.val 1 + 2 * D R.val 1 + 3 * L R.val 1 + 6 * E R.val 1) +
      (Q R.val 2 + 8 * U R.val 2 + 2 * D R.val 2 + 3 * L R.val 2 + 6 * E R.val 2) +
    3 * (Hd R.val + Hu R.val) =
  0⊢ 6 * R.val (Fin.castAdd 2 (finProdFinEquiv (0, 0))) + 3 * (4 * 4 * R.val (Fin.castAdd 2 (finProdFinEquiv (1, 0)))) +
              3 * (2 * 2 * R.val (Fin.castAdd 2 (finProdFinEquiv (2, 0)))) +
            2 * (3 * 3 * R.val (Fin.castAdd 2 (finProdFinEquiv (3, 0)))) +
          6 * 6 * R.val (Fin.castAdd 2 (finProdFinEquiv (4, 0))) +
        (6 * R.val (Fin.castAdd 2 (finProdFinEquiv (0, 1))) +
                3 * (4 * 4 * R.val (Fin.castAdd 2 (finProdFinEquiv (1, 1)))) +
              3 * (2 * 2 * R.val (Fin.castAdd 2 (finProdFinEquiv (2, 1)))) +
            2 * (3 * 3 * R.val (Fin.castAdd 2 (finProdFinEquiv (3, 1)))) +
          6 * 6 * R.val (Fin.castAdd 2 (finProdFinEquiv (4, 1)))) +
      (6 * R.val (Fin.castAdd 2 (finProdFinEquiv (0, 2))) +
              3 * (4 * 4 * R.val (Fin.castAdd 2 (finProdFinEquiv (1, 2)))) +
            3 * (2 * 2 * R.val (Fin.castAdd 2 (finProdFinEquiv (2, 2)))) +
          2 * (3 * 3 * R.val (Fin.castAdd 2 (finProdFinEquiv (3, 2)))) +
        6 * 6 * R.val (Fin.castAdd 2 (finProdFinEquiv (4, 2)))) +
    (2 * 3 * 3 * R.val 18 + 2 * 3 * 3 * R.val 19) =
  0]R:MSSMACC.LinSolshLin:∀ (i : Fin MSSMACC.numberLinear),
  (match i with
      | 0 => accGrav
      | 1 => accSU2
      | 2 => accSU3
      | 3 => accYY)
      R.val =
    0h3:Q R.val 0 + 8 * U R.val 0 + 2 * D R.val 0 + 3 * L R.val 0 + 6 * E R.val 0 +
        (Q R.val 1 + 8 * U R.val 1 + 2 * D R.val 1 + 3 * L R.val 1 + 6 * E R.val 1) +
      (Q R.val 2 + 8 * U R.val 2 + 2 * D R.val 2 + 3 * L R.val 2 + 6 * E R.val 2) +
    3 * (Hd R.val + Hu R.val) =
  0⊢ 6 * R.val (Fin.castAdd 2 (finProdFinEquiv (0, 0))) + 3 * (4 * 4 * R.val (Fin.castAdd 2 (finProdFinEquiv (1, 0)))) +
              3 * (2 * 2 * R.val (Fin.castAdd 2 (finProdFinEquiv (2, 0)))) +
            2 * (3 * 3 * R.val (Fin.castAdd 2 (finProdFinEquiv (3, 0)))) +
          6 * 6 * R.val (Fin.castAdd 2 (finProdFinEquiv (4, 0))) +
        (6 * R.val (Fin.castAdd 2 (finProdFinEquiv (0, 1))) +
                3 * (4 * 4 * R.val (Fin.castAdd 2 (finProdFinEquiv (1, 1)))) +
              3 * (2 * 2 * R.val (Fin.castAdd 2 (finProdFinEquiv (2, 1)))) +
            2 * (3 * 3 * R.val (Fin.castAdd 2 (finProdFinEquiv (3, 1)))) +
          6 * 6 * R.val (Fin.castAdd 2 (finProdFinEquiv (4, 1)))) +
      (6 * R.val (Fin.castAdd 2 (finProdFinEquiv (0, 2))) +
              3 * (4 * 4 * R.val (Fin.castAdd 2 (finProdFinEquiv (1, 2)))) +
            3 * (2 * 2 * R.val (Fin.castAdd 2 (finProdFinEquiv (2, 2)))) +
          2 * (3 * 3 * R.val (Fin.castAdd 2 (finProdFinEquiv (3, 2)))) +
        6 * 6 * R.val (Fin.castAdd 2 (finProdFinEquiv (4, 2)))) +
    (2 * 3 * 3 * R.val 18 + 2 * 3 * 3 * R.val 19) =
  0 at h3
  simp only [Fin.isValue, toSMSpecies_apply, Nat.reduceMul, Hd_apply, Fin.reduceFinMk,
    Hu_apply] at h3R:MSSMACC.LinSolshLin:∀ (i : Fin MSSMACC.numberLinear),
  (match i with
      | 0 => accGrav
      | 1 => accSU2
      | 2 => accSU3
      | 3 => accYY)
      R.val =
    0h3:R.val (Fin.castAdd 2 (finProdFinEquiv (0, 0))) + 8 * R.val (Fin.castAdd 2 (finProdFinEquiv (1, 0))) +
              2 * R.val (Fin.castAdd 2 (finProdFinEquiv (2, 0))) +
            3 * R.val (Fin.castAdd 2 (finProdFinEquiv (3, 0))) +
          6 * R.val (Fin.castAdd 2 (finProdFinEquiv (4, 0))) +
        (R.val (Fin.castAdd 2 (finProdFinEquiv (0, 1))) + 8 * R.val (Fin.castAdd 2 (finProdFinEquiv (1, 1))) +
              2 * R.val (Fin.castAdd 2 (finProdFinEquiv (2, 1))) +
            3 * R.val (Fin.castAdd 2 (finProdFinEquiv (3, 1))) +
          6 * R.val (Fin.castAdd 2 (finProdFinEquiv (4, 1)))) +
      (R.val (Fin.castAdd 2 (finProdFinEquiv (0, 2))) + 8 * R.val (Fin.castAdd 2 (finProdFinEquiv (1, 2))) +
            2 * R.val (Fin.castAdd 2 (finProdFinEquiv (2, 2))) +
          3 * R.val (Fin.castAdd 2 (finProdFinEquiv (3, 2))) +
        6 * R.val (Fin.castAdd 2 (finProdFinEquiv (4, 2)))) +
    3 * (R.val 18 + R.val 19) =
  0⊢ 6 * R.val (Fin.castAdd 2 (finProdFinEquiv (0, 0))) + 3 * (4 * 4 * R.val (Fin.castAdd 2 (finProdFinEquiv (1, 0)))) +
              3 * (2 * 2 * R.val (Fin.castAdd 2 (finProdFinEquiv (2, 0)))) +
            2 * (3 * 3 * R.val (Fin.castAdd 2 (finProdFinEquiv (3, 0)))) +
          6 * 6 * R.val (Fin.castAdd 2 (finProdFinEquiv (4, 0))) +
        (6 * R.val (Fin.castAdd 2 (finProdFinEquiv (0, 1))) +
                3 * (4 * 4 * R.val (Fin.castAdd 2 (finProdFinEquiv (1, 1)))) +
              3 * (2 * 2 * R.val (Fin.castAdd 2 (finProdFinEquiv (2, 1)))) +
            2 * (3 * 3 * R.val (Fin.castAdd 2 (finProdFinEquiv (3, 1)))) +
          6 * 6 * R.val (Fin.castAdd 2 (finProdFinEquiv (4, 1)))) +
      (6 * R.val (Fin.castAdd 2 (finProdFinEquiv (0, 2))) +
              3 * (4 * 4 * R.val (Fin.castAdd 2 (finProdFinEquiv (1, 2)))) +
            3 * (2 * 2 * R.val (Fin.castAdd 2 (finProdFinEquiv (2, 2)))) +
          2 * (3 * 3 * R.val (Fin.castAdd 2 (finProdFinEquiv (3, 2)))) +
        6 * 6 * R.val (Fin.castAdd 2 (finProdFinEquiv (4, 2)))) +
    (2 * 3 * 3 * R.val 18 + 2 * 3 * 3 * R.val 19) =
  0
  linear_combination (norm := ring_nfAll goals completed! 🐙) 6 * h3