Yo (probablemente re)inventé una prueba combinatoria muy corta del teorema de Wilson que enseño perennemente a mis estudiantes. Si ocurre en la literatura y alguien puede decirme dónde primero (o incluso en absoluto), me gustaría atribuir el crédito correctamente.
De hecho, demuestro $p! - p(p-1) \equiv 0 \mod p^2$.
$p!$ cuenta la función biyectiva de ${\Bbb Z}/p$ a ${\Bbb Z}/p$ y ${\Bbb Z}/p \times {\Bbb Z}/p$ actúa sobre ellas por $f(x)\stackrel{(a,b)}{\rightarrow} f(x-a)+b$. Excluyendo funciones de la forma $cx+d, c\not=0$, todas las órbitas tienen tamaño $p^2$.