theorem cesInner_pos {α ρ K L : ℝ} (hα : 0 < α) (hα1 : α < 1)
(hK : 0 < K) (hL : 0 < L) :
0 < cesInner α ρ K L := by
simp only [cesInner]
exact add_pos (mul_pos hα (rpow_pos_of_pos hK ρ))
(mul_pos (by linarith) (rpow_pos_of_pos hL ρ))Two-Factor CES Production Function (Layer 1 of Macro Extension)