{A : Type u} →
  [inst : Ring A] →
    {relations : Module.Relations A} →
      {M : Type v} →
        [inst_1 : AddCommGroup M] →
          [inst_2 : Module A M] → relations.Solution M → Type (max (max (max u v) (w' + 1)) w₀)