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 33093
Description: Lemma for psgnfzto1st 33098. 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 7481 . . . . 5 (𝐾 + 1) ∈ V
2 ovex 7481 . . . . . 6 (𝑖 − 1) ∈ V
3 vex 3492 . . . . . 6 𝑖 ∈ V
42, 3ifex 4598 . . . . 5 if(𝑖 ≤ (𝐾 + 1), (𝑖 − 1), 𝑖) ∈ V
51, 4ifex 4598 . . . 4 if(𝑖 = 1, (𝐾 + 1), if(𝑖 ≤ (𝐾 + 1), (𝑖 − 1), 𝑖)) ∈ V
6 eqid 2740 . . . 4 (𝑖𝐷 ↦ if(𝑖 = 1, (𝐾 + 1), if(𝑖 ≤ (𝐾 + 1), (𝑖 − 1), 𝑖))) = (𝑖𝐷 ↦ if(𝑖 = 1, (𝐾 + 1), if(𝑖 ≤ (𝐾 + 1), (𝑖 − 1), 𝑖)))
75, 6fnmpti 6723 . . 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 2740 . . . . 5 (pmTrsp‘𝐷) = (pmTrsp‘𝐷)
119, 10pmtrto1cl 33092 . . . 4 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → ((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)}) ∈ ran (pmTrsp‘𝐷))
12 eqid 2740 . . . . 5 ran (pmTrsp‘𝐷) = ran (pmTrsp‘𝐷)
1310, 12pmtrff1o 19505 . . . 4 (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)}) ∈ ran (pmTrsp‘𝐷) → ((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)}):𝐷1-1-onto𝐷)
14 f1ofn 6863 . . . 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 4556 . . . . . . 7 ((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ 𝑖 = 1) → if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖)) = 𝐾)
18 simpl 482 . . . . . . . . . 10 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → 𝐾 ∈ ℕ)
1918nnred 12308 . . . . . . . . . . 11 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → 𝐾 ∈ ℝ)
20 fz1ssnn 13615 . . . . . . . . . . . . 13 (1...𝑁) ⊆ ℕ
219eleq2i 2836 . . . . . . . . . . . . . . 15 ((𝐾 + 1) ∈ 𝐷 ↔ (𝐾 + 1) ∈ (1...𝑁))
2221biimpi 216 . . . . . . . . . . . . . 14 ((𝐾 + 1) ∈ 𝐷 → (𝐾 + 1) ∈ (1...𝑁))
2322adantl 481 . . . . . . . . . . . . 13 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → (𝐾 + 1) ∈ (1...𝑁))
2420, 23sselid 4006 . . . . . . . . . . . 12 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → (𝐾 + 1) ∈ ℕ)
2524nnred 12308 . . . . . . . . . . 11 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → (𝐾 + 1) ∈ ℝ)
26 elfz1b 13653 . . . . . . . . . . . . . . 15 ((𝐾 + 1) ∈ (1...𝑁) ↔ ((𝐾 + 1) ∈ ℕ ∧ 𝑁 ∈ ℕ ∧ (𝐾 + 1) ≤ 𝑁))
2726simp2bi 1146 . . . . . . . . . . . . . 14 ((𝐾 + 1) ∈ (1...𝑁) → 𝑁 ∈ ℕ)
2822, 27syl 17 . . . . . . . . . . . . 13 ((𝐾 + 1) ∈ 𝐷𝑁 ∈ ℕ)
2928adantl 481 . . . . . . . . . . . 12 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → 𝑁 ∈ ℕ)
3029nnred 12308 . . . . . . . . . . 11 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → 𝑁 ∈ ℝ)
3119lep1d 12226 . . . . . . . . . . 11 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → 𝐾 ≤ (𝐾 + 1))
32 elfzle2 13588 . . . . . . . . . . . 12 ((𝐾 + 1) ∈ (1...𝑁) → (𝐾 + 1) ≤ 𝑁)
3323, 32syl 17 . . . . . . . . . . 11 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → (𝐾 + 1) ≤ 𝑁)
3419, 25, 30, 31, 33letrd 11447 . . . . . . . . . 10 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → 𝐾𝑁)
3529nnzd 12666 . . . . . . . . . . 11 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → 𝑁 ∈ ℤ)
36 fznn 13652 . . . . . . . . . . 11 (𝑁 ∈ ℤ → (𝐾 ∈ (1...𝑁) ↔ (𝐾 ∈ ℕ ∧ 𝐾𝑁)))
3735, 36syl 17 . . . . . . . . . 10 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → (𝐾 ∈ (1...𝑁) ↔ (𝐾 ∈ ℕ ∧ 𝐾𝑁)))
3818, 34, 37mpbir2and 712 . . . . . . . . 9 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → 𝐾 ∈ (1...𝑁))
3938, 9eleqtrrdi 2855 . . . . . . . 8 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → 𝐾𝐷)
4039ad2antrr 725 . . . . . . 7 ((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ 𝑖 = 1) → 𝐾𝐷)
4117, 40eqeltrd 2844 . . . . . 6 ((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ 𝑖 = 1) → if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖)) ∈ 𝐷)
42 simpr 484 . . . . . . . 8 ((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) → ¬ 𝑖 = 1)
4342iffalsed 4559 . . . . . . 7 ((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) → if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖)) = if(𝑖𝐾, (𝑖 − 1), 𝑖))
44 simpr 484 . . . . . . . . . 10 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ 𝑖𝐾) → 𝑖𝐾)
4544iftrued 4556 . . . . . . . . 9 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ 𝑖𝐾) → if(𝑖𝐾, (𝑖 − 1), 𝑖) = (𝑖 − 1))
4642adantr 480 . . . . . . . . . . . . 13 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ 𝑖𝐾) → ¬ 𝑖 = 1)
479, 20eqsstri 4043 . . . . . . . . . . . . . . . 16 𝐷 ⊆ ℕ
48 simpllr 775 . . . . . . . . . . . . . . . 16 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ 𝑖𝐾) → 𝑖𝐷)
4947, 48sselid 4006 . . . . . . . . . . . . . . 15 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ 𝑖𝐾) → 𝑖 ∈ ℕ)
50 nn1m1nn 12314 . . . . . . . . . . . . . . 15 (𝑖 ∈ ℕ → (𝑖 = 1 ∨ (𝑖 − 1) ∈ ℕ))
5149, 50syl 17 . . . . . . . . . . . . . 14 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ 𝑖𝐾) → (𝑖 = 1 ∨ (𝑖 − 1) ∈ ℕ))
5251ord 863 . . . . . . . . . . . . 13 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ 𝑖𝐾) → (¬ 𝑖 = 1 → (𝑖 − 1) ∈ ℕ))
5346, 52mpd 15 . . . . . . . . . . . 12 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ 𝑖𝐾) → (𝑖 − 1) ∈ ℕ)
5453nnred 12308 . . . . . . . . . . . . 13 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ 𝑖𝐾) → (𝑖 − 1) ∈ ℝ)
5549nnred 12308 . . . . . . . . . . . . 13 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ 𝑖𝐾) → 𝑖 ∈ ℝ)
5630ad3antrrr 729 . . . . . . . . . . . . 13 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ 𝑖𝐾) → 𝑁 ∈ ℝ)
5755lem1d 12228 . . . . . . . . . . . . 13 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ 𝑖𝐾) → (𝑖 − 1) ≤ 𝑖)
5848, 9eleqtrdi 2854 . . . . . . . . . . . . . 14 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ 𝑖𝐾) → 𝑖 ∈ (1...𝑁))
59 elfzle2 13588 . . . . . . . . . . . . . 14 (𝑖 ∈ (1...𝑁) → 𝑖𝑁)
6058, 59syl 17 . . . . . . . . . . . . 13 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ 𝑖𝐾) → 𝑖𝑁)
6154, 55, 56, 57, 60letrd 11447 . . . . . . . . . . . 12 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ 𝑖𝐾) → (𝑖 − 1) ≤ 𝑁)
6253, 61jca 511 . . . . . . . . . . 11 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ 𝑖𝐾) → ((𝑖 − 1) ∈ ℕ ∧ (𝑖 − 1) ≤ 𝑁))
63 fznn 13652 . . . . . . . . . . . . 13 (𝑁 ∈ ℤ → ((𝑖 − 1) ∈ (1...𝑁) ↔ ((𝑖 − 1) ∈ ℕ ∧ (𝑖 − 1) ≤ 𝑁)))
6435, 63syl 17 . . . . . . . . . . . 12 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → ((𝑖 − 1) ∈ (1...𝑁) ↔ ((𝑖 − 1) ∈ ℕ ∧ (𝑖 − 1) ≤ 𝑁)))
6564ad3antrrr 729 . . . . . . . . . . 11 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ 𝑖𝐾) → ((𝑖 − 1) ∈ (1...𝑁) ↔ ((𝑖 − 1) ∈ ℕ ∧ (𝑖 − 1) ≤ 𝑁)))
6662, 65mpbird 257 . . . . . . . . . 10 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ 𝑖𝐾) → (𝑖 − 1) ∈ (1...𝑁))
6766, 9eleqtrrdi 2855 . . . . . . . . 9 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ 𝑖𝐾) → (𝑖 − 1) ∈ 𝐷)
6845, 67eqeltrd 2844 . . . . . . . 8 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ 𝑖𝐾) → if(𝑖𝐾, (𝑖 − 1), 𝑖) ∈ 𝐷)
69 simpr 484 . . . . . . . . . 10 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ ¬ 𝑖𝐾) → ¬ 𝑖𝐾)
7069iffalsed 4559 . . . . . . . . 9 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ ¬ 𝑖𝐾) → if(𝑖𝐾, (𝑖 − 1), 𝑖) = 𝑖)
71 simpllr 775 . . . . . . . . 9 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ ¬ 𝑖𝐾) → 𝑖𝐷)
7270, 71eqeltrd 2844 . . . . . . . 8 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ ¬ 𝑖𝐾) → if(𝑖𝐾, (𝑖 − 1), 𝑖) ∈ 𝐷)
7368, 72pm2.61dan 812 . . . . . . 7 ((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) → if(𝑖𝐾, (𝑖 − 1), 𝑖) ∈ 𝐷)
7443, 73eqeltrd 2844 . . . . . 6 ((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) → if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖)) ∈ 𝐷)
7541, 74pm2.61dan 812 . . . . 5 (((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) → if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖)) ∈ 𝐷)
7675ralrimiva 3152 . . . 4 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → ∀𝑖𝐷 if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖)) ∈ 𝐷)
77 eqid 2740 . . . . 5 (𝑖𝐷 ↦ if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖))) = (𝑖𝐷 ↦ if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖)))
7877fnmpt 6720 . . . 4 (∀𝑖𝐷 if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖)) ∈ 𝐷 → (𝑖𝐷 ↦ if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖))) Fn 𝐷)
7976, 78syl 17 . . 3 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → (𝑖𝐷 ↦ if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖))) Fn 𝐷)
8077rnmptss 7157 . . . 4 (∀𝑖𝐷 if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖)) ∈ 𝐷 → ran (𝑖𝐷 ↦ if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖))) ⊆ 𝐷)
8176, 80syl 17 . . 3 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → ran (𝑖𝐷 ↦ if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖))) ⊆ 𝐷)
82 fnco 6697 . . 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 1371 . 2 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)}) ∘ (𝑖𝐷 ↦ if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖)))) Fn 𝐷)
84 simpr 484 . . . . . . . 8 ((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ 𝑥 = 1) → 𝑥 = 1)
8584iftrued 4556 . . . . . . 7 ((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ 𝑥 = 1) → if(𝑥 = 1, 𝐾, if(𝑥𝐾, (𝑥 − 1), 𝑥)) = 𝐾)
8685fveq2d 6924 . . . . . 6 ((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ 𝑥 = 1) → (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘if(𝑥 = 1, 𝐾, if(𝑥𝐾, (𝑥 − 1), 𝑥))) = (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘𝐾))
87 fzfi 14023 . . . . . . . . . 10 (1...𝑁) ∈ Fin
889, 87eqeltri 2840 . . . . . . . . 9 𝐷 ∈ Fin
8988a1i 11 . . . . . . . 8 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → 𝐷 ∈ Fin)
9023, 21sylibr 234 . . . . . . . 8 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → (𝐾 + 1) ∈ 𝐷)
9119ltp1d 12225 . . . . . . . . 9 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → 𝐾 < (𝐾 + 1))
9219, 91ltned 11426 . . . . . . . 8 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → 𝐾 ≠ (𝐾 + 1))
9310pmtrprfv 19495 . . . . . . . 8 ((𝐷 ∈ Fin ∧ (𝐾𝐷 ∧ (𝐾 + 1) ∈ 𝐷𝐾 ≠ (𝐾 + 1))) → (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘𝐾) = (𝐾 + 1))
9489, 39, 90, 92, 93syl13anc 1372 . . . . . . 7 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘𝐾) = (𝐾 + 1))
9594ad2antrr 725 . . . . . 6 ((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ 𝑥 = 1) → (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘𝐾) = (𝐾 + 1))
9686, 95eqtr2d 2781 . . . . 5 ((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ 𝑥 = 1) → (𝐾 + 1) = (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘if(𝑥 = 1, 𝐾, if(𝑥𝐾, (𝑥 − 1), 𝑥))))
9788a1i 11 . . . . . . . . . 10 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 = (𝐾 + 1)) → 𝐷 ∈ Fin)
9839ad4antr 731 . . . . . . . . . 10 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 = (𝐾 + 1)) → 𝐾𝐷)
9990ad4antr 731 . . . . . . . . . 10 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 = (𝐾 + 1)) → (𝐾 + 1) ∈ 𝐷)
10092ad4antr 731 . . . . . . . . . 10 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 = (𝐾 + 1)) → 𝐾 ≠ (𝐾 + 1))
10110pmtrprfv2 33081 . . . . . . . . . 10 ((𝐷 ∈ Fin ∧ (𝐾𝐷 ∧ (𝐾 + 1) ∈ 𝐷𝐾 ≠ (𝐾 + 1))) → (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘(𝐾 + 1)) = 𝐾)
10297, 98, 99, 100, 101syl13anc 1372 . . . . . . . . 9 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 = (𝐾 + 1)) → (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘(𝐾 + 1)) = 𝐾)
10391ad4antr 731 . . . . . . . . . . . . . 14 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 = (𝐾 + 1)) → 𝐾 < (𝐾 + 1))
104 simpr 484 . . . . . . . . . . . . . 14 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 = (𝐾 + 1)) → 𝑥 = (𝐾 + 1))
105103, 104breqtrrd 5194 . . . . . . . . . . . . 13 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 = (𝐾 + 1)) → 𝐾 < 𝑥)
10619ad4antr 731 . . . . . . . . . . . . . 14 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 = (𝐾 + 1)) → 𝐾 ∈ ℝ)
107 simpr 484 . . . . . . . . . . . . . . . . 17 (((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) → 𝑥𝐷)
10847, 107sselid 4006 . . . . . . . . . . . . . . . 16 (((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) → 𝑥 ∈ ℕ)
109108nnred 12308 . . . . . . . . . . . . . . 15 (((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) → 𝑥 ∈ ℝ)
110109ad3antrrr 729 . . . . . . . . . . . . . 14 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 = (𝐾 + 1)) → 𝑥 ∈ ℝ)
111106, 110ltnled 11437 . . . . . . . . . . . . 13 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 = (𝐾 + 1)) → (𝐾 < 𝑥 ↔ ¬ 𝑥𝐾))
112105, 111mpbid 232 . . . . . . . . . . . 12 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 = (𝐾 + 1)) → ¬ 𝑥𝐾)
113112iffalsed 4559 . . . . . . . . . . 11 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 = (𝐾 + 1)) → if(𝑥𝐾, (𝑥 − 1), 𝑥) = 𝑥)
114113, 104eqtrd 2780 . . . . . . . . . 10 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 = (𝐾 + 1)) → if(𝑥𝐾, (𝑥 − 1), 𝑥) = (𝐾 + 1))
115114fveq2d 6924 . . . . . . . . 9 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 = (𝐾 + 1)) → (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘if(𝑥𝐾, (𝑥 − 1), 𝑥)) = (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘(𝐾 + 1)))
116104oveq1d 7463 . . . . . . . . . 10 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 = (𝐾 + 1)) → (𝑥 − 1) = ((𝐾 + 1) − 1))
117106recnd 11318 . . . . . . . . . . 11 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 = (𝐾 + 1)) → 𝐾 ∈ ℂ)
118 1cnd 11285 . . . . . . . . . . 11 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 = (𝐾 + 1)) → 1 ∈ ℂ)
119117, 118pncand 11648 . . . . . . . . . 10 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 = (𝐾 + 1)) → ((𝐾 + 1) − 1) = 𝐾)
120116, 119eqtrd 2780 . . . . . . . . 9 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 = (𝐾 + 1)) → (𝑥 − 1) = 𝐾)
121102, 115, 1203eqtr4rd 2791 . . . . . . . 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 3002 . . . . . . . . . . . . 13 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → (𝐾 + 1) ≠ 𝑥)
125109ad3antrrr 729 . . . . . . . . . . . . . 14 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → 𝑥 ∈ ℝ)
12625ad4antr 731 . . . . . . . . . . . . . 14 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → (𝐾 + 1) ∈ ℝ)
127125, 126ltlend 11435 . . . . . . . . . . . . 13 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → (𝑥 < (𝐾 + 1) ↔ (𝑥 ≤ (𝐾 + 1) ∧ (𝐾 + 1) ≠ 𝑥)))
128122, 124, 127mpbir2and 712 . . . . . . . . . . . 12 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → 𝑥 < (𝐾 + 1))
129108ad3antrrr 729 . . . . . . . . . . . . 13 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → 𝑥 ∈ ℕ)
130 simpll 766 . . . . . . . . . . . . . 14 (((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) → 𝐾 ∈ ℕ)
131130ad3antrrr 729 . . . . . . . . . . . . 13 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → 𝐾 ∈ ℕ)
132 nnleltp1 12698 . . . . . . . . . . . . 13 ((𝑥 ∈ ℕ ∧ 𝐾 ∈ ℕ) → (𝑥𝐾𝑥 < (𝐾 + 1)))
133129, 131, 132syl2anc 583 . . . . . . . . . . . 12 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → (𝑥𝐾𝑥 < (𝐾 + 1)))
134128, 133mpbird 257 . . . . . . . . . . 11 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → 𝑥𝐾)
135134iftrued 4556 . . . . . . . . . 10 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → if(𝑥𝐾, (𝑥 − 1), 𝑥) = (𝑥 − 1))
136135fveq2d 6924 . . . . . . . . 9 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘if(𝑥𝐾, (𝑥 − 1), 𝑥)) = (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘(𝑥 − 1)))
13788a1i 11 . . . . . . . . . 10 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → 𝐷 ∈ Fin)
13839ad4antr 731 . . . . . . . . . . 11 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → 𝐾𝐷)
139 simp-5r 785 . . . . . . . . . . 11 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → (𝐾 + 1) ∈ 𝐷)
140 simpr 484 . . . . . . . . . . . . . . . . 17 ((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) → ¬ 𝑥 = 1)
141140ad2antrr 725 . . . . . . . . . . . . . . . 16 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → ¬ 𝑥 = 1)
142 elnn1uz2 12990 . . . . . . . . . . . . . . . . . 18 (𝑥 ∈ ℕ ↔ (𝑥 = 1 ∨ 𝑥 ∈ (ℤ‘2)))
143129, 142sylib 218 . . . . . . . . . . . . . . . . 17 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → (𝑥 = 1 ∨ 𝑥 ∈ (ℤ‘2)))
144143ord 863 . . . . . . . . . . . . . . . 16 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → (¬ 𝑥 = 1 → 𝑥 ∈ (ℤ‘2)))
145141, 144mpd 15 . . . . . . . . . . . . . . 15 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → 𝑥 ∈ (ℤ‘2))
146 uz2m1nn 12988 . . . . . . . . . . . . . . 15 (𝑥 ∈ (ℤ‘2) → (𝑥 − 1) ∈ ℕ)
147145, 146syl 17 . . . . . . . . . . . . . 14 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → (𝑥 − 1) ∈ ℕ)
148139, 28syl 17 . . . . . . . . . . . . . 14 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → 𝑁 ∈ ℕ)
149147nnred 12308 . . . . . . . . . . . . . . 15 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → (𝑥 − 1) ∈ ℝ)
150131, 139, 30syl2anc 583 . . . . . . . . . . . . . . 15 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → 𝑁 ∈ ℝ)
151125lem1d 12228 . . . . . . . . . . . . . . 15 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → (𝑥 − 1) ≤ 𝑥)
152107ad3antrrr 729 . . . . . . . . . . . . . . . . 17 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → 𝑥𝐷)
153152, 9eleqtrdi 2854 . . . . . . . . . . . . . . . 16 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → 𝑥 ∈ (1...𝑁))
154 elfzle2 13588 . . . . . . . . . . . . . . . 16 (𝑥 ∈ (1...𝑁) → 𝑥𝑁)
155153, 154syl 17 . . . . . . . . . . . . . . 15 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → 𝑥𝑁)
156149, 125, 150, 151, 155letrd 11447 . . . . . . . . . . . . . 14 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → (𝑥 − 1) ≤ 𝑁)
157147, 148, 1563jca 1128 . . . . . . . . . . . . 13 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → ((𝑥 − 1) ∈ ℕ ∧ 𝑁 ∈ ℕ ∧ (𝑥 − 1) ≤ 𝑁))
158 elfz1b 13653 . . . . . . . . . . . . 13 ((𝑥 − 1) ∈ (1...𝑁) ↔ ((𝑥 − 1) ∈ ℕ ∧ 𝑁 ∈ ℕ ∧ (𝑥 − 1) ≤ 𝑁))
159157, 158sylibr 234 . . . . . . . . . . . 12 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → (𝑥 − 1) ∈ (1...𝑁))
160159, 9eleqtrrdi 2855 . . . . . . . . . . 11 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → (𝑥 − 1) ∈ 𝐷)
161138, 139, 1603jca 1128 . . . . . . . . . 10 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → (𝐾𝐷 ∧ (𝐾 + 1) ∈ 𝐷 ∧ (𝑥 − 1) ∈ 𝐷))
162131, 139, 92syl2anc 583 . . . . . . . . . . 11 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → 𝐾 ≠ (𝐾 + 1))
163 simpr 484 . . . . . . . . . . . . . . . 16 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝐾 = (𝑥 − 1)) → 𝐾 = (𝑥 − 1))
164163oveq1d 7463 . . . . . . . . . . . . . . 15 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝐾 = (𝑥 − 1)) → (𝐾 + 1) = ((𝑥 − 1) + 1))
165109recnd 11318 . . . . . . . . . . . . . . . . 17 (((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) → 𝑥 ∈ ℂ)
166165ad3antrrr 729 . . . . . . . . . . . . . . . 16 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝐾 = (𝑥 − 1)) → 𝑥 ∈ ℂ)
167 1cnd 11285 . . . . . . . . . . . . . . . 16 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝐾 = (𝑥 − 1)) → 1 ∈ ℂ)
168166, 167npcand 11651 . . . . . . . . . . . . . . 15 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝐾 = (𝑥 − 1)) → ((𝑥 − 1) + 1) = 𝑥)
169164, 168eqtr2d 2781 . . . . . . . . . . . . . 14 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝐾 = (𝑥 − 1)) → 𝑥 = (𝐾 + 1))
170169ex 412 . . . . . . . . . . . . 13 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) → (𝐾 = (𝑥 − 1) → 𝑥 = (𝐾 + 1)))
171170necon3d 2967 . . . . . . . . . . . 12 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) → (𝑥 ≠ (𝐾 + 1) → 𝐾 ≠ (𝑥 − 1)))
172171imp 406 . . . . . . . . . . 11 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → 𝐾 ≠ (𝑥 − 1))
173149, 125, 126, 151, 128lelttrd 11448 . . . . . . . . . . . . 13 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → (𝑥 − 1) < (𝐾 + 1))
174149, 173ltned 11426 . . . . . . . . . . . 12 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → (𝑥 − 1) ≠ (𝐾 + 1))
175174necomd 3002 . . . . . . . . . . 11 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → (𝐾 + 1) ≠ (𝑥 − 1))
176162, 172, 1753jca 1128 . . . . . . . . . 10 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → (𝐾 ≠ (𝐾 + 1) ∧ 𝐾 ≠ (𝑥 − 1) ∧ (𝐾 + 1) ≠ (𝑥 − 1)))
17710pmtrprfv3 19496 . . . . . . . . . 10 ((𝐷 ∈ Fin ∧ (𝐾𝐷 ∧ (𝐾 + 1) ∈ 𝐷 ∧ (𝑥 − 1) ∈ 𝐷) ∧ (𝐾 ≠ (𝐾 + 1) ∧ 𝐾 ≠ (𝑥 − 1) ∧ (𝐾 + 1) ≠ (𝑥 − 1))) → (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘(𝑥 − 1)) = (𝑥 − 1))
178137, 161, 176, 177syl3anc 1371 . . . . . . . . 9 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘(𝑥 − 1)) = (𝑥 − 1))
179136, 178eqtr2d 2781 . . . . . . . 8 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → (𝑥 − 1) = (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘if(𝑥𝐾, (𝑥 − 1), 𝑥)))
180121, 179pm2.61dane 3035 . . . . . . 7 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) → (𝑥 − 1) = (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘if(𝑥𝐾, (𝑥 − 1), 𝑥)))
181109ad2antrr 725 . . . . . . . . . . . . . 14 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥𝐾) → 𝑥 ∈ ℝ)
18219ad3antrrr 729 . . . . . . . . . . . . . 14 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥𝐾) → 𝐾 ∈ ℝ)
18325ad3antrrr 729 . . . . . . . . . . . . . 14 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥𝐾) → (𝐾 + 1) ∈ ℝ)
184 simpr 484 . . . . . . . . . . . . . 14 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥𝐾) → 𝑥𝐾)
18531ad3antrrr 729 . . . . . . . . . . . . . 14 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥𝐾) → 𝐾 ≤ (𝐾 + 1))
186181, 182, 183, 184, 185letrd 11447 . . . . . . . . . . . . 13 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥𝐾) → 𝑥 ≤ (𝐾 + 1))
187186ex 412 . . . . . . . . . . . 12 ((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) → (𝑥𝐾𝑥 ≤ (𝐾 + 1)))
188187con3d 152 . . . . . . . . . . 11 ((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) → (¬ 𝑥 ≤ (𝐾 + 1) → ¬ 𝑥𝐾))
189188imp 406 . . . . . . . . . 10 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ ¬ 𝑥 ≤ (𝐾 + 1)) → ¬ 𝑥𝐾)
190189iffalsed 4559 . . . . . . . . 9 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ ¬ 𝑥 ≤ (𝐾 + 1)) → if(𝑥𝐾, (𝑥 − 1), 𝑥) = 𝑥)
191190fveq2d 6924 . . . . . . . 8 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ ¬ 𝑥 ≤ (𝐾 + 1)) → (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘if(𝑥𝐾, (𝑥 − 1), 𝑥)) = (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘𝑥))
19288a1i 11 . . . . . . . . 9 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ ¬ 𝑥 ≤ (𝐾 + 1)) → 𝐷 ∈ Fin)
19339ad3antrrr 729 . . . . . . . . . 10 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ ¬ 𝑥 ≤ (𝐾 + 1)) → 𝐾𝐷)
19490ad3antrrr 729 . . . . . . . . . 10 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ ¬ 𝑥 ≤ (𝐾 + 1)) → (𝐾 + 1) ∈ 𝐷)
195107ad2antrr 725 . . . . . . . . . 10 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ ¬ 𝑥 ≤ (𝐾 + 1)) → 𝑥𝐷)
196193, 194, 1953jca 1128 . . . . . . . . 9 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ ¬ 𝑥 ≤ (𝐾 + 1)) → (𝐾𝐷 ∧ (𝐾 + 1) ∈ 𝐷𝑥𝐷))
19792ad3antrrr 729 . . . . . . . . . 10 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ ¬ 𝑥 ≤ (𝐾 + 1)) → 𝐾 ≠ (𝐾 + 1))
19819ad3antrrr 729 . . . . . . . . . . 11 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ ¬ 𝑥 ≤ (𝐾 + 1)) → 𝐾 ∈ ℝ)
19925ad3antrrr 729 . . . . . . . . . . . 12 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ ¬ 𝑥 ≤ (𝐾 + 1)) → (𝐾 + 1) ∈ ℝ)
200109ad2antrr 725 . . . . . . . . . . . 12 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ ¬ 𝑥 ≤ (𝐾 + 1)) → 𝑥 ∈ ℝ)
20191ad3antrrr 729 . . . . . . . . . . . 12 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ ¬ 𝑥 ≤ (𝐾 + 1)) → 𝐾 < (𝐾 + 1))
202 simpr 484 . . . . . . . . . . . . 13 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ ¬ 𝑥 ≤ (𝐾 + 1)) → ¬ 𝑥 ≤ (𝐾 + 1))
203199, 200ltnled 11437 . . . . . . . . . . . . 13 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ ¬ 𝑥 ≤ (𝐾 + 1)) → ((𝐾 + 1) < 𝑥 ↔ ¬ 𝑥 ≤ (𝐾 + 1)))
204202, 203mpbird 257 . . . . . . . . . . . 12 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ ¬ 𝑥 ≤ (𝐾 + 1)) → (𝐾 + 1) < 𝑥)
205198, 199, 200, 201, 204lttrd 11451 . . . . . . . . . . 11 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ ¬ 𝑥 ≤ (𝐾 + 1)) → 𝐾 < 𝑥)
206198, 205ltned 11426 . . . . . . . . . 10 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ ¬ 𝑥 ≤ (𝐾 + 1)) → 𝐾𝑥)
207199, 204ltned 11426 . . . . . . . . . 10 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ ¬ 𝑥 ≤ (𝐾 + 1)) → (𝐾 + 1) ≠ 𝑥)
208197, 206, 2073jca 1128 . . . . . . . . 9 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ ¬ 𝑥 ≤ (𝐾 + 1)) → (𝐾 ≠ (𝐾 + 1) ∧ 𝐾𝑥 ∧ (𝐾 + 1) ≠ 𝑥))
20910pmtrprfv3 19496 . . . . . . . . 9 ((𝐷 ∈ Fin ∧ (𝐾𝐷 ∧ (𝐾 + 1) ∈ 𝐷𝑥𝐷) ∧ (𝐾 ≠ (𝐾 + 1) ∧ 𝐾𝑥 ∧ (𝐾 + 1) ≠ 𝑥)) → (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘𝑥) = 𝑥)
210192, 196, 208, 209syl3anc 1371 . . . . . . . 8 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ ¬ 𝑥 ≤ (𝐾 + 1)) → (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘𝑥) = 𝑥)
211191, 210eqtr2d 2781 . . . . . . 7 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ ¬ 𝑥 ≤ (𝐾 + 1)) → 𝑥 = (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘if(𝑥𝐾, (𝑥 − 1), 𝑥)))
212180, 211ifeqda 4584 . . . . . 6 ((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) → if(𝑥 ≤ (𝐾 + 1), (𝑥 − 1), 𝑥) = (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘if(𝑥𝐾, (𝑥 − 1), 𝑥)))
213140iffalsed 4559 . . . . . . 7 ((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) → if(𝑥 = 1, 𝐾, if(𝑥𝐾, (𝑥 − 1), 𝑥)) = if(𝑥𝐾, (𝑥 − 1), 𝑥))
214213fveq2d 6924 . . . . . 6 ((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) → (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘if(𝑥 = 1, 𝐾, if(𝑥𝐾, (𝑥 − 1), 𝑥))) = (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘if(𝑥𝐾, (𝑥 − 1), 𝑥)))
215212, 214eqtr4d 2783 . . . . 5 ((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) → if(𝑥 ≤ (𝐾 + 1), (𝑥 − 1), 𝑥) = (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘if(𝑥 = 1, 𝐾, if(𝑥𝐾, (𝑥 − 1), 𝑥))))
21696, 215ifeqda 4584 . . . 4 (((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) → if(𝑥 = 1, (𝐾 + 1), if(𝑥 ≤ (𝐾 + 1), (𝑥 − 1), 𝑥)) = (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘if(𝑥 = 1, 𝐾, if(𝑥𝐾, (𝑥 − 1), 𝑥))))
217 eqidd 2741 . . . . . 6 (((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) → (𝑖𝐷 ↦ if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖))) = (𝑖𝐷 ↦ if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖))))
218 eqeq1 2744 . . . . . . . 8 (𝑖 = 𝑥 → (𝑖 = 1 ↔ 𝑥 = 1))
219 breq1 5169 . . . . . . . . 9 (𝑖 = 𝑥 → (𝑖𝐾𝑥𝐾))
220 oveq1 7455 . . . . . . . . 9 (𝑖 = 𝑥 → (𝑖 − 1) = (𝑥 − 1))
221 id 22 . . . . . . . . 9 (𝑖 = 𝑥𝑖 = 𝑥)
222219, 220, 221ifbieq12d 4576 . . . . . . . 8 (𝑖 = 𝑥 → if(𝑖𝐾, (𝑖 − 1), 𝑖) = if(𝑥𝐾, (𝑥 − 1), 𝑥))
223218, 222ifbieq2d 4574 . . . . . . 7 (𝑖 = 𝑥 → if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖)) = if(𝑥 = 1, 𝐾, if(𝑥𝐾, (𝑥 − 1), 𝑥)))
224223adantl 481 . . . . . 6 ((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ 𝑖 = 𝑥) → if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖)) = if(𝑥 = 1, 𝐾, if(𝑥𝐾, (𝑥 − 1), 𝑥)))
225 ovex 7481 . . . . . . . . 9 (𝑥 − 1) ∈ V
226 vex 3492 . . . . . . . . 9 𝑥 ∈ V
227225, 226ifcli 4595 . . . . . . . 8 if(𝑥𝐾, (𝑥 − 1), 𝑥) ∈ V
228227a1i 11 . . . . . . 7 (((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) → if(𝑥𝐾, (𝑥 − 1), 𝑥) ∈ V)
229130, 228ifexd 4596 . . . . . 6 (((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) → if(𝑥 = 1, 𝐾, if(𝑥𝐾, (𝑥 − 1), 𝑥)) ∈ V)
230217, 224, 107, 229fvmptd 7036 . . . . 5 (((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) → ((𝑖𝐷 ↦ if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖)))‘𝑥) = if(𝑥 = 1, 𝐾, if(𝑥𝐾, (𝑥 − 1), 𝑥)))
231230fveq2d 6924 . . . 4 (((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) → (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘((𝑖𝐷 ↦ if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖)))‘𝑥)) = (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘if(𝑥 = 1, 𝐾, if(𝑥𝐾, (𝑥 − 1), 𝑥))))
232216, 231eqtr4d 2783 . . 3 (((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) → if(𝑥 = 1, (𝐾 + 1), if(𝑥 ≤ (𝐾 + 1), (𝑥 − 1), 𝑥)) = (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘((𝑖𝐷 ↦ if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖)))‘𝑥)))
233 breq1 5169 . . . . . . 7 (𝑖 = 𝑥 → (𝑖 ≤ (𝐾 + 1) ↔ 𝑥 ≤ (𝐾 + 1)))
234233, 220, 221ifbieq12d 4576 . . . . . 6 (𝑖 = 𝑥 → if(𝑖 ≤ (𝐾 + 1), (𝑖 − 1), 𝑖) = if(𝑥 ≤ (𝐾 + 1), (𝑥 − 1), 𝑥))
235218, 234ifbieq2d 4574 . . . . 5 (𝑖 = 𝑥 → if(𝑖 = 1, (𝐾 + 1), if(𝑖 ≤ (𝐾 + 1), (𝑖 − 1), 𝑖)) = if(𝑥 = 1, (𝐾 + 1), if(𝑥 ≤ (𝐾 + 1), (𝑥 − 1), 𝑥)))
236225, 226ifex 4598 . . . . . 6 if(𝑥 ≤ (𝐾 + 1), (𝑥 − 1), 𝑥) ∈ V
2371, 236ifex 4598 . . . . 5 if(𝑥 = 1, (𝐾 + 1), if(𝑥 ≤ (𝐾 + 1), (𝑥 − 1), 𝑥)) ∈ V
238235, 6, 237fvmpt 7029 . . . 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 6616 . . . . 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 6273 . . . . . 6 (∀𝑖𝐷 if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖)) ∈ 𝐷 → dom (𝑖𝐷 ↦ if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖))) = 𝐷)
244242, 243syl 17 . . . . 5 (((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) → dom (𝑖𝐷 ↦ if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖))) = 𝐷)
245107, 244eleqtrrd 2847 . . . 4 (((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) → 𝑥 ∈ dom (𝑖𝐷 ↦ if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖))))
246 fvco 7020 . . . 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 583 . . 3 (((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) → ((((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)}) ∘ (𝑖𝐷 ↦ if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖))))‘𝑥) = (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘((𝑖𝐷 ↦ if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖)))‘𝑥)))
248232, 239, 2473eqtr4d 2790 . 2 (((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) → ((𝑖𝐷 ↦ if(𝑖 = 1, (𝐾 + 1), if(𝑖 ≤ (𝐾 + 1), (𝑖 − 1), 𝑖)))‘𝑥) = ((((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)}) ∘ (𝑖𝐷 ↦ if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖))))‘𝑥))
2498, 83, 248eqfnfvd 7067 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 846  w3a 1087   = wceq 1537  wcel 2108  wne 2946  wral 3067  Vcvv 3488  wss 3976  ifcif 4548  {cpr 4650   class class class wbr 5166  cmpt 5249  dom cdm 5700  ran crn 5701  ccom 5704  Fun wfun 6567   Fn wfn 6568  1-1-ontowf1o 6572  cfv 6573  (class class class)co 7448  Fincfn 9003  cc 11182  cr 11183  1c1 11185   + caddc 11187   < clt 11324  cle 11325  cmin 11520  cn 12293  2c2 12348  cz 12639  cuz 12903  ...cfz 13567  pmTrspcpmtr 19483
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1793  ax-4 1807  ax-5 1909  ax-6 1967  ax-7 2007  ax-8 2110  ax-9 2118  ax-10 2141  ax-11 2158  ax-12 2178  ax-ext 2711  ax-rep 5303  ax-sep 5317  ax-nul 5324  ax-pow 5383  ax-pr 5447  ax-un 7770  ax-cnex 11240  ax-resscn 11241  ax-1cn 11242  ax-icn 11243  ax-addcl 11244  ax-addrcl 11245  ax-mulcl 11246  ax-mulrcl 11247  ax-mulcom 11248  ax-addass 11249  ax-mulass 11250  ax-distr 11251  ax-i2m1 11252  ax-1ne0 11253  ax-1rid 11254  ax-rnegex 11255  ax-rrecex 11256  ax-cnre 11257  ax-pre-lttri 11258  ax-pre-lttrn 11259  ax-pre-ltadd 11260  ax-pre-mulgt0 11261
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 847  df-3or 1088  df-3an 1089  df-tru 1540  df-fal 1550  df-ex 1778  df-nf 1782  df-sb 2065  df-mo 2543  df-eu 2572  df-clab 2718  df-cleq 2732  df-clel 2819  df-nfc 2895  df-ne 2947  df-nel 3053  df-ral 3068  df-rex 3077  df-reu 3389  df-rab 3444  df-v 3490  df-sbc 3805  df-csb 3922  df-dif 3979  df-un 3981  df-in 3983  df-ss 3993  df-pss 3996  df-nul 4353  df-if 4549  df-pw 4624  df-sn 4649  df-pr 4651  df-op 4655  df-uni 4932  df-iun 5017  df-br 5167  df-opab 5229  df-mpt 5250  df-tr 5284  df-id 5593  df-eprel 5599  df-po 5607  df-so 5608  df-fr 5652  df-we 5654  df-xp 5706  df-rel 5707  df-cnv 5708  df-co 5709  df-dm 5710  df-rn 5711  df-res 5712  df-ima 5713  df-pred 6332  df-ord 6398  df-on 6399  df-lim 6400  df-suc 6401  df-iota 6525  df-fun 6575  df-fn 6576  df-f 6577  df-f1 6578  df-fo 6579  df-f1o 6580  df-fv 6581  df-riota 7404  df-ov 7451  df-oprab 7452  df-mpo 7453  df-om 7904  df-1st 8030  df-2nd 8031  df-frecs 8322  df-wrecs 8353  df-recs 8427  df-rdg 8466  df-1o 8522  df-2o 8523  df-er 8763  df-en 9004  df-dom 9005  df-sdom 9006  df-fin 9007  df-pnf 11326  df-mnf 11327  df-xr 11328  df-ltxr 11329  df-le 11330  df-sub 11522  df-neg 11523  df-nn 12294  df-2 12356  df-n0 12554  df-z 12640  df-uz 12904  df-fz 13568  df-pmtr 19484
This theorem is referenced by:  fzto1st  33096  psgnfzto1st  33098
  Copyright terms: Public domain W3C validator