(R ι : Type u) →
  [inst : CommSemiring R] →
    (M : Type v) →
      [inst_1 : AddCommMonoid M] →
        [inst_2 : Module R M] → (PiTensorProduct R fun x => M) → (PiTensorProduct R fun x => M) → Prop