∀[x:ℝ]. (-(x) ∈ ℝ)
{ (ProveWfLemma THEN D 1 THEN MemTypeCD THEN Auto) }
.....set predicate..... 
1. x : ℕ+ ⟶ ℤ
2. regular-seq(x)
⊢ regular-seq(λn.(-(x n)))