566theorem embed_pos (γ : Generator) (n : LogicNat) : 0 < embed γ n := by
proof body
Term-mode proof.
567 induction n with 568 | identity => exact one_pos 569 | step n ih => 570 show 0 < γ.value * embed γ n 571 exact mul_pos γ.pos ih 572 573/-- **Multiplicative homomorphism**: addition in `LogicNat` corresponds 574to multiplication of orbit elements. This is the structural fact that 575`LogicNat` *is* the orbit, parameterized by iteration count. -/
depends on (18)
Lean names referenced from this declaration's body.