∀ {M : Type u_4} {N : Type u_5} [inst : Monoid M] [inst_1 : Monoid N] {R : M → N → Prop},
  R 1 1 →
    (Relator.LiftFun R (Relator.LiftFun R R) (fun x1 x2 => x1 * x2) fun x1 x2 => x1 * x2) →
      Relator.LiftFun (List.Forall₂ R) R List.prod List.prod