∀p:ℕ. (prime(p)
(∀x:ℕ. (x^p ≡ x mod p)))
{ TACTIC:(Auto THEN BLemma `eqmod-prime-order-fixedpoints` THEN Auto) }
1. p : ℕ
2. prime(p)
3. x : ℕ
⊢ ∃T:Type. ∃f:T ⟶ T. (T ~ ℕx^p ∧ Inj(T;T;f) ∧ {x:T| (f x) = x ∈ T} ~ ℕx ∧ (∀x:T. ((f^p x) = x ∈ T)))