Users' Mathboxes Mathbox for Thierry Arnoux < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  psgnfzto1stlem Structured version   Visualization version   GIF version

Theorem psgnfzto1stlem 30660
Description: Lemma for psgnfzto1st 30665. Our permutation of rank (𝑛 + 1) can be written as a permutation of rank 𝑛 composed with a transposition. (Contributed by Thierry Arnoux, 21-Aug-2020.)
Hypothesis
Ref Expression
psgnfzto1st.d 𝐷 = (1...𝑁)
Assertion
Ref Expression
psgnfzto1stlem ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → (𝑖𝐷 ↦ if(𝑖 = 1, (𝐾 + 1), if(𝑖 ≤ (𝐾 + 1), (𝑖 − 1), 𝑖))) = (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)}) ∘ (𝑖𝐷 ↦ if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖)))))
Distinct variable groups:   𝐷,𝑖   𝑖,𝐾
Allowed substitution hint:   𝑁(𝑖)

Proof of Theorem psgnfzto1stlem
Dummy variable 𝑥 is distinct from all other variables.
StepHypRef Expression
1 ovex 7055 . . . . 5 (𝐾 + 1) ∈ V
2 ovex 7055 . . . . . 6 (𝑖 − 1) ∈ V
3 vex 3443 . . . . . 6 𝑖 ∈ V
42, 3ifex 4435 . . . . 5 if(𝑖 ≤ (𝐾 + 1), (𝑖 − 1), 𝑖) ∈ V
51, 4ifex 4435 . . . 4 if(𝑖 = 1, (𝐾 + 1), if(𝑖 ≤ (𝐾 + 1), (𝑖 − 1), 𝑖)) ∈ V
6 eqid 2797 . . . 4 (𝑖𝐷 ↦ if(𝑖 = 1, (𝐾 + 1), if(𝑖 ≤ (𝐾 + 1), (𝑖 − 1), 𝑖))) = (𝑖𝐷 ↦ if(𝑖 = 1, (𝐾 + 1), if(𝑖 ≤ (𝐾 + 1), (𝑖 − 1), 𝑖)))
75, 6fnmpti 6366 . . 3 (𝑖𝐷 ↦ if(𝑖 = 1, (𝐾 + 1), if(𝑖 ≤ (𝐾 + 1), (𝑖 − 1), 𝑖))) Fn 𝐷
87a1i 11 . 2 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → (𝑖𝐷 ↦ if(𝑖 = 1, (𝐾 + 1), if(𝑖 ≤ (𝐾 + 1), (𝑖 − 1), 𝑖))) Fn 𝐷)
9 psgnfzto1st.d . . . . 5 𝐷 = (1...𝑁)
10 eqid 2797 . . . . 5 (pmTrsp‘𝐷) = (pmTrsp‘𝐷)
119, 10pmtrto1cl 30659 . . . 4 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → ((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)}) ∈ ran (pmTrsp‘𝐷))
12 eqid 2797 . . . . 5 ran (pmTrsp‘𝐷) = ran (pmTrsp‘𝐷)
1310, 12pmtrff1o 18326 . . . 4 (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)}) ∈ ran (pmTrsp‘𝐷) → ((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)}):𝐷1-1-onto𝐷)
14 f1ofn 6491 . . . 4 (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)}):𝐷1-1-onto𝐷 → ((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)}) Fn 𝐷)
1511, 13, 143syl 18 . . 3 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → ((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)}) Fn 𝐷)
16 simpr 485 . . . . . . . 8 ((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ 𝑖 = 1) → 𝑖 = 1)
1716iftrued 4395 . . . . . . 7 ((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ 𝑖 = 1) → if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖)) = 𝐾)
18 simpl 483 . . . . . . . . . 10 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → 𝐾 ∈ ℕ)
1918nnred 11507 . . . . . . . . . . 11 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → 𝐾 ∈ ℝ)
20 fz1ssnn 12792 . . . . . . . . . . . . 13 (1...𝑁) ⊆ ℕ
219eleq2i 2876 . . . . . . . . . . . . . . 15 ((𝐾 + 1) ∈ 𝐷 ↔ (𝐾 + 1) ∈ (1...𝑁))
2221biimpi 217 . . . . . . . . . . . . . 14 ((𝐾 + 1) ∈ 𝐷 → (𝐾 + 1) ∈ (1...𝑁))
2322adantl 482 . . . . . . . . . . . . 13 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → (𝐾 + 1) ∈ (1...𝑁))
2420, 23sseldi 3893 . . . . . . . . . . . 12 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → (𝐾 + 1) ∈ ℕ)
2524nnred 11507 . . . . . . . . . . 11 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → (𝐾 + 1) ∈ ℝ)
26 elfz1b 12830 . . . . . . . . . . . . . . 15 ((𝐾 + 1) ∈ (1...𝑁) ↔ ((𝐾 + 1) ∈ ℕ ∧ 𝑁 ∈ ℕ ∧ (𝐾 + 1) ≤ 𝑁))
2726simp2bi 1139 . . . . . . . . . . . . . 14 ((𝐾 + 1) ∈ (1...𝑁) → 𝑁 ∈ ℕ)
2822, 27syl 17 . . . . . . . . . . . . 13 ((𝐾 + 1) ∈ 𝐷𝑁 ∈ ℕ)
2928adantl 482 . . . . . . . . . . . 12 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → 𝑁 ∈ ℕ)
3029nnred 11507 . . . . . . . . . . 11 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → 𝑁 ∈ ℝ)
3119lep1d 11425 . . . . . . . . . . 11 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → 𝐾 ≤ (𝐾 + 1))
32 elfzle2 12765 . . . . . . . . . . . 12 ((𝐾 + 1) ∈ (1...𝑁) → (𝐾 + 1) ≤ 𝑁)
3323, 32syl 17 . . . . . . . . . . 11 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → (𝐾 + 1) ≤ 𝑁)
3419, 25, 30, 31, 33letrd 10650 . . . . . . . . . 10 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → 𝐾𝑁)
3529nnzd 11940 . . . . . . . . . . 11 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → 𝑁 ∈ ℤ)
36 fznn 12829 . . . . . . . . . . 11 (𝑁 ∈ ℤ → (𝐾 ∈ (1...𝑁) ↔ (𝐾 ∈ ℕ ∧ 𝐾𝑁)))
3735, 36syl 17 . . . . . . . . . 10 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → (𝐾 ∈ (1...𝑁) ↔ (𝐾 ∈ ℕ ∧ 𝐾𝑁)))
3818, 34, 37mpbir2and 709 . . . . . . . . 9 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → 𝐾 ∈ (1...𝑁))
3938, 9syl6eleqr 2896 . . . . . . . 8 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → 𝐾𝐷)
4039ad2antrr 722 . . . . . . 7 ((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ 𝑖 = 1) → 𝐾𝐷)
4117, 40eqeltrd 2885 . . . . . 6 ((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ 𝑖 = 1) → if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖)) ∈ 𝐷)
42 simpr 485 . . . . . . . 8 ((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) → ¬ 𝑖 = 1)
4342iffalsed 4398 . . . . . . 7 ((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) → if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖)) = if(𝑖𝐾, (𝑖 − 1), 𝑖))
44 simpr 485 . . . . . . . . . 10 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ 𝑖𝐾) → 𝑖𝐾)
4544iftrued 4395 . . . . . . . . 9 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ 𝑖𝐾) → if(𝑖𝐾, (𝑖 − 1), 𝑖) = (𝑖 − 1))
4642adantr 481 . . . . . . . . . . . . 13 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ 𝑖𝐾) → ¬ 𝑖 = 1)
479, 20eqsstri 3928 . . . . . . . . . . . . . . . 16 𝐷 ⊆ ℕ
48 simpllr 772 . . . . . . . . . . . . . . . 16 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ 𝑖𝐾) → 𝑖𝐷)
4947, 48sseldi 3893 . . . . . . . . . . . . . . 15 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ 𝑖𝐾) → 𝑖 ∈ ℕ)
50 nn1m1nn 11512 . . . . . . . . . . . . . . 15 (𝑖 ∈ ℕ → (𝑖 = 1 ∨ (𝑖 − 1) ∈ ℕ))
5149, 50syl 17 . . . . . . . . . . . . . 14 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ 𝑖𝐾) → (𝑖 = 1 ∨ (𝑖 − 1) ∈ ℕ))
5251ord 859 . . . . . . . . . . . . 13 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ 𝑖𝐾) → (¬ 𝑖 = 1 → (𝑖 − 1) ∈ ℕ))
5346, 52mpd 15 . . . . . . . . . . . 12 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ 𝑖𝐾) → (𝑖 − 1) ∈ ℕ)
5453nnred 11507 . . . . . . . . . . . . 13 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ 𝑖𝐾) → (𝑖 − 1) ∈ ℝ)
5549nnred 11507 . . . . . . . . . . . . 13 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ 𝑖𝐾) → 𝑖 ∈ ℝ)
5630ad3antrrr 726 . . . . . . . . . . . . 13 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ 𝑖𝐾) → 𝑁 ∈ ℝ)
5755lem1d 11427 . . . . . . . . . . . . 13 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ 𝑖𝐾) → (𝑖 − 1) ≤ 𝑖)
5848, 9syl6eleq 2895 . . . . . . . . . . . . . 14 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ 𝑖𝐾) → 𝑖 ∈ (1...𝑁))
59 elfzle2 12765 . . . . . . . . . . . . . 14 (𝑖 ∈ (1...𝑁) → 𝑖𝑁)
6058, 59syl 17 . . . . . . . . . . . . 13 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ 𝑖𝐾) → 𝑖𝑁)
6154, 55, 56, 57, 60letrd 10650 . . . . . . . . . . . 12 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ 𝑖𝐾) → (𝑖 − 1) ≤ 𝑁)
6253, 61jca 512 . . . . . . . . . . 11 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ 𝑖𝐾) → ((𝑖 − 1) ∈ ℕ ∧ (𝑖 − 1) ≤ 𝑁))
63 fznn 12829 . . . . . . . . . . . . 13 (𝑁 ∈ ℤ → ((𝑖 − 1) ∈ (1...𝑁) ↔ ((𝑖 − 1) ∈ ℕ ∧ (𝑖 − 1) ≤ 𝑁)))
6435, 63syl 17 . . . . . . . . . . . 12 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → ((𝑖 − 1) ∈ (1...𝑁) ↔ ((𝑖 − 1) ∈ ℕ ∧ (𝑖 − 1) ≤ 𝑁)))
6564ad3antrrr 726 . . . . . . . . . . 11 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ 𝑖𝐾) → ((𝑖 − 1) ∈ (1...𝑁) ↔ ((𝑖 − 1) ∈ ℕ ∧ (𝑖 − 1) ≤ 𝑁)))
6662, 65mpbird 258 . . . . . . . . . 10 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ 𝑖𝐾) → (𝑖 − 1) ∈ (1...𝑁))
6766, 9syl6eleqr 2896 . . . . . . . . 9 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ 𝑖𝐾) → (𝑖 − 1) ∈ 𝐷)
6845, 67eqeltrd 2885 . . . . . . . 8 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ 𝑖𝐾) → if(𝑖𝐾, (𝑖 − 1), 𝑖) ∈ 𝐷)
69 simpr 485 . . . . . . . . . 10 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ ¬ 𝑖𝐾) → ¬ 𝑖𝐾)
7069iffalsed 4398 . . . . . . . . 9 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ ¬ 𝑖𝐾) → if(𝑖𝐾, (𝑖 − 1), 𝑖) = 𝑖)
71 simpllr 772 . . . . . . . . 9 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ ¬ 𝑖𝐾) → 𝑖𝐷)
7270, 71eqeltrd 2885 . . . . . . . 8 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ ¬ 𝑖𝐾) → if(𝑖𝐾, (𝑖 − 1), 𝑖) ∈ 𝐷)
7368, 72pm2.61dan 809 . . . . . . 7 ((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) → if(𝑖𝐾, (𝑖 − 1), 𝑖) ∈ 𝐷)
7443, 73eqeltrd 2885 . . . . . 6 ((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) → if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖)) ∈ 𝐷)
7541, 74pm2.61dan 809 . . . . 5 (((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) → if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖)) ∈ 𝐷)
7675ralrimiva 3151 . . . 4 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → ∀𝑖𝐷 if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖)) ∈ 𝐷)
77 eqid 2797 . . . . 5 (𝑖𝐷 ↦ if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖))) = (𝑖𝐷 ↦ if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖)))
7877fnmpt 6363 . . . 4 (∀𝑖𝐷 if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖)) ∈ 𝐷 → (𝑖𝐷 ↦ if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖))) Fn 𝐷)
7976, 78syl 17 . . 3 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → (𝑖𝐷 ↦ if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖))) Fn 𝐷)
8077rnmptss 6756 . . . 4 (∀𝑖𝐷 if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖)) ∈ 𝐷 → ran (𝑖𝐷 ↦ if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖))) ⊆ 𝐷)
8176, 80syl 17 . . 3 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → ran (𝑖𝐷 ↦ if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖))) ⊆ 𝐷)
82 fnco 6342 . . 3 ((((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)}) Fn 𝐷 ∧ (𝑖𝐷 ↦ if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖))) Fn 𝐷 ∧ ran (𝑖𝐷 ↦ if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖))) ⊆ 𝐷) → (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)}) ∘ (𝑖𝐷 ↦ if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖)))) Fn 𝐷)
8315, 79, 81, 82syl3anc 1364 . 2 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)}) ∘ (𝑖𝐷 ↦ if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖)))) Fn 𝐷)
84 simpr 485 . . . . . . . 8 ((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ 𝑥 = 1) → 𝑥 = 1)
8584iftrued 4395 . . . . . . 7 ((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ 𝑥 = 1) → if(𝑥 = 1, 𝐾, if(𝑥𝐾, (𝑥 − 1), 𝑥)) = 𝐾)
8685fveq2d 6549 . . . . . 6 ((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ 𝑥 = 1) → (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘if(𝑥 = 1, 𝐾, if(𝑥𝐾, (𝑥 − 1), 𝑥))) = (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘𝐾))
87 fzfi 13194 . . . . . . . . . 10 (1...𝑁) ∈ Fin
889, 87eqeltri 2881 . . . . . . . . 9 𝐷 ∈ Fin
8988a1i 11 . . . . . . . 8 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → 𝐷 ∈ Fin)
9023, 21sylibr 235 . . . . . . . 8 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → (𝐾 + 1) ∈ 𝐷)
9119ltp1d 11424 . . . . . . . . 9 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → 𝐾 < (𝐾 + 1))
9219, 91ltned 10629 . . . . . . . 8 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → 𝐾 ≠ (𝐾 + 1))
9310pmtrprfv 18316 . . . . . . . 8 ((𝐷 ∈ Fin ∧ (𝐾𝐷 ∧ (𝐾 + 1) ∈ 𝐷𝐾 ≠ (𝐾 + 1))) → (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘𝐾) = (𝐾 + 1))
9489, 39, 90, 92, 93syl13anc 1365 . . . . . . 7 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘𝐾) = (𝐾 + 1))
9594ad2antrr 722 . . . . . 6 ((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ 𝑥 = 1) → (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘𝐾) = (𝐾 + 1))
9686, 95eqtr2d 2834 . . . . 5 ((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ 𝑥 = 1) → (𝐾 + 1) = (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘if(𝑥 = 1, 𝐾, if(𝑥𝐾, (𝑥 − 1), 𝑥))))
9788a1i 11 . . . . . . . . . 10 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 = (𝐾 + 1)) → 𝐷 ∈ Fin)
9839ad4antr 728 . . . . . . . . . 10 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 = (𝐾 + 1)) → 𝐾𝐷)
9990ad4antr 728 . . . . . . . . . 10 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 = (𝐾 + 1)) → (𝐾 + 1) ∈ 𝐷)
10092ad4antr 728 . . . . . . . . . 10 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 = (𝐾 + 1)) → 𝐾 ≠ (𝐾 + 1))
10110pmtrprfv2 30387 . . . . . . . . . 10 ((𝐷 ∈ Fin ∧ (𝐾𝐷 ∧ (𝐾 + 1) ∈ 𝐷𝐾 ≠ (𝐾 + 1))) → (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘(𝐾 + 1)) = 𝐾)
10297, 98, 99, 100, 101syl13anc 1365 . . . . . . . . 9 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 = (𝐾 + 1)) → (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘(𝐾 + 1)) = 𝐾)
10391ad4antr 728 . . . . . . . . . . . . . 14 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 = (𝐾 + 1)) → 𝐾 < (𝐾 + 1))
104 simpr 485 . . . . . . . . . . . . . 14 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 = (𝐾 + 1)) → 𝑥 = (𝐾 + 1))
105103, 104breqtrrd 4996 . . . . . . . . . . . . 13 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 = (𝐾 + 1)) → 𝐾 < 𝑥)
10619ad4antr 728 . . . . . . . . . . . . . 14 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 = (𝐾 + 1)) → 𝐾 ∈ ℝ)
107 simpr 485 . . . . . . . . . . . . . . . . 17 (((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) → 𝑥𝐷)
10847, 107sseldi 3893 . . . . . . . . . . . . . . . 16 (((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) → 𝑥 ∈ ℕ)
109108nnred 11507 . . . . . . . . . . . . . . 15 (((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) → 𝑥 ∈ ℝ)
110109ad3antrrr 726 . . . . . . . . . . . . . 14 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 = (𝐾 + 1)) → 𝑥 ∈ ℝ)
111106, 110ltnled 10640 . . . . . . . . . . . . 13 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 = (𝐾 + 1)) → (𝐾 < 𝑥 ↔ ¬ 𝑥𝐾))
112105, 111mpbid 233 . . . . . . . . . . . 12 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 = (𝐾 + 1)) → ¬ 𝑥𝐾)
113112iffalsed 4398 . . . . . . . . . . 11 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 = (𝐾 + 1)) → if(𝑥𝐾, (𝑥 − 1), 𝑥) = 𝑥)
114113, 104eqtrd 2833 . . . . . . . . . 10 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 = (𝐾 + 1)) → if(𝑥𝐾, (𝑥 − 1), 𝑥) = (𝐾 + 1))
115114fveq2d 6549 . . . . . . . . 9 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 = (𝐾 + 1)) → (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘if(𝑥𝐾, (𝑥 − 1), 𝑥)) = (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘(𝐾 + 1)))
116104oveq1d 7038 . . . . . . . . . 10 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 = (𝐾 + 1)) → (𝑥 − 1) = ((𝐾 + 1) − 1))
117106recnd 10522 . . . . . . . . . . 11 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 = (𝐾 + 1)) → 𝐾 ∈ ℂ)
118 1cnd 10489 . . . . . . . . . . 11 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 = (𝐾 + 1)) → 1 ∈ ℂ)
119117, 118pncand 10852 . . . . . . . . . 10 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 = (𝐾 + 1)) → ((𝐾 + 1) − 1) = 𝐾)
120116, 119eqtrd 2833 . . . . . . . . 9 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 = (𝐾 + 1)) → (𝑥 − 1) = 𝐾)
121102, 115, 1203eqtr4rd 2844 . . . . . . . 8 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 = (𝐾 + 1)) → (𝑥 − 1) = (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘if(𝑥𝐾, (𝑥 − 1), 𝑥)))
122 simplr 765 . . . . . . . . . . . . 13 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → 𝑥 ≤ (𝐾 + 1))
123 simpr 485 . . . . . . . . . . . . . 14 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → 𝑥 ≠ (𝐾 + 1))
124123necomd 3041 . . . . . . . . . . . . 13 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → (𝐾 + 1) ≠ 𝑥)
125109ad3antrrr 726 . . . . . . . . . . . . . 14 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → 𝑥 ∈ ℝ)
12625ad4antr 728 . . . . . . . . . . . . . 14 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → (𝐾 + 1) ∈ ℝ)
127125, 126ltlend 10638 . . . . . . . . . . . . 13 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → (𝑥 < (𝐾 + 1) ↔ (𝑥 ≤ (𝐾 + 1) ∧ (𝐾 + 1) ≠ 𝑥)))
128122, 124, 127mpbir2and 709 . . . . . . . . . . . 12 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → 𝑥 < (𝐾 + 1))
129108ad3antrrr 726 . . . . . . . . . . . . 13 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → 𝑥 ∈ ℕ)
130 simpll 763 . . . . . . . . . . . . . 14 (((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) → 𝐾 ∈ ℕ)
131130ad3antrrr 726 . . . . . . . . . . . . 13 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → 𝐾 ∈ ℕ)
132 nnleltp1 11891 . . . . . . . . . . . . 13 ((𝑥 ∈ ℕ ∧ 𝐾 ∈ ℕ) → (𝑥𝐾𝑥 < (𝐾 + 1)))
133129, 131, 132syl2anc 584 . . . . . . . . . . . 12 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → (𝑥𝐾𝑥 < (𝐾 + 1)))
134128, 133mpbird 258 . . . . . . . . . . 11 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → 𝑥𝐾)
135134iftrued 4395 . . . . . . . . . 10 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → if(𝑥𝐾, (𝑥 − 1), 𝑥) = (𝑥 − 1))
136135fveq2d 6549 . . . . . . . . 9 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘if(𝑥𝐾, (𝑥 − 1), 𝑥)) = (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘(𝑥 − 1)))
13788a1i 11 . . . . . . . . . 10 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → 𝐷 ∈ Fin)
13839ad4antr 728 . . . . . . . . . . 11 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → 𝐾𝐷)
139 simp-5r 782 . . . . . . . . . . 11 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → (𝐾 + 1) ∈ 𝐷)
140 simpr 485 . . . . . . . . . . . . . . . . 17 ((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) → ¬ 𝑥 = 1)
141140ad2antrr 722 . . . . . . . . . . . . . . . 16 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → ¬ 𝑥 = 1)
142 elnn1uz2 12178 . . . . . . . . . . . . . . . . . 18 (𝑥 ∈ ℕ ↔ (𝑥 = 1 ∨ 𝑥 ∈ (ℤ‘2)))
143129, 142sylib 219 . . . . . . . . . . . . . . . . 17 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → (𝑥 = 1 ∨ 𝑥 ∈ (ℤ‘2)))
144143ord 859 . . . . . . . . . . . . . . . 16 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → (¬ 𝑥 = 1 → 𝑥 ∈ (ℤ‘2)))
145141, 144mpd 15 . . . . . . . . . . . . . . 15 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → 𝑥 ∈ (ℤ‘2))
146 uz2m1nn 12176 . . . . . . . . . . . . . . 15 (𝑥 ∈ (ℤ‘2) → (𝑥 − 1) ∈ ℕ)
147145, 146syl 17 . . . . . . . . . . . . . 14 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → (𝑥 − 1) ∈ ℕ)
148139, 28syl 17 . . . . . . . . . . . . . 14 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → 𝑁 ∈ ℕ)
149147nnred 11507 . . . . . . . . . . . . . . 15 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → (𝑥 − 1) ∈ ℝ)
150131, 139, 30syl2anc 584 . . . . . . . . . . . . . . 15 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → 𝑁 ∈ ℝ)
151125lem1d 11427 . . . . . . . . . . . . . . 15 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → (𝑥 − 1) ≤ 𝑥)
152107ad3antrrr 726 . . . . . . . . . . . . . . . . 17 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → 𝑥𝐷)
153152, 9syl6eleq 2895 . . . . . . . . . . . . . . . 16 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → 𝑥 ∈ (1...𝑁))
154 elfzle2 12765 . . . . . . . . . . . . . . . 16 (𝑥 ∈ (1...𝑁) → 𝑥𝑁)
155153, 154syl 17 . . . . . . . . . . . . . . 15 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → 𝑥𝑁)
156149, 125, 150, 151, 155letrd 10650 . . . . . . . . . . . . . 14 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → (𝑥 − 1) ≤ 𝑁)
157147, 148, 1563jca 1121 . . . . . . . . . . . . 13 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → ((𝑥 − 1) ∈ ℕ ∧ 𝑁 ∈ ℕ ∧ (𝑥 − 1) ≤ 𝑁))
158 elfz1b 12830 . . . . . . . . . . . . 13 ((𝑥 − 1) ∈ (1...𝑁) ↔ ((𝑥 − 1) ∈ ℕ ∧ 𝑁 ∈ ℕ ∧ (𝑥 − 1) ≤ 𝑁))
159157, 158sylibr 235 . . . . . . . . . . . 12 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → (𝑥 − 1) ∈ (1...𝑁))
160159, 9syl6eleqr 2896 . . . . . . . . . . 11 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → (𝑥 − 1) ∈ 𝐷)
161138, 139, 1603jca 1121 . . . . . . . . . 10 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → (𝐾𝐷 ∧ (𝐾 + 1) ∈ 𝐷 ∧ (𝑥 − 1) ∈ 𝐷))
162131, 139, 92syl2anc 584 . . . . . . . . . . 11 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → 𝐾 ≠ (𝐾 + 1))
163 simpr 485 . . . . . . . . . . . . . . . 16 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝐾 = (𝑥 − 1)) → 𝐾 = (𝑥 − 1))
164163oveq1d 7038 . . . . . . . . . . . . . . 15 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝐾 = (𝑥 − 1)) → (𝐾 + 1) = ((𝑥 − 1) + 1))
165109recnd 10522 . . . . . . . . . . . . . . . . 17 (((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) → 𝑥 ∈ ℂ)
166165ad3antrrr 726 . . . . . . . . . . . . . . . 16 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝐾 = (𝑥 − 1)) → 𝑥 ∈ ℂ)
167 1cnd 10489 . . . . . . . . . . . . . . . 16 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝐾 = (𝑥 − 1)) → 1 ∈ ℂ)
168166, 167npcand 10855 . . . . . . . . . . . . . . 15 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝐾 = (𝑥 − 1)) → ((𝑥 − 1) + 1) = 𝑥)
169164, 168eqtr2d 2834 . . . . . . . . . . . . . 14 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝐾 = (𝑥 − 1)) → 𝑥 = (𝐾 + 1))
170169ex 413 . . . . . . . . . . . . 13 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) → (𝐾 = (𝑥 − 1) → 𝑥 = (𝐾 + 1)))
171170necon3d 3007 . . . . . . . . . . . 12 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) → (𝑥 ≠ (𝐾 + 1) → 𝐾 ≠ (𝑥 − 1)))
172171imp 407 . . . . . . . . . . 11 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → 𝐾 ≠ (𝑥 − 1))
173149, 125, 126, 151, 128lelttrd 10651 . . . . . . . . . . . . 13 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → (𝑥 − 1) < (𝐾 + 1))
174149, 173ltned 10629 . . . . . . . . . . . 12 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → (𝑥 − 1) ≠ (𝐾 + 1))
175174necomd 3041 . . . . . . . . . . 11 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → (𝐾 + 1) ≠ (𝑥 − 1))
176162, 172, 1753jca 1121 . . . . . . . . . 10 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → (𝐾 ≠ (𝐾 + 1) ∧ 𝐾 ≠ (𝑥 − 1) ∧ (𝐾 + 1) ≠ (𝑥 − 1)))
17710pmtrprfv3 18317 . . . . . . . . . 10 ((𝐷 ∈ Fin ∧ (𝐾𝐷 ∧ (𝐾 + 1) ∈ 𝐷 ∧ (𝑥 − 1) ∈ 𝐷) ∧ (𝐾 ≠ (𝐾 + 1) ∧ 𝐾 ≠ (𝑥 − 1) ∧ (𝐾 + 1) ≠ (𝑥 − 1))) → (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘(𝑥 − 1)) = (𝑥 − 1))
178137, 161, 176, 177syl3anc 1364 . . . . . . . . 9 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘(𝑥 − 1)) = (𝑥 − 1))
179136, 178eqtr2d 2834 . . . . . . . 8 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → (𝑥 − 1) = (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘if(𝑥𝐾, (𝑥 − 1), 𝑥)))
180121, 179pm2.61dane 3074 . . . . . . 7 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) → (𝑥 − 1) = (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘if(𝑥𝐾, (𝑥 − 1), 𝑥)))
181109ad2antrr 722 . . . . . . . . . . . . . 14 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥𝐾) → 𝑥 ∈ ℝ)
18219ad3antrrr 726 . . . . . . . . . . . . . 14 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥𝐾) → 𝐾 ∈ ℝ)
18325ad3antrrr 726 . . . . . . . . . . . . . 14 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥𝐾) → (𝐾 + 1) ∈ ℝ)
184 simpr 485 . . . . . . . . . . . . . 14 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥𝐾) → 𝑥𝐾)
18531ad3antrrr 726 . . . . . . . . . . . . . 14 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥𝐾) → 𝐾 ≤ (𝐾 + 1))
186181, 182, 183, 184, 185letrd 10650 . . . . . . . . . . . . 13 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥𝐾) → 𝑥 ≤ (𝐾 + 1))
187186ex 413 . . . . . . . . . . . 12 ((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) → (𝑥𝐾𝑥 ≤ (𝐾 + 1)))
188187con3d 155 . . . . . . . . . . 11 ((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) → (¬ 𝑥 ≤ (𝐾 + 1) → ¬ 𝑥𝐾))
189188imp 407 . . . . . . . . . 10 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ ¬ 𝑥 ≤ (𝐾 + 1)) → ¬ 𝑥𝐾)
190189iffalsed 4398 . . . . . . . . 9 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ ¬ 𝑥 ≤ (𝐾 + 1)) → if(𝑥𝐾, (𝑥 − 1), 𝑥) = 𝑥)
191190fveq2d 6549 . . . . . . . 8 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ ¬ 𝑥 ≤ (𝐾 + 1)) → (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘if(𝑥𝐾, (𝑥 − 1), 𝑥)) = (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘𝑥))
19288a1i 11 . . . . . . . . 9 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ ¬ 𝑥 ≤ (𝐾 + 1)) → 𝐷 ∈ Fin)
19339ad3antrrr 726 . . . . . . . . . 10 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ ¬ 𝑥 ≤ (𝐾 + 1)) → 𝐾𝐷)
19490ad3antrrr 726 . . . . . . . . . 10 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ ¬ 𝑥 ≤ (𝐾 + 1)) → (𝐾 + 1) ∈ 𝐷)
195107ad2antrr 722 . . . . . . . . . 10 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ ¬ 𝑥 ≤ (𝐾 + 1)) → 𝑥𝐷)
196193, 194, 1953jca 1121 . . . . . . . . 9 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ ¬ 𝑥 ≤ (𝐾 + 1)) → (𝐾𝐷 ∧ (𝐾 + 1) ∈ 𝐷𝑥𝐷))
19792ad3antrrr 726 . . . . . . . . . 10 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ ¬ 𝑥 ≤ (𝐾 + 1)) → 𝐾 ≠ (𝐾 + 1))
19819ad3antrrr 726 . . . . . . . . . . 11 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ ¬ 𝑥 ≤ (𝐾 + 1)) → 𝐾 ∈ ℝ)
19925ad3antrrr 726 . . . . . . . . . . . 12 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ ¬ 𝑥 ≤ (𝐾 + 1)) → (𝐾 + 1) ∈ ℝ)
200109ad2antrr 722 . . . . . . . . . . . 12 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ ¬ 𝑥 ≤ (𝐾 + 1)) → 𝑥 ∈ ℝ)
20191ad3antrrr 726 . . . . . . . . . . . 12 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ ¬ 𝑥 ≤ (𝐾 + 1)) → 𝐾 < (𝐾 + 1))
202 simpr 485 . . . . . . . . . . . . 13 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ ¬ 𝑥 ≤ (𝐾 + 1)) → ¬ 𝑥 ≤ (𝐾 + 1))
203199, 200ltnled 10640 . . . . . . . . . . . . 13 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ ¬ 𝑥 ≤ (𝐾 + 1)) → ((𝐾 + 1) < 𝑥 ↔ ¬ 𝑥 ≤ (𝐾 + 1)))
204202, 203mpbird 258 . . . . . . . . . . . 12 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ ¬ 𝑥 ≤ (𝐾 + 1)) → (𝐾 + 1) < 𝑥)
205198, 199, 200, 201, 204lttrd 10654 . . . . . . . . . . 11 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ ¬ 𝑥 ≤ (𝐾 + 1)) → 𝐾 < 𝑥)
206198, 205ltned 10629 . . . . . . . . . 10 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ ¬ 𝑥 ≤ (𝐾 + 1)) → 𝐾𝑥)
207199, 204ltned 10629 . . . . . . . . . 10 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ ¬ 𝑥 ≤ (𝐾 + 1)) → (𝐾 + 1) ≠ 𝑥)
208197, 206, 2073jca 1121 . . . . . . . . 9 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ ¬ 𝑥 ≤ (𝐾 + 1)) → (𝐾 ≠ (𝐾 + 1) ∧ 𝐾𝑥 ∧ (𝐾 + 1) ≠ 𝑥))
20910pmtrprfv3 18317 . . . . . . . . 9 ((𝐷 ∈ Fin ∧ (𝐾𝐷 ∧ (𝐾 + 1) ∈ 𝐷𝑥𝐷) ∧ (𝐾 ≠ (𝐾 + 1) ∧ 𝐾𝑥 ∧ (𝐾 + 1) ≠ 𝑥)) → (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘𝑥) = 𝑥)
210192, 196, 208, 209syl3anc 1364 . . . . . . . 8 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ ¬ 𝑥 ≤ (𝐾 + 1)) → (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘𝑥) = 𝑥)
211191, 210eqtr2d 2834 . . . . . . 7 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ ¬ 𝑥 ≤ (𝐾 + 1)) → 𝑥 = (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘if(𝑥𝐾, (𝑥 − 1), 𝑥)))
212180, 211ifeqda 4422 . . . . . 6 ((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) → if(𝑥 ≤ (𝐾 + 1), (𝑥 − 1), 𝑥) = (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘if(𝑥𝐾, (𝑥 − 1), 𝑥)))
213140iffalsed 4398 . . . . . . 7 ((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) → if(𝑥 = 1, 𝐾, if(𝑥𝐾, (𝑥 − 1), 𝑥)) = if(𝑥𝐾, (𝑥 − 1), 𝑥))
214213fveq2d 6549 . . . . . 6 ((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) → (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘if(𝑥 = 1, 𝐾, if(𝑥𝐾, (𝑥 − 1), 𝑥))) = (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘if(𝑥𝐾, (𝑥 − 1), 𝑥)))
215212, 214eqtr4d 2836 . . . . 5 ((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) → if(𝑥 ≤ (𝐾 + 1), (𝑥 − 1), 𝑥) = (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘if(𝑥 = 1, 𝐾, if(𝑥𝐾, (𝑥 − 1), 𝑥))))
21696, 215ifeqda 4422 . . . 4 (((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) → if(𝑥 = 1, (𝐾 + 1), if(𝑥 ≤ (𝐾 + 1), (𝑥 − 1), 𝑥)) = (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘if(𝑥 = 1, 𝐾, if(𝑥𝐾, (𝑥 − 1), 𝑥))))
217 eqidd 2798 . . . . . 6 (((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) → (𝑖𝐷 ↦ if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖))) = (𝑖𝐷 ↦ if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖))))
218 eqeq1 2801 . . . . . . . 8 (𝑖 = 𝑥 → (𝑖 = 1 ↔ 𝑥 = 1))
219 breq1 4971 . . . . . . . . 9 (𝑖 = 𝑥 → (𝑖𝐾𝑥𝐾))
220 oveq1 7030 . . . . . . . . 9 (𝑖 = 𝑥 → (𝑖 − 1) = (𝑥 − 1))
221 id 22 . . . . . . . . 9 (𝑖 = 𝑥𝑖 = 𝑥)
222219, 220, 221ifbieq12d 4414 . . . . . . . 8 (𝑖 = 𝑥 → if(𝑖𝐾, (𝑖 − 1), 𝑖) = if(𝑥𝐾, (𝑥 − 1), 𝑥))
223218, 222ifbieq2d 4412 . . . . . . 7 (𝑖 = 𝑥 → if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖)) = if(𝑥 = 1, 𝐾, if(𝑥𝐾, (𝑥 − 1), 𝑥)))
224223adantl 482 . . . . . 6 ((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ 𝑖 = 𝑥) → if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖)) = if(𝑥 = 1, 𝐾, if(𝑥𝐾, (𝑥 − 1), 𝑥)))
225 ovex 7055 . . . . . . . . 9 (𝑥 − 1) ∈ V
226 vex 3443 . . . . . . . . 9 𝑥 ∈ V
227225, 226ifcli 4433 . . . . . . . 8 if(𝑥𝐾, (𝑥 − 1), 𝑥) ∈ V
228227a1i 11 . . . . . . 7 (((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) → if(𝑥𝐾, (𝑥 − 1), 𝑥) ∈ V)
229 ifexg 4434 . . . . . . 7 ((𝐾 ∈ ℕ ∧ if(𝑥𝐾, (𝑥 − 1), 𝑥) ∈ V) → if(𝑥 = 1, 𝐾, if(𝑥𝐾, (𝑥 − 1), 𝑥)) ∈ V)
230130, 228, 229syl2anc 584 . . . . . 6 (((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) → if(𝑥 = 1, 𝐾, if(𝑥𝐾, (𝑥 − 1), 𝑥)) ∈ V)
231217, 224, 107, 230fvmptd 6648 . . . . 5 (((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) → ((𝑖𝐷 ↦ if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖)))‘𝑥) = if(𝑥 = 1, 𝐾, if(𝑥𝐾, (𝑥 − 1), 𝑥)))
232231fveq2d 6549 . . . 4 (((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) → (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘((𝑖𝐷 ↦ if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖)))‘𝑥)) = (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘if(𝑥 = 1, 𝐾, if(𝑥𝐾, (𝑥 − 1), 𝑥))))
233216, 232eqtr4d 2836 . . 3 (((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) → if(𝑥 = 1, (𝐾 + 1), if(𝑥 ≤ (𝐾 + 1), (𝑥 − 1), 𝑥)) = (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘((𝑖𝐷 ↦ if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖)))‘𝑥)))
234 breq1 4971 . . . . . . 7 (𝑖 = 𝑥 → (𝑖 ≤ (𝐾 + 1) ↔ 𝑥 ≤ (𝐾 + 1)))
235234, 220, 221ifbieq12d 4414 . . . . . 6 (𝑖 = 𝑥 → if(𝑖 ≤ (𝐾 + 1), (𝑖 − 1), 𝑖) = if(𝑥 ≤ (𝐾 + 1), (𝑥 − 1), 𝑥))
236218, 235ifbieq2d 4412 . . . . 5 (𝑖 = 𝑥 → if(𝑖 = 1, (𝐾 + 1), if(𝑖 ≤ (𝐾 + 1), (𝑖 − 1), 𝑖)) = if(𝑥 = 1, (𝐾 + 1), if(𝑥 ≤ (𝐾 + 1), (𝑥 − 1), 𝑥)))
237225, 226ifex 4435 . . . . . 6 if(𝑥 ≤ (𝐾 + 1), (𝑥 − 1), 𝑥) ∈ V
2381, 237ifex 4435 . . . . 5 if(𝑥 = 1, (𝐾 + 1), if(𝑥 ≤ (𝐾 + 1), (𝑥 − 1), 𝑥)) ∈ V
239236, 6, 238fvmpt 6642 . . . 4 (𝑥𝐷 → ((𝑖𝐷 ↦ if(𝑖 = 1, (𝐾 + 1), if(𝑖 ≤ (𝐾 + 1), (𝑖 − 1), 𝑖)))‘𝑥) = if(𝑥 = 1, (𝐾 + 1), if(𝑥 ≤ (𝐾 + 1), (𝑥 − 1), 𝑥)))
240239adantl 482 . . 3 (((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) → ((𝑖𝐷 ↦ if(𝑖 = 1, (𝐾 + 1), if(𝑖 ≤ (𝐾 + 1), (𝑖 − 1), 𝑖)))‘𝑥) = if(𝑥 = 1, (𝐾 + 1), if(𝑥 ≤ (𝐾 + 1), (𝑥 − 1), 𝑥)))
241 funmpt 6270 . . . . 5 Fun (𝑖𝐷 ↦ if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖)))
242241a1i 11 . . . 4 (((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) → Fun (𝑖𝐷 ↦ if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖))))
24376adantr 481 . . . . . 6 (((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) → ∀𝑖𝐷 if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖)) ∈ 𝐷)
244 dmmptg 5978 . . . . . 6 (∀𝑖𝐷 if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖)) ∈ 𝐷 → dom (𝑖𝐷 ↦ if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖))) = 𝐷)
245243, 244syl 17 . . . . 5 (((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) → dom (𝑖𝐷 ↦ if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖))) = 𝐷)
246107, 245eleqtrrd 2888 . . . 4 (((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) → 𝑥 ∈ dom (𝑖𝐷 ↦ if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖))))
247 fvco 6633 . . . 4 ((Fun (𝑖𝐷 ↦ if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖))) ∧ 𝑥 ∈ dom (𝑖𝐷 ↦ if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖)))) → ((((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)}) ∘ (𝑖𝐷 ↦ if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖))))‘𝑥) = (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘((𝑖𝐷 ↦ if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖)))‘𝑥)))
248242, 246, 247syl2anc 584 . . 3 (((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) → ((((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)}) ∘ (𝑖𝐷 ↦ if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖))))‘𝑥) = (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘((𝑖𝐷 ↦ if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖)))‘𝑥)))
249233, 240, 2483eqtr4d 2843 . 2 (((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) → ((𝑖𝐷 ↦ if(𝑖 = 1, (𝐾 + 1), if(𝑖 ≤ (𝐾 + 1), (𝑖 − 1), 𝑖)))‘𝑥) = ((((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)}) ∘ (𝑖𝐷 ↦ if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖))))‘𝑥))
2508, 83, 249eqfnfvd 6677 1 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → (𝑖𝐷 ↦ if(𝑖 = 1, (𝐾 + 1), if(𝑖 ≤ (𝐾 + 1), (𝑖 − 1), 𝑖))) = (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)}) ∘ (𝑖𝐷 ↦ if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖)))))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 207  wa 396  wo 842  w3a 1080   = wceq 1525  wcel 2083  wne 2986  wral 3107  Vcvv 3440  wss 3865  ifcif 4387  {cpr 4480   class class class wbr 4968  cmpt 5047  dom cdm 5450  ran crn 5451  ccom 5454  Fun wfun 6226   Fn wfn 6227  1-1-ontowf1o 6231  cfv 6232  (class class class)co 7023  Fincfn 8364  cc 10388  cr 10389  1c1 10391   + caddc 10393   < clt 10528  cle 10529  cmin 10723  cn 11492  2c2 11546  cz 11835  cuz 12097  ...cfz 12746  pmTrspcpmtr 18304
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1781  ax-4 1795  ax-5 1892  ax-6 1951  ax-7 1996  ax-8 2085  ax-9 2093  ax-10 2114  ax-11 2128  ax-12 2143  ax-13 2346  ax-ext 2771  ax-rep 5088  ax-sep 5101  ax-nul 5108  ax-pow 5164  ax-pr 5228  ax-un 7326  ax-cnex 10446  ax-resscn 10447  ax-1cn 10448  ax-icn 10449  ax-addcl 10450  ax-addrcl 10451  ax-mulcl 10452  ax-mulrcl 10453  ax-mulcom 10454  ax-addass 10455  ax-mulass 10456  ax-distr 10457  ax-i2m1 10458  ax-1ne0 10459  ax-1rid 10460  ax-rnegex 10461  ax-rrecex 10462  ax-cnre 10463  ax-pre-lttri 10464  ax-pre-lttrn 10465  ax-pre-ltadd 10466  ax-pre-mulgt0 10467
This theorem depends on definitions:  df-bi 208  df-an 397  df-or 843  df-3or 1081  df-3an 1082  df-tru 1528  df-ex 1766  df-nf 1770  df-sb 2045  df-mo 2578  df-eu 2614  df-clab 2778  df-cleq 2790  df-clel 2865  df-nfc 2937  df-ne 2987  df-nel 3093  df-ral 3112  df-rex 3113  df-reu 3114  df-rab 3116  df-v 3442  df-sbc 3712  df-csb 3818  df-dif 3868  df-un 3870  df-in 3872  df-ss 3880  df-pss 3882  df-nul 4218  df-if 4388  df-pw 4461  df-sn 4479  df-pr 4481  df-tp 4483  df-op 4485  df-uni 4752  df-iun 4833  df-br 4969  df-opab 5031  df-mpt 5048  df-tr 5071  df-id 5355  df-eprel 5360  df-po 5369  df-so 5370  df-fr 5409  df-we 5411  df-xp 5456  df-rel 5457  df-cnv 5458  df-co 5459  df-dm 5460  df-rn 5461  df-res 5462  df-ima 5463  df-pred 6030  df-ord 6076  df-on 6077  df-lim 6078  df-suc 6079  df-iota 6196  df-fun 6234  df-fn 6235  df-f 6236  df-f1 6237  df-fo 6238  df-f1o 6239  df-fv 6240  df-riota 6984  df-ov 7026  df-oprab 7027  df-mpo 7028  df-om 7444  df-1st 7552  df-2nd 7553  df-wrecs 7805  df-recs 7867  df-rdg 7905  df-1o 7960  df-2o 7961  df-er 8146  df-en 8365  df-dom 8366  df-sdom 8367  df-fin 8368  df-pnf 10530  df-mnf 10531  df-xr 10532  df-ltxr 10533  df-le 10534  df-sub 10725  df-neg 10726  df-nn 11493  df-2 11554  df-n0 11752  df-z 11836  df-uz 12098  df-fz 12747  df-pmtr 18305
This theorem is referenced by:  fzto1st  30663  psgnfzto1st  30665
  Copyright terms: Public domain W3C validator