{R : Type uR} →
  (A : Type uA) →
    {M₂ : Type uM₂} →
      [inst : CommRing R] →
        [inst_1 : CommRing A] →
          [inst_2 : AddCommGroup M₂] →
            [inst_3 : Algebra R A] →
              [inst_4 : Module R M₂] → [Invertible 2] → QuadraticForm R M₂ → QuadraticForm A (TensorProduct R A M₂)