∀[I:Interval]. ∀[f:I ⟶ℝ].  ifun(f;I) ∈ ℙ supposing icompact(I)
{ ProveWfLemma }
1. I : Interval
2. f : I ⟶ℝ
3. icompact(I)
⊢ f ∈ [left-endpoint(I), right-endpoint(I)] ⟶ℝ