∀[n:ℕ]. ∀[p:ℙ^n]. (proj-rev(n;p) ∈ ℙ^n)
{ (Auto THEN DVar `p' THEN MemTypeCD THEN Auto) }
1. n : ℕ
2. p : ℝ^n + 1
3. ∃k:ℕn + 1. p k ≠ r0
⊢ proj-rev(n;p) ∈ ℝ^n + 1
.....set predicate.....
1. n : ℕ
2. p : ℝ^n + 1
3. ∃k:ℕn + 1. p k ≠ r0
⊢ ∃k:ℕn + 1. proj-rev(n;p) k ≠ r0