Получить x как результат для Re [x] в математике

Я пытаюсь получить реальную часть результата операции, которая включает неопределенную переменную (скажем, х ).

Как я могу заставить Mathematica возвращать x , когда я выполняю Re [x] , если я знаю, что x никогда не будет комплексным числом? Я думаю, что для этого нужно сообщить системе Mathematica, что x реально, но я не знаю как.

В моем случае выражение, для которого мне нужна действительная часть, сложнее, чем простая переменная, но концепция останется прежней.

Некоторые примеры:

INPUT              OUTPUT         DESIRED RESULT
-----              ------         --------------
Re[x]              Re[x]          x
Re[1]              1              1
Re[Sin[x]]         Re[Sin[x]]     Sin[x]
Re[1+x+I]          1 + Re[x]      1+x
Re[1 + x*I]        1-Im[x]        1