Metamath Proof Explorer


Theorem dfwppr

Description: Alternate definition of aweak pseudoprime X , which fulfils ( N ^ X ) == N (modulo X ), see Wikipedia "Fermat pseudoprime", https://en.wikipedia.org/wiki/Fermat_pseudoprime , 29-May-2023. (Contributed by AV, 31-May-2023)

Ref Expression
Assertion dfwppr ⊢ N ∈ ℕ ∧ X ∈ ℕ → N X mod X = N mod X ↔ X ∥ N X − N

Proof

Step Hyp Ref Expression
1 simpr ⊢ N ∈ ℕ ∧ X ∈ ℕ → X ∈ ℕ
2 nnz ⊢ N ∈ ℕ → N ∈ ℤ
3 nnnn0 ⊢ X ∈ ℕ → X ∈ ℕ 0
4 zexpcl ⊢ N ∈ ℤ ∧ X ∈ ℕ 0 → N X ∈ ℤ
5 2 3 4 syl2an ⊢ N ∈ ℕ ∧ X ∈ ℕ → N X ∈ ℤ
6 2 adantr ⊢ N ∈ ℕ ∧ X ∈ ℕ → N ∈ ℤ
7 moddvds ⊢ X ∈ ℕ ∧ N X ∈ ℤ ∧ N ∈ ℤ → N X mod X = N mod X ↔ X ∥ N X − N
8 1 5 6 7 syl3anc ⊢ N ∈ ℕ ∧ X ∈ ℕ → N X mod X = N mod X ↔ X ∥ N X − N