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