∀ {C : Type u} [inst : CategoryTheory.Category.{v, u} C] [inst_1 : CategoryTheory.Limits.HasFiniteProducts C]
  [inst_2 : CategoryTheory.Limits.HasPullbacks C] (X Y : CategoryTheory.Dial C),
  X.tensorObjImpl Y =
    { src := X.src ⨯ Y.src, tgt := X.tgt ⨯ Y.tgt,
      rel :=
        (CategoryTheory.Subobject.pullback
                (CategoryTheory.Limits.prod.map CategoryTheory.Limits.prod.fst CategoryTheory.Limits.prod.fst)).obj
            X.rel ⊓
          (CategoryTheory.Subobject.pullback
                (CategoryTheory.Limits.prod.map CategoryTheory.Limits.prod.snd CategoryTheory.Limits.prod.snd)).obj
            Y.rel }