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 33057
Description: Lemma for psgnfzto1st 33062. 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 7420 . . . . 5 (𝐾 + 1) ∈ V
2 ovex 7420 . . . . . 6 (𝑖 − 1) ∈ V
3 vex 3451 . . . . . 6 𝑖 ∈ V
42, 3ifex 4539 . . . . 5 if(𝑖 ≤ (𝐾 + 1), (𝑖 − 1), 𝑖) ∈ V
51, 4ifex 4539 . . . 4 if(𝑖 = 1, (𝐾 + 1), if(𝑖 ≤ (𝐾 + 1), (𝑖 − 1), 𝑖)) ∈ V
6 eqid 2729 . . . 4 (𝑖𝐷 ↦ if(𝑖 = 1, (𝐾 + 1), if(𝑖 ≤ (𝐾 + 1), (𝑖 − 1), 𝑖))) = (𝑖𝐷 ↦ if(𝑖 = 1, (𝐾 + 1), if(𝑖 ≤ (𝐾 + 1), (𝑖 − 1), 𝑖)))
75, 6fnmpti 6661 . . 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 2729 . . . . 5 (pmTrsp‘𝐷) = (pmTrsp‘𝐷)
119, 10pmtrto1cl 33056 . . . 4 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → ((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)}) ∈ ran (pmTrsp‘𝐷))
12 eqid 2729 . . . . 5 ran (pmTrsp‘𝐷) = ran (pmTrsp‘𝐷)
1310, 12pmtrff1o 19393 . . . 4 (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)}) ∈ ran (pmTrsp‘𝐷) → ((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)}):𝐷1-1-onto𝐷)
14 f1ofn 6801 . . . 4 (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)}):𝐷1-1-onto𝐷 → ((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)}) Fn 𝐷)
1511, 13, 143syl 18 . . 3 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → ((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)}) Fn 𝐷)
16 simpr 484 . . . . . . . 8 ((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ 𝑖 = 1) → 𝑖 = 1)
1716iftrued 4496 . . . . . . 7 ((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ 𝑖 = 1) → if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖)) = 𝐾)
18 simpl 482 . . . . . . . . . 10 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → 𝐾 ∈ ℕ)
1918nnred 12201 . . . . . . . . . . 11 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → 𝐾 ∈ ℝ)
20 fz1ssnn 13516 . . . . . . . . . . . . 13 (1...𝑁) ⊆ ℕ
219eleq2i 2820 . . . . . . . . . . . . . . 15 ((𝐾 + 1) ∈ 𝐷 ↔ (𝐾 + 1) ∈ (1...𝑁))
2221biimpi 216 . . . . . . . . . . . . . 14 ((𝐾 + 1) ∈ 𝐷 → (𝐾 + 1) ∈ (1...𝑁))
2322adantl 481 . . . . . . . . . . . . 13 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → (𝐾 + 1) ∈ (1...𝑁))
2420, 23sselid 3944 . . . . . . . . . . . 12 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → (𝐾 + 1) ∈ ℕ)
2524nnred 12201 . . . . . . . . . . 11 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → (𝐾 + 1) ∈ ℝ)
26 elfz1b 13554 . . . . . . . . . . . . . . 15 ((𝐾 + 1) ∈ (1...𝑁) ↔ ((𝐾 + 1) ∈ ℕ ∧ 𝑁 ∈ ℕ ∧ (𝐾 + 1) ≤ 𝑁))
2726simp2bi 1146 . . . . . . . . . . . . . 14 ((𝐾 + 1) ∈ (1...𝑁) → 𝑁 ∈ ℕ)
2822, 27syl 17 . . . . . . . . . . . . 13 ((𝐾 + 1) ∈ 𝐷𝑁 ∈ ℕ)
2928adantl 481 . . . . . . . . . . . 12 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → 𝑁 ∈ ℕ)
3029nnred 12201 . . . . . . . . . . 11 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → 𝑁 ∈ ℝ)
3119lep1d 12114 . . . . . . . . . . 11 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → 𝐾 ≤ (𝐾 + 1))
32 elfzle2 13489 . . . . . . . . . . . 12 ((𝐾 + 1) ∈ (1...𝑁) → (𝐾 + 1) ≤ 𝑁)
3323, 32syl 17 . . . . . . . . . . 11 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → (𝐾 + 1) ≤ 𝑁)
3419, 25, 30, 31, 33letrd 11331 . . . . . . . . . 10 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → 𝐾𝑁)
3529nnzd 12556 . . . . . . . . . . 11 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → 𝑁 ∈ ℤ)
36 fznn 13553 . . . . . . . . . . 11 (𝑁 ∈ ℤ → (𝐾 ∈ (1...𝑁) ↔ (𝐾 ∈ ℕ ∧ 𝐾𝑁)))
3735, 36syl 17 . . . . . . . . . 10 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → (𝐾 ∈ (1...𝑁) ↔ (𝐾 ∈ ℕ ∧ 𝐾𝑁)))
3818, 34, 37mpbir2and 713 . . . . . . . . 9 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → 𝐾 ∈ (1...𝑁))
3938, 9eleqtrrdi 2839 . . . . . . . 8 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → 𝐾𝐷)
4039ad2antrr 726 . . . . . . 7 ((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ 𝑖 = 1) → 𝐾𝐷)
4117, 40eqeltrd 2828 . . . . . 6 ((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ 𝑖 = 1) → if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖)) ∈ 𝐷)
42 simpr 484 . . . . . . . 8 ((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) → ¬ 𝑖 = 1)
4342iffalsed 4499 . . . . . . 7 ((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) → if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖)) = if(𝑖𝐾, (𝑖 − 1), 𝑖))
44 simpr 484 . . . . . . . . . 10 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ 𝑖𝐾) → 𝑖𝐾)
4544iftrued 4496 . . . . . . . . 9 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ 𝑖𝐾) → if(𝑖𝐾, (𝑖 − 1), 𝑖) = (𝑖 − 1))
4642adantr 480 . . . . . . . . . . . . 13 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ 𝑖𝐾) → ¬ 𝑖 = 1)
479, 20eqsstri 3993 . . . . . . . . . . . . . . . 16 𝐷 ⊆ ℕ
48 simpllr 775 . . . . . . . . . . . . . . . 16 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ 𝑖𝐾) → 𝑖𝐷)
4947, 48sselid 3944 . . . . . . . . . . . . . . 15 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ 𝑖𝐾) → 𝑖 ∈ ℕ)
50 nn1m1nn 12207 . . . . . . . . . . . . . . 15 (𝑖 ∈ ℕ → (𝑖 = 1 ∨ (𝑖 − 1) ∈ ℕ))
5149, 50syl 17 . . . . . . . . . . . . . 14 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ 𝑖𝐾) → (𝑖 = 1 ∨ (𝑖 − 1) ∈ ℕ))
5251ord 864 . . . . . . . . . . . . 13 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ 𝑖𝐾) → (¬ 𝑖 = 1 → (𝑖 − 1) ∈ ℕ))
5346, 52mpd 15 . . . . . . . . . . . 12 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ 𝑖𝐾) → (𝑖 − 1) ∈ ℕ)
5453nnred 12201 . . . . . . . . . . . . 13 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ 𝑖𝐾) → (𝑖 − 1) ∈ ℝ)
5549nnred 12201 . . . . . . . . . . . . 13 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ 𝑖𝐾) → 𝑖 ∈ ℝ)
5630ad3antrrr 730 . . . . . . . . . . . . 13 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ 𝑖𝐾) → 𝑁 ∈ ℝ)
5755lem1d 12116 . . . . . . . . . . . . 13 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ 𝑖𝐾) → (𝑖 − 1) ≤ 𝑖)
5848, 9eleqtrdi 2838 . . . . . . . . . . . . . 14 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ 𝑖𝐾) → 𝑖 ∈ (1...𝑁))
59 elfzle2 13489 . . . . . . . . . . . . . 14 (𝑖 ∈ (1...𝑁) → 𝑖𝑁)
6058, 59syl 17 . . . . . . . . . . . . 13 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ 𝑖𝐾) → 𝑖𝑁)
6154, 55, 56, 57, 60letrd 11331 . . . . . . . . . . . 12 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ 𝑖𝐾) → (𝑖 − 1) ≤ 𝑁)
6253, 61jca 511 . . . . . . . . . . 11 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ 𝑖𝐾) → ((𝑖 − 1) ∈ ℕ ∧ (𝑖 − 1) ≤ 𝑁))
63 fznn 13553 . . . . . . . . . . . . 13 (𝑁 ∈ ℤ → ((𝑖 − 1) ∈ (1...𝑁) ↔ ((𝑖 − 1) ∈ ℕ ∧ (𝑖 − 1) ≤ 𝑁)))
6435, 63syl 17 . . . . . . . . . . . 12 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → ((𝑖 − 1) ∈ (1...𝑁) ↔ ((𝑖 − 1) ∈ ℕ ∧ (𝑖 − 1) ≤ 𝑁)))
6564ad3antrrr 730 . . . . . . . . . . 11 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ 𝑖𝐾) → ((𝑖 − 1) ∈ (1...𝑁) ↔ ((𝑖 − 1) ∈ ℕ ∧ (𝑖 − 1) ≤ 𝑁)))
6662, 65mpbird 257 . . . . . . . . . 10 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ 𝑖𝐾) → (𝑖 − 1) ∈ (1...𝑁))
6766, 9eleqtrrdi 2839 . . . . . . . . 9 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ 𝑖𝐾) → (𝑖 − 1) ∈ 𝐷)
6845, 67eqeltrd 2828 . . . . . . . 8 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ 𝑖𝐾) → if(𝑖𝐾, (𝑖 − 1), 𝑖) ∈ 𝐷)
69 simpr 484 . . . . . . . . . 10 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ ¬ 𝑖𝐾) → ¬ 𝑖𝐾)
7069iffalsed 4499 . . . . . . . . 9 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ ¬ 𝑖𝐾) → if(𝑖𝐾, (𝑖 − 1), 𝑖) = 𝑖)
71 simpllr 775 . . . . . . . . 9 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ ¬ 𝑖𝐾) → 𝑖𝐷)
7270, 71eqeltrd 2828 . . . . . . . 8 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ ¬ 𝑖𝐾) → if(𝑖𝐾, (𝑖 − 1), 𝑖) ∈ 𝐷)
7368, 72pm2.61dan 812 . . . . . . 7 ((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) → if(𝑖𝐾, (𝑖 − 1), 𝑖) ∈ 𝐷)
7443, 73eqeltrd 2828 . . . . . 6 ((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) → if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖)) ∈ 𝐷)
7541, 74pm2.61dan 812 . . . . 5 (((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) → if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖)) ∈ 𝐷)
7675ralrimiva 3125 . . . 4 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → ∀𝑖𝐷 if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖)) ∈ 𝐷)
77 eqid 2729 . . . . 5 (𝑖𝐷 ↦ if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖))) = (𝑖𝐷 ↦ if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖)))
7877fnmpt 6658 . . . 4 (∀𝑖𝐷 if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖)) ∈ 𝐷 → (𝑖𝐷 ↦ if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖))) Fn 𝐷)
7976, 78syl 17 . . 3 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → (𝑖𝐷 ↦ if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖))) Fn 𝐷)
8077rnmptss 7095 . . . 4 (∀𝑖𝐷 if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖)) ∈ 𝐷 → ran (𝑖𝐷 ↦ if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖))) ⊆ 𝐷)
8176, 80syl 17 . . 3 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → ran (𝑖𝐷 ↦ if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖))) ⊆ 𝐷)
82 fnco 6636 . . 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 1373 . 2 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)}) ∘ (𝑖𝐷 ↦ if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖)))) Fn 𝐷)
84 simpr 484 . . . . . . . 8 ((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ 𝑥 = 1) → 𝑥 = 1)
8584iftrued 4496 . . . . . . 7 ((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ 𝑥 = 1) → if(𝑥 = 1, 𝐾, if(𝑥𝐾, (𝑥 − 1), 𝑥)) = 𝐾)
8685fveq2d 6862 . . . . . 6 ((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ 𝑥 = 1) → (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘if(𝑥 = 1, 𝐾, if(𝑥𝐾, (𝑥 − 1), 𝑥))) = (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘𝐾))
87 fzfi 13937 . . . . . . . . . 10 (1...𝑁) ∈ Fin
889, 87eqeltri 2824 . . . . . . . . 9 𝐷 ∈ Fin
8988a1i 11 . . . . . . . 8 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → 𝐷 ∈ Fin)
9023, 21sylibr 234 . . . . . . . 8 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → (𝐾 + 1) ∈ 𝐷)
9119ltp1d 12113 . . . . . . . . 9 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → 𝐾 < (𝐾 + 1))
9219, 91ltned 11310 . . . . . . . 8 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → 𝐾 ≠ (𝐾 + 1))
9310pmtrprfv 19383 . . . . . . . 8 ((𝐷 ∈ Fin ∧ (𝐾𝐷 ∧ (𝐾 + 1) ∈ 𝐷𝐾 ≠ (𝐾 + 1))) → (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘𝐾) = (𝐾 + 1))
9489, 39, 90, 92, 93syl13anc 1374 . . . . . . 7 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘𝐾) = (𝐾 + 1))
9594ad2antrr 726 . . . . . 6 ((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ 𝑥 = 1) → (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘𝐾) = (𝐾 + 1))
9686, 95eqtr2d 2765 . . . . 5 ((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ 𝑥 = 1) → (𝐾 + 1) = (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘if(𝑥 = 1, 𝐾, if(𝑥𝐾, (𝑥 − 1), 𝑥))))
9788a1i 11 . . . . . . . . . 10 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 = (𝐾 + 1)) → 𝐷 ∈ Fin)
9839ad4antr 732 . . . . . . . . . 10 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 = (𝐾 + 1)) → 𝐾𝐷)
9990ad4antr 732 . . . . . . . . . 10 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 = (𝐾 + 1)) → (𝐾 + 1) ∈ 𝐷)
10092ad4antr 732 . . . . . . . . . 10 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 = (𝐾 + 1)) → 𝐾 ≠ (𝐾 + 1))
10110pmtrprfv2 33045 . . . . . . . . . 10 ((𝐷 ∈ Fin ∧ (𝐾𝐷 ∧ (𝐾 + 1) ∈ 𝐷𝐾 ≠ (𝐾 + 1))) → (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘(𝐾 + 1)) = 𝐾)
10297, 98, 99, 100, 101syl13anc 1374 . . . . . . . . 9 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 = (𝐾 + 1)) → (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘(𝐾 + 1)) = 𝐾)
10391ad4antr 732 . . . . . . . . . . . . . 14 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 = (𝐾 + 1)) → 𝐾 < (𝐾 + 1))
104 simpr 484 . . . . . . . . . . . . . 14 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 = (𝐾 + 1)) → 𝑥 = (𝐾 + 1))
105103, 104breqtrrd 5135 . . . . . . . . . . . . 13 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 = (𝐾 + 1)) → 𝐾 < 𝑥)
10619ad4antr 732 . . . . . . . . . . . . . 14 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 = (𝐾 + 1)) → 𝐾 ∈ ℝ)
107 simpr 484 . . . . . . . . . . . . . . . . 17 (((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) → 𝑥𝐷)
10847, 107sselid 3944 . . . . . . . . . . . . . . . 16 (((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) → 𝑥 ∈ ℕ)
109108nnred 12201 . . . . . . . . . . . . . . 15 (((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) → 𝑥 ∈ ℝ)
110109ad3antrrr 730 . . . . . . . . . . . . . 14 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 = (𝐾 + 1)) → 𝑥 ∈ ℝ)
111106, 110ltnled 11321 . . . . . . . . . . . . 13 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 = (𝐾 + 1)) → (𝐾 < 𝑥 ↔ ¬ 𝑥𝐾))
112105, 111mpbid 232 . . . . . . . . . . . 12 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 = (𝐾 + 1)) → ¬ 𝑥𝐾)
113112iffalsed 4499 . . . . . . . . . . 11 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 = (𝐾 + 1)) → if(𝑥𝐾, (𝑥 − 1), 𝑥) = 𝑥)
114113, 104eqtrd 2764 . . . . . . . . . 10 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 = (𝐾 + 1)) → if(𝑥𝐾, (𝑥 − 1), 𝑥) = (𝐾 + 1))
115114fveq2d 6862 . . . . . . . . 9 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 = (𝐾 + 1)) → (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘if(𝑥𝐾, (𝑥 − 1), 𝑥)) = (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘(𝐾 + 1)))
116104oveq1d 7402 . . . . . . . . . 10 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 = (𝐾 + 1)) → (𝑥 − 1) = ((𝐾 + 1) − 1))
117106recnd 11202 . . . . . . . . . . 11 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 = (𝐾 + 1)) → 𝐾 ∈ ℂ)
118 1cnd 11169 . . . . . . . . . . 11 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 = (𝐾 + 1)) → 1 ∈ ℂ)
119117, 118pncand 11534 . . . . . . . . . 10 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 = (𝐾 + 1)) → ((𝐾 + 1) − 1) = 𝐾)
120116, 119eqtrd 2764 . . . . . . . . 9 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 = (𝐾 + 1)) → (𝑥 − 1) = 𝐾)
121102, 115, 1203eqtr4rd 2775 . . . . . . . 8 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 = (𝐾 + 1)) → (𝑥 − 1) = (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘if(𝑥𝐾, (𝑥 − 1), 𝑥)))
122 simplr 768 . . . . . . . . . . . . 13 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → 𝑥 ≤ (𝐾 + 1))
123 simpr 484 . . . . . . . . . . . . . 14 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → 𝑥 ≠ (𝐾 + 1))
124123necomd 2980 . . . . . . . . . . . . 13 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → (𝐾 + 1) ≠ 𝑥)
125109ad3antrrr 730 . . . . . . . . . . . . . 14 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → 𝑥 ∈ ℝ)
12625ad4antr 732 . . . . . . . . . . . . . 14 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → (𝐾 + 1) ∈ ℝ)
127125, 126ltlend 11319 . . . . . . . . . . . . 13 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → (𝑥 < (𝐾 + 1) ↔ (𝑥 ≤ (𝐾 + 1) ∧ (𝐾 + 1) ≠ 𝑥)))
128122, 124, 127mpbir2and 713 . . . . . . . . . . . 12 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → 𝑥 < (𝐾 + 1))
129108ad3antrrr 730 . . . . . . . . . . . . 13 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → 𝑥 ∈ ℕ)
130 simpll 766 . . . . . . . . . . . . . 14 (((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) → 𝐾 ∈ ℕ)
131130ad3antrrr 730 . . . . . . . . . . . . 13 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → 𝐾 ∈ ℕ)
132 nnleltp1 12589 . . . . . . . . . . . . 13 ((𝑥 ∈ ℕ ∧ 𝐾 ∈ ℕ) → (𝑥𝐾𝑥 < (𝐾 + 1)))
133129, 131, 132syl2anc 584 . . . . . . . . . . . 12 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → (𝑥𝐾𝑥 < (𝐾 + 1)))
134128, 133mpbird 257 . . . . . . . . . . 11 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → 𝑥𝐾)
135134iftrued 4496 . . . . . . . . . 10 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → if(𝑥𝐾, (𝑥 − 1), 𝑥) = (𝑥 − 1))
136135fveq2d 6862 . . . . . . . . 9 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘if(𝑥𝐾, (𝑥 − 1), 𝑥)) = (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘(𝑥 − 1)))
13788a1i 11 . . . . . . . . . 10 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → 𝐷 ∈ Fin)
13839ad4antr 732 . . . . . . . . . . 11 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → 𝐾𝐷)
139 simp-5r 785 . . . . . . . . . . 11 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → (𝐾 + 1) ∈ 𝐷)
140 simpr 484 . . . . . . . . . . . . . . . . 17 ((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) → ¬ 𝑥 = 1)
141140ad2antrr 726 . . . . . . . . . . . . . . . 16 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → ¬ 𝑥 = 1)
142 elnn1uz2 12884 . . . . . . . . . . . . . . . . . 18 (𝑥 ∈ ℕ ↔ (𝑥 = 1 ∨ 𝑥 ∈ (ℤ‘2)))
143129, 142sylib 218 . . . . . . . . . . . . . . . . 17 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → (𝑥 = 1 ∨ 𝑥 ∈ (ℤ‘2)))
144143ord 864 . . . . . . . . . . . . . . . 16 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → (¬ 𝑥 = 1 → 𝑥 ∈ (ℤ‘2)))
145141, 144mpd 15 . . . . . . . . . . . . . . 15 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → 𝑥 ∈ (ℤ‘2))
146 uz2m1nn 12882 . . . . . . . . . . . . . . 15 (𝑥 ∈ (ℤ‘2) → (𝑥 − 1) ∈ ℕ)
147145, 146syl 17 . . . . . . . . . . . . . 14 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → (𝑥 − 1) ∈ ℕ)
148139, 28syl 17 . . . . . . . . . . . . . 14 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → 𝑁 ∈ ℕ)
149147nnred 12201 . . . . . . . . . . . . . . 15 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → (𝑥 − 1) ∈ ℝ)
150131, 139, 30syl2anc 584 . . . . . . . . . . . . . . 15 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → 𝑁 ∈ ℝ)
151125lem1d 12116 . . . . . . . . . . . . . . 15 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → (𝑥 − 1) ≤ 𝑥)
152107ad3antrrr 730 . . . . . . . . . . . . . . . . 17 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → 𝑥𝐷)
153152, 9eleqtrdi 2838 . . . . . . . . . . . . . . . 16 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → 𝑥 ∈ (1...𝑁))
154 elfzle2 13489 . . . . . . . . . . . . . . . 16 (𝑥 ∈ (1...𝑁) → 𝑥𝑁)
155153, 154syl 17 . . . . . . . . . . . . . . 15 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → 𝑥𝑁)
156149, 125, 150, 151, 155letrd 11331 . . . . . . . . . . . . . 14 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → (𝑥 − 1) ≤ 𝑁)
157147, 148, 1563jca 1128 . . . . . . . . . . . . 13 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → ((𝑥 − 1) ∈ ℕ ∧ 𝑁 ∈ ℕ ∧ (𝑥 − 1) ≤ 𝑁))
158 elfz1b 13554 . . . . . . . . . . . . 13 ((𝑥 − 1) ∈ (1...𝑁) ↔ ((𝑥 − 1) ∈ ℕ ∧ 𝑁 ∈ ℕ ∧ (𝑥 − 1) ≤ 𝑁))
159157, 158sylibr 234 . . . . . . . . . . . 12 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → (𝑥 − 1) ∈ (1...𝑁))
160159, 9eleqtrrdi 2839 . . . . . . . . . . 11 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → (𝑥 − 1) ∈ 𝐷)
161138, 139, 1603jca 1128 . . . . . . . . . 10 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → (𝐾𝐷 ∧ (𝐾 + 1) ∈ 𝐷 ∧ (𝑥 − 1) ∈ 𝐷))
162131, 139, 92syl2anc 584 . . . . . . . . . . 11 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → 𝐾 ≠ (𝐾 + 1))
163 simpr 484 . . . . . . . . . . . . . . . 16 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝐾 = (𝑥 − 1)) → 𝐾 = (𝑥 − 1))
164163oveq1d 7402 . . . . . . . . . . . . . . 15 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝐾 = (𝑥 − 1)) → (𝐾 + 1) = ((𝑥 − 1) + 1))
165109recnd 11202 . . . . . . . . . . . . . . . . 17 (((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) → 𝑥 ∈ ℂ)
166165ad3antrrr 730 . . . . . . . . . . . . . . . 16 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝐾 = (𝑥 − 1)) → 𝑥 ∈ ℂ)
167 1cnd 11169 . . . . . . . . . . . . . . . 16 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝐾 = (𝑥 − 1)) → 1 ∈ ℂ)
168166, 167npcand 11537 . . . . . . . . . . . . . . 15 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝐾 = (𝑥 − 1)) → ((𝑥 − 1) + 1) = 𝑥)
169164, 168eqtr2d 2765 . . . . . . . . . . . . . 14 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝐾 = (𝑥 − 1)) → 𝑥 = (𝐾 + 1))
170169ex 412 . . . . . . . . . . . . 13 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) → (𝐾 = (𝑥 − 1) → 𝑥 = (𝐾 + 1)))
171170necon3d 2946 . . . . . . . . . . . 12 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) → (𝑥 ≠ (𝐾 + 1) → 𝐾 ≠ (𝑥 − 1)))
172171imp 406 . . . . . . . . . . 11 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → 𝐾 ≠ (𝑥 − 1))
173149, 125, 126, 151, 128lelttrd 11332 . . . . . . . . . . . . 13 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → (𝑥 − 1) < (𝐾 + 1))
174149, 173ltned 11310 . . . . . . . . . . . 12 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → (𝑥 − 1) ≠ (𝐾 + 1))
175174necomd 2980 . . . . . . . . . . 11 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → (𝐾 + 1) ≠ (𝑥 − 1))
176162, 172, 1753jca 1128 . . . . . . . . . 10 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → (𝐾 ≠ (𝐾 + 1) ∧ 𝐾 ≠ (𝑥 − 1) ∧ (𝐾 + 1) ≠ (𝑥 − 1)))
17710pmtrprfv3 19384 . . . . . . . . . 10 ((𝐷 ∈ Fin ∧ (𝐾𝐷 ∧ (𝐾 + 1) ∈ 𝐷 ∧ (𝑥 − 1) ∈ 𝐷) ∧ (𝐾 ≠ (𝐾 + 1) ∧ 𝐾 ≠ (𝑥 − 1) ∧ (𝐾 + 1) ≠ (𝑥 − 1))) → (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘(𝑥 − 1)) = (𝑥 − 1))
178137, 161, 176, 177syl3anc 1373 . . . . . . . . 9 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘(𝑥 − 1)) = (𝑥 − 1))
179136, 178eqtr2d 2765 . . . . . . . 8 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → (𝑥 − 1) = (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘if(𝑥𝐾, (𝑥 − 1), 𝑥)))
180121, 179pm2.61dane 3012 . . . . . . 7 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) → (𝑥 − 1) = (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘if(𝑥𝐾, (𝑥 − 1), 𝑥)))
181109ad2antrr 726 . . . . . . . . . . . . . 14 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥𝐾) → 𝑥 ∈ ℝ)
18219ad3antrrr 730 . . . . . . . . . . . . . 14 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥𝐾) → 𝐾 ∈ ℝ)
18325ad3antrrr 730 . . . . . . . . . . . . . 14 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥𝐾) → (𝐾 + 1) ∈ ℝ)
184 simpr 484 . . . . . . . . . . . . . 14 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥𝐾) → 𝑥𝐾)
18531ad3antrrr 730 . . . . . . . . . . . . . 14 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥𝐾) → 𝐾 ≤ (𝐾 + 1))
186181, 182, 183, 184, 185letrd 11331 . . . . . . . . . . . . 13 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥𝐾) → 𝑥 ≤ (𝐾 + 1))
187186ex 412 . . . . . . . . . . . 12 ((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) → (𝑥𝐾𝑥 ≤ (𝐾 + 1)))
188187con3d 152 . . . . . . . . . . 11 ((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) → (¬ 𝑥 ≤ (𝐾 + 1) → ¬ 𝑥𝐾))
189188imp 406 . . . . . . . . . 10 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ ¬ 𝑥 ≤ (𝐾 + 1)) → ¬ 𝑥𝐾)
190189iffalsed 4499 . . . . . . . . 9 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ ¬ 𝑥 ≤ (𝐾 + 1)) → if(𝑥𝐾, (𝑥 − 1), 𝑥) = 𝑥)
191190fveq2d 6862 . . . . . . . 8 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ ¬ 𝑥 ≤ (𝐾 + 1)) → (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘if(𝑥𝐾, (𝑥 − 1), 𝑥)) = (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘𝑥))
19288a1i 11 . . . . . . . . 9 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ ¬ 𝑥 ≤ (𝐾 + 1)) → 𝐷 ∈ Fin)
19339ad3antrrr 730 . . . . . . . . . 10 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ ¬ 𝑥 ≤ (𝐾 + 1)) → 𝐾𝐷)
19490ad3antrrr 730 . . . . . . . . . 10 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ ¬ 𝑥 ≤ (𝐾 + 1)) → (𝐾 + 1) ∈ 𝐷)
195107ad2antrr 726 . . . . . . . . . 10 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ ¬ 𝑥 ≤ (𝐾 + 1)) → 𝑥𝐷)
196193, 194, 1953jca 1128 . . . . . . . . 9 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ ¬ 𝑥 ≤ (𝐾 + 1)) → (𝐾𝐷 ∧ (𝐾 + 1) ∈ 𝐷𝑥𝐷))
19792ad3antrrr 730 . . . . . . . . . 10 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ ¬ 𝑥 ≤ (𝐾 + 1)) → 𝐾 ≠ (𝐾 + 1))
19819ad3antrrr 730 . . . . . . . . . . 11 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ ¬ 𝑥 ≤ (𝐾 + 1)) → 𝐾 ∈ ℝ)
19925ad3antrrr 730 . . . . . . . . . . . 12 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ ¬ 𝑥 ≤ (𝐾 + 1)) → (𝐾 + 1) ∈ ℝ)
200109ad2antrr 726 . . . . . . . . . . . 12 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ ¬ 𝑥 ≤ (𝐾 + 1)) → 𝑥 ∈ ℝ)
20191ad3antrrr 730 . . . . . . . . . . . 12 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ ¬ 𝑥 ≤ (𝐾 + 1)) → 𝐾 < (𝐾 + 1))
202 simpr 484 . . . . . . . . . . . . 13 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ ¬ 𝑥 ≤ (𝐾 + 1)) → ¬ 𝑥 ≤ (𝐾 + 1))
203199, 200ltnled 11321 . . . . . . . . . . . . 13 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ ¬ 𝑥 ≤ (𝐾 + 1)) → ((𝐾 + 1) < 𝑥 ↔ ¬ 𝑥 ≤ (𝐾 + 1)))
204202, 203mpbird 257 . . . . . . . . . . . 12 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ ¬ 𝑥 ≤ (𝐾 + 1)) → (𝐾 + 1) < 𝑥)
205198, 199, 200, 201, 204lttrd 11335 . . . . . . . . . . 11 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ ¬ 𝑥 ≤ (𝐾 + 1)) → 𝐾 < 𝑥)
206198, 205ltned 11310 . . . . . . . . . 10 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ ¬ 𝑥 ≤ (𝐾 + 1)) → 𝐾𝑥)
207199, 204ltned 11310 . . . . . . . . . 10 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ ¬ 𝑥 ≤ (𝐾 + 1)) → (𝐾 + 1) ≠ 𝑥)
208197, 206, 2073jca 1128 . . . . . . . . 9 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ ¬ 𝑥 ≤ (𝐾 + 1)) → (𝐾 ≠ (𝐾 + 1) ∧ 𝐾𝑥 ∧ (𝐾 + 1) ≠ 𝑥))
20910pmtrprfv3 19384 . . . . . . . . 9 ((𝐷 ∈ Fin ∧ (𝐾𝐷 ∧ (𝐾 + 1) ∈ 𝐷𝑥𝐷) ∧ (𝐾 ≠ (𝐾 + 1) ∧ 𝐾𝑥 ∧ (𝐾 + 1) ≠ 𝑥)) → (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘𝑥) = 𝑥)
210192, 196, 208, 209syl3anc 1373 . . . . . . . 8 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ ¬ 𝑥 ≤ (𝐾 + 1)) → (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘𝑥) = 𝑥)
211191, 210eqtr2d 2765 . . . . . . 7 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ ¬ 𝑥 ≤ (𝐾 + 1)) → 𝑥 = (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘if(𝑥𝐾, (𝑥 − 1), 𝑥)))
212180, 211ifeqda 4525 . . . . . 6 ((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) → if(𝑥 ≤ (𝐾 + 1), (𝑥 − 1), 𝑥) = (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘if(𝑥𝐾, (𝑥 − 1), 𝑥)))
213140iffalsed 4499 . . . . . . 7 ((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) → if(𝑥 = 1, 𝐾, if(𝑥𝐾, (𝑥 − 1), 𝑥)) = if(𝑥𝐾, (𝑥 − 1), 𝑥))
214213fveq2d 6862 . . . . . 6 ((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) → (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘if(𝑥 = 1, 𝐾, if(𝑥𝐾, (𝑥 − 1), 𝑥))) = (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘if(𝑥𝐾, (𝑥 − 1), 𝑥)))
215212, 214eqtr4d 2767 . . . . 5 ((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) → if(𝑥 ≤ (𝐾 + 1), (𝑥 − 1), 𝑥) = (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘if(𝑥 = 1, 𝐾, if(𝑥𝐾, (𝑥 − 1), 𝑥))))
21696, 215ifeqda 4525 . . . 4 (((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) → if(𝑥 = 1, (𝐾 + 1), if(𝑥 ≤ (𝐾 + 1), (𝑥 − 1), 𝑥)) = (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘if(𝑥 = 1, 𝐾, if(𝑥𝐾, (𝑥 − 1), 𝑥))))
217 eqidd 2730 . . . . . 6 (((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) → (𝑖𝐷 ↦ if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖))) = (𝑖𝐷 ↦ if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖))))
218 eqeq1 2733 . . . . . . . 8 (𝑖 = 𝑥 → (𝑖 = 1 ↔ 𝑥 = 1))
219 breq1 5110 . . . . . . . . 9 (𝑖 = 𝑥 → (𝑖𝐾𝑥𝐾))
220 oveq1 7394 . . . . . . . . 9 (𝑖 = 𝑥 → (𝑖 − 1) = (𝑥 − 1))
221 id 22 . . . . . . . . 9 (𝑖 = 𝑥𝑖 = 𝑥)
222219, 220, 221ifbieq12d 4517 . . . . . . . 8 (𝑖 = 𝑥 → if(𝑖𝐾, (𝑖 − 1), 𝑖) = if(𝑥𝐾, (𝑥 − 1), 𝑥))
223218, 222ifbieq2d 4515 . . . . . . 7 (𝑖 = 𝑥 → if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖)) = if(𝑥 = 1, 𝐾, if(𝑥𝐾, (𝑥 − 1), 𝑥)))
224223adantl 481 . . . . . 6 ((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ 𝑖 = 𝑥) → if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖)) = if(𝑥 = 1, 𝐾, if(𝑥𝐾, (𝑥 − 1), 𝑥)))
225 ovex 7420 . . . . . . . . 9 (𝑥 − 1) ∈ V
226 vex 3451 . . . . . . . . 9 𝑥 ∈ V
227225, 226ifcli 4536 . . . . . . . 8 if(𝑥𝐾, (𝑥 − 1), 𝑥) ∈ V
228227a1i 11 . . . . . . 7 (((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) → if(𝑥𝐾, (𝑥 − 1), 𝑥) ∈ V)
229130, 228ifexd 4537 . . . . . 6 (((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) → if(𝑥 = 1, 𝐾, if(𝑥𝐾, (𝑥 − 1), 𝑥)) ∈ V)
230217, 224, 107, 229fvmptd 6975 . . . . 5 (((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) → ((𝑖𝐷 ↦ if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖)))‘𝑥) = if(𝑥 = 1, 𝐾, if(𝑥𝐾, (𝑥 − 1), 𝑥)))
231230fveq2d 6862 . . . 4 (((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) → (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘((𝑖𝐷 ↦ if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖)))‘𝑥)) = (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘if(𝑥 = 1, 𝐾, if(𝑥𝐾, (𝑥 − 1), 𝑥))))
232216, 231eqtr4d 2767 . . 3 (((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) → if(𝑥 = 1, (𝐾 + 1), if(𝑥 ≤ (𝐾 + 1), (𝑥 − 1), 𝑥)) = (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘((𝑖𝐷 ↦ if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖)))‘𝑥)))
233 breq1 5110 . . . . . . 7 (𝑖 = 𝑥 → (𝑖 ≤ (𝐾 + 1) ↔ 𝑥 ≤ (𝐾 + 1)))
234233, 220, 221ifbieq12d 4517 . . . . . 6 (𝑖 = 𝑥 → if(𝑖 ≤ (𝐾 + 1), (𝑖 − 1), 𝑖) = if(𝑥 ≤ (𝐾 + 1), (𝑥 − 1), 𝑥))
235218, 234ifbieq2d 4515 . . . . 5 (𝑖 = 𝑥 → if(𝑖 = 1, (𝐾 + 1), if(𝑖 ≤ (𝐾 + 1), (𝑖 − 1), 𝑖)) = if(𝑥 = 1, (𝐾 + 1), if(𝑥 ≤ (𝐾 + 1), (𝑥 − 1), 𝑥)))
236225, 226ifex 4539 . . . . . 6 if(𝑥 ≤ (𝐾 + 1), (𝑥 − 1), 𝑥) ∈ V
2371, 236ifex 4539 . . . . 5 if(𝑥 = 1, (𝐾 + 1), if(𝑥 ≤ (𝐾 + 1), (𝑥 − 1), 𝑥)) ∈ V
238235, 6, 237fvmpt 6968 . . . 4 (𝑥𝐷 → ((𝑖𝐷 ↦ if(𝑖 = 1, (𝐾 + 1), if(𝑖 ≤ (𝐾 + 1), (𝑖 − 1), 𝑖)))‘𝑥) = if(𝑥 = 1, (𝐾 + 1), if(𝑥 ≤ (𝐾 + 1), (𝑥 − 1), 𝑥)))
239238adantl 481 . . 3 (((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) → ((𝑖𝐷 ↦ if(𝑖 = 1, (𝐾 + 1), if(𝑖 ≤ (𝐾 + 1), (𝑖 − 1), 𝑖)))‘𝑥) = if(𝑥 = 1, (𝐾 + 1), if(𝑥 ≤ (𝐾 + 1), (𝑥 − 1), 𝑥)))
240 funmpt 6554 . . . . 5 Fun (𝑖𝐷 ↦ if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖)))
241240a1i 11 . . . 4 (((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) → Fun (𝑖𝐷 ↦ if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖))))
24276adantr 480 . . . . . 6 (((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) → ∀𝑖𝐷 if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖)) ∈ 𝐷)
243 dmmptg 6215 . . . . . 6 (∀𝑖𝐷 if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖)) ∈ 𝐷 → dom (𝑖𝐷 ↦ if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖))) = 𝐷)
244242, 243syl 17 . . . . 5 (((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) → dom (𝑖𝐷 ↦ if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖))) = 𝐷)
245107, 244eleqtrrd 2831 . . . 4 (((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) → 𝑥 ∈ dom (𝑖𝐷 ↦ if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖))))
246 fvco 6959 . . . 4 ((Fun (𝑖𝐷 ↦ if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖))) ∧ 𝑥 ∈ dom (𝑖𝐷 ↦ if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖)))) → ((((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)}) ∘ (𝑖𝐷 ↦ if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖))))‘𝑥) = (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘((𝑖𝐷 ↦ if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖)))‘𝑥)))
247241, 245, 246syl2anc 584 . . 3 (((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) → ((((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)}) ∘ (𝑖𝐷 ↦ if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖))))‘𝑥) = (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘((𝑖𝐷 ↦ if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖)))‘𝑥)))
248232, 239, 2473eqtr4d 2774 . 2 (((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) → ((𝑖𝐷 ↦ if(𝑖 = 1, (𝐾 + 1), if(𝑖 ≤ (𝐾 + 1), (𝑖 − 1), 𝑖)))‘𝑥) = ((((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)}) ∘ (𝑖𝐷 ↦ if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖))))‘𝑥))
2498, 83, 248eqfnfvd 7006 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 206  wa 395  wo 847  w3a 1086   = wceq 1540  wcel 2109  wne 2925  wral 3044  Vcvv 3447  wss 3914  ifcif 4488  {cpr 4591   class class class wbr 5107  cmpt 5188  dom cdm 5638  ran crn 5639  ccom 5642  Fun wfun 6505   Fn wfn 6506  1-1-ontowf1o 6510  cfv 6511  (class class class)co 7387  Fincfn 8918  cc 11066  cr 11067  1c1 11069   + caddc 11071   < clt 11208  cle 11209  cmin 11405  cn 12186  2c2 12241  cz 12529  cuz 12793  ...cfz 13468  pmTrspcpmtr 19371
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1967  ax-7 2008  ax-8 2111  ax-9 2119  ax-10 2142  ax-11 2158  ax-12 2178  ax-ext 2701  ax-rep 5234  ax-sep 5251  ax-nul 5261  ax-pow 5320  ax-pr 5387  ax-un 7711  ax-cnex 11124  ax-resscn 11125  ax-1cn 11126  ax-icn 11127  ax-addcl 11128  ax-addrcl 11129  ax-mulcl 11130  ax-mulrcl 11131  ax-mulcom 11132  ax-addass 11133  ax-mulass 11134  ax-distr 11135  ax-i2m1 11136  ax-1ne0 11137  ax-1rid 11138  ax-rnegex 11139  ax-rrecex 11140  ax-cnre 11141  ax-pre-lttri 11142  ax-pre-lttrn 11143  ax-pre-ltadd 11144  ax-pre-mulgt0 11145
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2066  df-mo 2533  df-eu 2562  df-clab 2708  df-cleq 2721  df-clel 2803  df-nfc 2878  df-ne 2926  df-nel 3030  df-ral 3045  df-rex 3054  df-reu 3355  df-rab 3406  df-v 3449  df-sbc 3754  df-csb 3863  df-dif 3917  df-un 3919  df-in 3921  df-ss 3931  df-pss 3934  df-nul 4297  df-if 4489  df-pw 4565  df-sn 4590  df-pr 4592  df-op 4596  df-uni 4872  df-iun 4957  df-br 5108  df-opab 5170  df-mpt 5189  df-tr 5215  df-id 5533  df-eprel 5538  df-po 5546  df-so 5547  df-fr 5591  df-we 5593  df-xp 5644  df-rel 5645  df-cnv 5646  df-co 5647  df-dm 5648  df-rn 5649  df-res 5650  df-ima 5651  df-pred 6274  df-ord 6335  df-on 6336  df-lim 6337  df-suc 6338  df-iota 6464  df-fun 6513  df-fn 6514  df-f 6515  df-f1 6516  df-fo 6517  df-f1o 6518  df-fv 6519  df-riota 7344  df-ov 7390  df-oprab 7391  df-mpo 7392  df-om 7843  df-1st 7968  df-2nd 7969  df-frecs 8260  df-wrecs 8291  df-recs 8340  df-rdg 8378  df-1o 8434  df-2o 8435  df-er 8671  df-en 8919  df-dom 8920  df-sdom 8921  df-fin 8922  df-pnf 11210  df-mnf 11211  df-xr 11212  df-ltxr 11213  df-le 11214  df-sub 11407  df-neg 11408  df-nn 12187  df-2 12249  df-n0 12443  df-z 12530  df-uz 12794  df-fz 13469  df-pmtr 19372
This theorem is referenced by:  fzto1st  33060  psgnfzto1st  33062
  Copyright terms: Public domain W3C validator