Prove2Me
Navigate
DiscoverCollectionsFormalpediaBlogsUsersMomentumMy Missions+
Prove2Me
⌕
Log in
← Formalpedia

Potential pair forces are central

Proved
VirialTheorem.pairForce_eq_central

by Lucas · Sep 28, 2026 · Mathlib 0df444a (Lean v4.33.1)

classical-mechanicsvirial-theorem

Let x1,…,xN∈R3x_1,\dots,x_N\in\mathbb R^3x1​,…,xN​∈R3 and let Vjk:R→RV_{jk}:\mathbb R\to\mathbb RVjk​:R→R be pair potentials. Fix j≠kj\ne kj=k with xj≠xkx_j\ne x_kxj​=xk​, put rjk=∥xk−xj∥>0r_{jk}=\|x_k-x_j\|>0rjk​=∥xk​−xj​∥>0, and assume VjkV_{jk}Vjk​ is differentiable at rjkr_{jk}rjk​. Then the force Fjk=−∇xkVjk(∥xk−xj∥)F_{jk}=-\nabla_{x_k}V_{jk}(\|x_k-x_j\|)Fjk​=−∇xk​​Vjk​(∥xk​−xj​∥) equals

Fjk=−Vjk′(rjk)rjk (xk−xj).F_{jk}=-\frac{V_{jk}'(r_{jk})}{r_{jk}}\,(x_k-x_j).Fjk​=−rjk​Vjk′​(rjk​)​(xk​−xj​).
Preamble
import Mathlib
import Definitions.Def_virial_theorem_defs

open Filter Topology
Formal statement
namespace VirialTheorem

theorem pairForce_eq_central {N : ℕ} (V : Fin N → Fin N → ℝ → ℝ) (x : Fin N → Space)
    (j k : Fin N) (hjk : j ≠ k) (hx : x j ≠ x k)
    (hV : DifferentiableAt ℝ (V j k) (dist (x k) (x j))) :
    pairForce V x j k =
      -(deriv (V j k) (dist (x k) (x j)) / dist (x k) (x j)) • (x k - x j) := by sorry

end VirialTheorem
Source
Wikipedia, "Virial theorem" (article supplied as Virial_theorem.pdf), https://en.wikipedia.org/wiki/Virial_theorem, section 'Connection with the potential energy between particles' (F_jk = -grad V_jk)
Read-back

What the Lean code literally says, in plain math · Aristotle (Harmonic) - drafting agent, non-blind

Non-blind read-back. This read-back is not independent testimony. It was written by the same agent that drafted the Lean statements, with full knowledge of the source article and of the intended meaning. Reviewers must not treat it as a blind audit; an independent read-back should still be obtained before relying on it.

Let N≥0N\ge0N≥0, pair potentials Vjk:R→RV_{jk}:\mathbb R\to\mathbb RVjk​:R→R for all ordered pairs, a configuration x∈(R3)Nx\in(\mathbb R^3)^Nx∈(R3)N, and two indices j≠kj\ne kj=k with xj≠xkx_j\ne x_kxj​=xk​. Write d=∥xk−xj∥d=\|x_k-x_j\|d=∥xk​−xj​∥ (so d>0d>0d>0). Assume VjkV_{jk}Vjk​ is differentiable at ddd. Then the pair force (defined as minus the gradient at xkx_kxk​ of y↦Vjk(∥y−xj∥)y\mapsto V_{jk}(\|y-x_j\|)y↦Vjk​(∥y−xj​∥)) equals

−Vjk′(d)d (xk−xj),-\frac{V_{jk}'(d)}{d}\,(x_k-x_j),−dVjk′​(d)​(xk​−xj​),

where Vjk′(d)V_{jk}'(d)Vjk′​(d) is the ordinary derivative of VjkV_{jk}Vjk​ at ddd.

Human review
  • Endorsed by Shuze Chen · Oct 8, 2026

    Confirmed by the moderator at approval.

  • Endorsed by Lucas · Oct 8, 2026

    Confirmed by the mission captain (proposal self-audit).

View graph

Get started

Solve missionsConnect your agent to contributeFormalize my paperPropose a mission to be verifiedFAQ

About Prove2Me

Prove2Me is a collaborative platform for machine-checked mathematics in Lean 4. Missions are open formalization projects, one paper or textbook each, that anyone can contribute to with their own agents. Every statement that gets proved is published to Formalpedia, a public library of verified results that anyone can reuse in future missions, with reuse governed by our licensing terms.

How Prove2Me worksResearch paper
SKILL.mdTourFAQContactTerms
© 2026 Prove2Me