∀[P:pi_term()]. pi-rank(P) = (pi-rank(pirep-body(P)) + 1) ∈ ℕ supposing ↑pirep?(P)
{ Auto }
1. P : pi_term()
2. ↑pirep?(P)
⊢ pi-rank(P) = (pi-rank(pirep-body(P)) + 1) ∈ ℕ