pf |
---|
Apply nat_ind with λ x0 . ∀ x1 : ι → ι . (∀ x2 . x2 ∈ x0 ⟶ nat_p (x1 x2)) ⟶ ∀ x2 . x2 ∈ x0 ⟶ divides_nat (x1 x2) (nat_primrec 1 (λ x3 x4 . mul_nat (x1 x3) x4) x0) leaving 2 subgoals.
Let x0 of type ι → ι be given.
Assume H0: ∀ x1 . x1 ∈ 0 ⟶ nat_p (x0 x1).
Let x1 of type ι be given.
Assume H1: x1 ∈ 0.
Apply FalseE with divides_nat (x0 x1) (nat_primrec 1 (λ x2 x3 . mul_nat (x0 x2) x3) 0).
Apply EmptyE with x1.
The subproof is completed by applying H1.
Let x0 of type ι be given.
Assume H1: ∀ x1 : ι → ι . (∀ x2 . x2 ∈ x0 ⟶ nat_p (x1 x2)) ⟶ ∀ x2 . x2 ∈ x0 ⟶ divides_nat (x1 x2) (nat_primrec 1 (λ x3 x4 . mul_nat (x1 x3) x4) x0).
Let x1 of type ι → ι be given.
Let x2 of type ι be given.
Apply ordsuccE with x0, x2, divides_nat (x1 x2) (nat_primrec 1 (λ x3 x4 . mul_nat (x1 x3) x4) (ordsucc x0)) leaving 3 subgoals.
The subproof is completed by applying H3.
Assume H8: x2 ∈ x0.
Apply unknownprop_f799b99d854d7bca6941dc7751c0c00a5bf29ac2d7e070aa318a7a7ed9ce8fa0 with x1 x2, nat_primrec 1 (λ x3 x4 . mul_nat (x1 x3) x4) x0, nat_primrec 1 (λ x3 x4 . mul_nat (x1 x3) x4) (ordsucc x0) leaving 2 subgoals.
Apply H1 with x1, x2 leaving 2 subgoals.
The subproof is completed by applying L4.
The subproof is completed by applying H8.
■
|
|