Let k be given.
Assume Hk.
Apply Hkn to the current goal.
Assume _ H.
Apply H to the current goal.
Let m be given.
Assume H.
Apply H to the current goal.
We will
prove k = 1 ∨ k = n.
Apply dneg to the current goal.
We prove the intermediate
claim L1k:
1 ∈ k.
An exact proof term for the current goal is H4.
We prove the intermediate
claim Ln0:
n = 0.
Use transitivity with and
k * m.
Use symmetry.
An exact proof term for the current goal is Hkm.
rewrite the current goal using H4 (from left to right).
rewrite the current goal using Ln0 (from right to left) at position 2.
An exact proof term for the current goal is H1.
Apply H3 to the current goal.
Apply orIL to the current goal.
An exact proof term for the current goal is H4.
We prove the intermediate
claim L1m:
1 ∈ m.
An exact proof term for the current goal is H4.
We prove the intermediate
claim Ln0:
n = 0.
Use transitivity with and
k * m.
Use symmetry.
An exact proof term for the current goal is Hkm.
rewrite the current goal using H4 (from left to right).
An
exact proof term for the current goal is
mul_nat_0R k.
rewrite the current goal using Ln0 (from right to left) at position 2.
An exact proof term for the current goal is H1.
Apply H3 to the current goal.
Apply orIR to the current goal.
Use transitivity with and
k * m.
rewrite the current goal using H4 (from left to right).
Use symmetry.
An
exact proof term for the current goal is
mul_nat_1R k.
An exact proof term for the current goal is Hkm.
Apply H2 to the current goal.
Apply andI to the current goal.
An exact proof term for the current goal is Hn.
We use k to witness the existential quantifier.
Apply andI to the current goal.
An exact proof term for the current goal is Hk.
We use m to witness the existential quantifier.
Apply andI to the current goal.
An exact proof term for the current goal is Hm.
We will
prove 1 ∈ k ∧ 1 ∈ m ∧ k * m = n.
Apply and3I to the current goal.
An exact proof term for the current goal is L1k.
An exact proof term for the current goal is L1m.
An exact proof term for the current goal is Hkm.