/– 0.999… = 1 -/
inductive One : 0.999… → Prop where
| one : One x
/– e^iπ = -1 -/
inductive MinusOne : π → Prop where
| minusOne : MinusOne e^ix
/– e^iπ = -(1+) -/
inductive MinusOnePlus : πNat || πZero → Prop where
| minusOnePlus : MinusOnePlus e^ix
/– e^iπ + 1 = 0 -/
inductive Zero : π → Prop where
| zero : Zero (e^ix + 1)
/– e^iπ + 1 = -0 -/
inductive MinusZero : πNat || πZero → Prop where
| minusZero : MinusZero (e^ix + 1)