Resolve[ForAll[x,x^2+1>0]]