Let n be given.
Assume Hn.
We prove the intermediate
claim Lxn:
SNo (x ^ n).
We will
prove 1 ≤ x ^ (ordsucc n).
rewrite the current goal using
exp_SNo_nat_S x Hx n Hn (from left to right).
We will
prove 1 ≤ x * x ^ n.
rewrite the current goal using
mul_SNo_oneL 1 SNo_1 (from right to left).
We will
prove 1 * 1 ≤ x * x ^ n.
We will prove 0 ≤ 1.
Apply SNoLtLe to the current goal.
An exact proof term for the current goal is SNoLt_0_1.
We will prove 0 ≤ 1.
Apply SNoLtLe to the current goal.
An exact proof term for the current goal is SNoLt_0_1.
We will prove 1 ≤ x.
An exact proof term for the current goal is Hx1.
An exact proof term for the current goal is IHn.
∎