{R : Type u} →
  {M : Type v} →
    {N : Type w} →
      {inst : CommSemiring R} →
        {inst_1 : AddCommMonoid M} →
          {inst_2 : Module R M} → {inst_3 : AddCommMonoid N} → {inst_4 : Module R N} → QuadraticMap R M N → ℕ