∀[i:ℤ]. ∀[n:ℕ]. (i^n ~ i^n)
{ ((UnivCD THENA Auto) THEN Unfold `fastexp` 0 THEN GenConclAtAddr [2]) }
1. i : ℤ
2. n : ℕ
3. v : ∃j:{ℤ| (j = i^n ∈ ℤ)}@i
4. (TERMOF{efficient-exp-ext:o, 1:l} i n) = v ∈ (∃j:{ℤ| (j = i^n ∈ ℤ)})@i
⊢ i^n ~ v