Let a, b and d be given.
Let m be given.
Let n be given.
We prove the intermediate
claim LdN:
nat_p d.
An exact proof term for the current goal is Hd2.
We prove the intermediate
claim Ld1:
d ∈ ω ∖ {0}.
An exact proof term for the current goal is LdN.
rewrite the current goal using
SingE 0 d H3 (from right to left) at position 2.
An exact proof term for the current goal is Hd2.
We prove the intermediate
claim LdS:
SNo d.
An
exact proof term for the current goal is
nat_p_SNo d LdN.
An exact proof term for the current goal is Hd1.
An exact proof term for the current goal is Hd2.
An exact proof term for the current goal is Hd3.
An exact proof term for the current goal is Hd1.
An exact proof term for the current goal is Hd2.
Let c be given.
Apply Hd3 c to the current goal.
An exact proof term for the current goal is H2.
An exact proof term for the current goal is H3.
Apply and3I to the current goal.
An exact proof term for the current goal is Lda.
An exact proof term for the current goal is Ldb.
Let d' be given.
We prove the intermediate
claim Ld'd:
divides_int d' d.
rewrite the current goal using H2 (from right to left).
An exact proof term for the current goal is Hm.
An exact proof term for the current goal is Hd'a.
An exact proof term for the current goal is Hn.
An exact proof term for the current goal is Hd'b.
An exact proof term for the current goal is Ld'd.
An exact proof term for the current goal is Hd2.
∎