.....upcase.....
1. g : IMonoid
2. n : ℤ
3. 0 < n
4. ((n - 1) ⋅ e) = e ∈ |g|
⊢ (n ⋅ e) = e ∈ |g|
{ RepUnfolds ``mon_nat_op nat_op`` 0 }
⊢ Π(*,e) 0 ≤ i < n. e = e ∈ |g|