∀ {α : Type u_1} {β : α → Type u_2} {δ : Type u_3} (f : δ → (a : α) → β a → δ),
  (∀ (d : δ) (a₁ : α) (b₁ : β a₁) (a₂ : α) (b₂ : β a₂), f (f d a₁ b₁) a₂ b₂ = f (f d a₂ b₂) a₁ b₁) →
    RightCommutative fun d s => f d s.fst s.snd