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 31269
Description: Lemma for psgnfzto1st 31274. 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 7288 . . . . 5 (𝐾 + 1) ∈ V
2 ovex 7288 . . . . . 6 (𝑖 − 1) ∈ V
3 vex 3426 . . . . . 6 𝑖 ∈ V
42, 3ifex 4506 . . . . 5 if(𝑖 ≤ (𝐾 + 1), (𝑖 − 1), 𝑖) ∈ V
51, 4ifex 4506 . . . 4 if(𝑖 = 1, (𝐾 + 1), if(𝑖 ≤ (𝐾 + 1), (𝑖 − 1), 𝑖)) ∈ V
6 eqid 2738 . . . 4 (𝑖𝐷 ↦ if(𝑖 = 1, (𝐾 + 1), if(𝑖 ≤ (𝐾 + 1), (𝑖 − 1), 𝑖))) = (𝑖𝐷 ↦ if(𝑖 = 1, (𝐾 + 1), if(𝑖 ≤ (𝐾 + 1), (𝑖 − 1), 𝑖)))
75, 6fnmpti 6560 . . 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 2738 . . . . 5 (pmTrsp‘𝐷) = (pmTrsp‘𝐷)
119, 10pmtrto1cl 31268 . . . 4 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → ((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)}) ∈ ran (pmTrsp‘𝐷))
12 eqid 2738 . . . . 5 ran (pmTrsp‘𝐷) = ran (pmTrsp‘𝐷)
1310, 12pmtrff1o 18986 . . . 4 (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)}) ∈ ran (pmTrsp‘𝐷) → ((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)}):𝐷1-1-onto𝐷)
14 f1ofn 6701 . . . 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 4464 . . . . . . 7 ((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ 𝑖 = 1) → if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖)) = 𝐾)
18 simpl 482 . . . . . . . . . 10 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → 𝐾 ∈ ℕ)
1918nnred 11918 . . . . . . . . . . 11 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → 𝐾 ∈ ℝ)
20 fz1ssnn 13216 . . . . . . . . . . . . 13 (1...𝑁) ⊆ ℕ
219eleq2i 2830 . . . . . . . . . . . . . . 15 ((𝐾 + 1) ∈ 𝐷 ↔ (𝐾 + 1) ∈ (1...𝑁))
2221biimpi 215 . . . . . . . . . . . . . 14 ((𝐾 + 1) ∈ 𝐷 → (𝐾 + 1) ∈ (1...𝑁))
2322adantl 481 . . . . . . . . . . . . 13 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → (𝐾 + 1) ∈ (1...𝑁))
2420, 23sselid 3915 . . . . . . . . . . . 12 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → (𝐾 + 1) ∈ ℕ)
2524nnred 11918 . . . . . . . . . . 11 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → (𝐾 + 1) ∈ ℝ)
26 elfz1b 13254 . . . . . . . . . . . . . . 15 ((𝐾 + 1) ∈ (1...𝑁) ↔ ((𝐾 + 1) ∈ ℕ ∧ 𝑁 ∈ ℕ ∧ (𝐾 + 1) ≤ 𝑁))
2726simp2bi 1144 . . . . . . . . . . . . . 14 ((𝐾 + 1) ∈ (1...𝑁) → 𝑁 ∈ ℕ)
2822, 27syl 17 . . . . . . . . . . . . 13 ((𝐾 + 1) ∈ 𝐷𝑁 ∈ ℕ)
2928adantl 481 . . . . . . . . . . . 12 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → 𝑁 ∈ ℕ)
3029nnred 11918 . . . . . . . . . . 11 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → 𝑁 ∈ ℝ)
3119lep1d 11836 . . . . . . . . . . 11 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → 𝐾 ≤ (𝐾 + 1))
32 elfzle2 13189 . . . . . . . . . . . 12 ((𝐾 + 1) ∈ (1...𝑁) → (𝐾 + 1) ≤ 𝑁)
3323, 32syl 17 . . . . . . . . . . 11 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → (𝐾 + 1) ≤ 𝑁)
3419, 25, 30, 31, 33letrd 11062 . . . . . . . . . 10 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → 𝐾𝑁)
3529nnzd 12354 . . . . . . . . . . 11 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → 𝑁 ∈ ℤ)
36 fznn 13253 . . . . . . . . . . 11 (𝑁 ∈ ℤ → (𝐾 ∈ (1...𝑁) ↔ (𝐾 ∈ ℕ ∧ 𝐾𝑁)))
3735, 36syl 17 . . . . . . . . . 10 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → (𝐾 ∈ (1...𝑁) ↔ (𝐾 ∈ ℕ ∧ 𝐾𝑁)))
3818, 34, 37mpbir2and 709 . . . . . . . . 9 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → 𝐾 ∈ (1...𝑁))
3938, 9eleqtrrdi 2850 . . . . . . . 8 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → 𝐾𝐷)
4039ad2antrr 722 . . . . . . 7 ((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ 𝑖 = 1) → 𝐾𝐷)
4117, 40eqeltrd 2839 . . . . . 6 ((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ 𝑖 = 1) → if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖)) ∈ 𝐷)
42 simpr 484 . . . . . . . 8 ((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) → ¬ 𝑖 = 1)
4342iffalsed 4467 . . . . . . 7 ((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) → if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖)) = if(𝑖𝐾, (𝑖 − 1), 𝑖))
44 simpr 484 . . . . . . . . . 10 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ 𝑖𝐾) → 𝑖𝐾)
4544iftrued 4464 . . . . . . . . 9 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ 𝑖𝐾) → if(𝑖𝐾, (𝑖 − 1), 𝑖) = (𝑖 − 1))
4642adantr 480 . . . . . . . . . . . . 13 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ 𝑖𝐾) → ¬ 𝑖 = 1)
479, 20eqsstri 3951 . . . . . . . . . . . . . . . 16 𝐷 ⊆ ℕ
48 simpllr 772 . . . . . . . . . . . . . . . 16 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ 𝑖𝐾) → 𝑖𝐷)
4947, 48sselid 3915 . . . . . . . . . . . . . . 15 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ 𝑖𝐾) → 𝑖 ∈ ℕ)
50 nn1m1nn 11924 . . . . . . . . . . . . . . 15 (𝑖 ∈ ℕ → (𝑖 = 1 ∨ (𝑖 − 1) ∈ ℕ))
5149, 50syl 17 . . . . . . . . . . . . . 14 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ 𝑖𝐾) → (𝑖 = 1 ∨ (𝑖 − 1) ∈ ℕ))
5251ord 860 . . . . . . . . . . . . 13 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ 𝑖𝐾) → (¬ 𝑖 = 1 → (𝑖 − 1) ∈ ℕ))
5346, 52mpd 15 . . . . . . . . . . . 12 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ 𝑖𝐾) → (𝑖 − 1) ∈ ℕ)
5453nnred 11918 . . . . . . . . . . . . 13 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ 𝑖𝐾) → (𝑖 − 1) ∈ ℝ)
5549nnred 11918 . . . . . . . . . . . . 13 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ 𝑖𝐾) → 𝑖 ∈ ℝ)
5630ad3antrrr 726 . . . . . . . . . . . . 13 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ 𝑖𝐾) → 𝑁 ∈ ℝ)
5755lem1d 11838 . . . . . . . . . . . . 13 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ 𝑖𝐾) → (𝑖 − 1) ≤ 𝑖)
5848, 9eleqtrdi 2849 . . . . . . . . . . . . . 14 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ 𝑖𝐾) → 𝑖 ∈ (1...𝑁))
59 elfzle2 13189 . . . . . . . . . . . . . 14 (𝑖 ∈ (1...𝑁) → 𝑖𝑁)
6058, 59syl 17 . . . . . . . . . . . . 13 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ 𝑖𝐾) → 𝑖𝑁)
6154, 55, 56, 57, 60letrd 11062 . . . . . . . . . . . 12 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ 𝑖𝐾) → (𝑖 − 1) ≤ 𝑁)
6253, 61jca 511 . . . . . . . . . . 11 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ 𝑖𝐾) → ((𝑖 − 1) ∈ ℕ ∧ (𝑖 − 1) ≤ 𝑁))
63 fznn 13253 . . . . . . . . . . . . 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 256 . . . . . . . . . 10 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ 𝑖𝐾) → (𝑖 − 1) ∈ (1...𝑁))
6766, 9eleqtrrdi 2850 . . . . . . . . 9 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ 𝑖𝐾) → (𝑖 − 1) ∈ 𝐷)
6845, 67eqeltrd 2839 . . . . . . . 8 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ 𝑖𝐾) → if(𝑖𝐾, (𝑖 − 1), 𝑖) ∈ 𝐷)
69 simpr 484 . . . . . . . . . 10 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ ¬ 𝑖𝐾) → ¬ 𝑖𝐾)
7069iffalsed 4467 . . . . . . . . 9 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ ¬ 𝑖𝐾) → if(𝑖𝐾, (𝑖 − 1), 𝑖) = 𝑖)
71 simpllr 772 . . . . . . . . 9 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ ¬ 𝑖𝐾) → 𝑖𝐷)
7270, 71eqeltrd 2839 . . . . . . . 8 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) ∧ ¬ 𝑖𝐾) → if(𝑖𝐾, (𝑖 − 1), 𝑖) ∈ 𝐷)
7368, 72pm2.61dan 809 . . . . . . 7 ((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) → if(𝑖𝐾, (𝑖 − 1), 𝑖) ∈ 𝐷)
7443, 73eqeltrd 2839 . . . . . 6 ((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) ∧ ¬ 𝑖 = 1) → if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖)) ∈ 𝐷)
7541, 74pm2.61dan 809 . . . . 5 (((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑖𝐷) → if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖)) ∈ 𝐷)
7675ralrimiva 3107 . . . 4 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → ∀𝑖𝐷 if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖)) ∈ 𝐷)
77 eqid 2738 . . . . 5 (𝑖𝐷 ↦ if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖))) = (𝑖𝐷 ↦ if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖)))
7877fnmpt 6557 . . . 4 (∀𝑖𝐷 if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖)) ∈ 𝐷 → (𝑖𝐷 ↦ if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖))) Fn 𝐷)
7976, 78syl 17 . . 3 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → (𝑖𝐷 ↦ if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖))) Fn 𝐷)
8077rnmptss 6978 . . . 4 (∀𝑖𝐷 if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖)) ∈ 𝐷 → ran (𝑖𝐷 ↦ if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖))) ⊆ 𝐷)
8176, 80syl 17 . . 3 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → ran (𝑖𝐷 ↦ if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖))) ⊆ 𝐷)
82 fnco 6533 . . 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 1369 . 2 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)}) ∘ (𝑖𝐷 ↦ if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖)))) Fn 𝐷)
84 simpr 484 . . . . . . . 8 ((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ 𝑥 = 1) → 𝑥 = 1)
8584iftrued 4464 . . . . . . 7 ((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ 𝑥 = 1) → if(𝑥 = 1, 𝐾, if(𝑥𝐾, (𝑥 − 1), 𝑥)) = 𝐾)
8685fveq2d 6760 . . . . . 6 ((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ 𝑥 = 1) → (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘if(𝑥 = 1, 𝐾, if(𝑥𝐾, (𝑥 − 1), 𝑥))) = (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘𝐾))
87 fzfi 13620 . . . . . . . . . 10 (1...𝑁) ∈ Fin
889, 87eqeltri 2835 . . . . . . . . 9 𝐷 ∈ Fin
8988a1i 11 . . . . . . . 8 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → 𝐷 ∈ Fin)
9023, 21sylibr 233 . . . . . . . 8 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → (𝐾 + 1) ∈ 𝐷)
9119ltp1d 11835 . . . . . . . . 9 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → 𝐾 < (𝐾 + 1))
9219, 91ltned 11041 . . . . . . . 8 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → 𝐾 ≠ (𝐾 + 1))
9310pmtrprfv 18976 . . . . . . . 8 ((𝐷 ∈ Fin ∧ (𝐾𝐷 ∧ (𝐾 + 1) ∈ 𝐷𝐾 ≠ (𝐾 + 1))) → (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘𝐾) = (𝐾 + 1))
9489, 39, 90, 92, 93syl13anc 1370 . . . . . . 7 ((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) → (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘𝐾) = (𝐾 + 1))
9594ad2antrr 722 . . . . . 6 ((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ 𝑥 = 1) → (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘𝐾) = (𝐾 + 1))
9686, 95eqtr2d 2779 . . . . 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 31259 . . . . . . . . . 10 ((𝐷 ∈ Fin ∧ (𝐾𝐷 ∧ (𝐾 + 1) ∈ 𝐷𝐾 ≠ (𝐾 + 1))) → (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘(𝐾 + 1)) = 𝐾)
10297, 98, 99, 100, 101syl13anc 1370 . . . . . . . . 9 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 = (𝐾 + 1)) → (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘(𝐾 + 1)) = 𝐾)
10391ad4antr 728 . . . . . . . . . . . . . 14 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 = (𝐾 + 1)) → 𝐾 < (𝐾 + 1))
104 simpr 484 . . . . . . . . . . . . . 14 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 = (𝐾 + 1)) → 𝑥 = (𝐾 + 1))
105103, 104breqtrrd 5098 . . . . . . . . . . . . 13 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 = (𝐾 + 1)) → 𝐾 < 𝑥)
10619ad4antr 728 . . . . . . . . . . . . . 14 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 = (𝐾 + 1)) → 𝐾 ∈ ℝ)
107 simpr 484 . . . . . . . . . . . . . . . . 17 (((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) → 𝑥𝐷)
10847, 107sselid 3915 . . . . . . . . . . . . . . . 16 (((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) → 𝑥 ∈ ℕ)
109108nnred 11918 . . . . . . . . . . . . . . 15 (((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) → 𝑥 ∈ ℝ)
110109ad3antrrr 726 . . . . . . . . . . . . . 14 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 = (𝐾 + 1)) → 𝑥 ∈ ℝ)
111106, 110ltnled 11052 . . . . . . . . . . . . 13 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 = (𝐾 + 1)) → (𝐾 < 𝑥 ↔ ¬ 𝑥𝐾))
112105, 111mpbid 231 . . . . . . . . . . . 12 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 = (𝐾 + 1)) → ¬ 𝑥𝐾)
113112iffalsed 4467 . . . . . . . . . . 11 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 = (𝐾 + 1)) → if(𝑥𝐾, (𝑥 − 1), 𝑥) = 𝑥)
114113, 104eqtrd 2778 . . . . . . . . . 10 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 = (𝐾 + 1)) → if(𝑥𝐾, (𝑥 − 1), 𝑥) = (𝐾 + 1))
115114fveq2d 6760 . . . . . . . . 9 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 = (𝐾 + 1)) → (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘if(𝑥𝐾, (𝑥 − 1), 𝑥)) = (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘(𝐾 + 1)))
116104oveq1d 7270 . . . . . . . . . 10 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 = (𝐾 + 1)) → (𝑥 − 1) = ((𝐾 + 1) − 1))
117106recnd 10934 . . . . . . . . . . 11 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 = (𝐾 + 1)) → 𝐾 ∈ ℂ)
118 1cnd 10901 . . . . . . . . . . 11 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 = (𝐾 + 1)) → 1 ∈ ℂ)
119117, 118pncand 11263 . . . . . . . . . 10 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 = (𝐾 + 1)) → ((𝐾 + 1) − 1) = 𝐾)
120116, 119eqtrd 2778 . . . . . . . . 9 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 = (𝐾 + 1)) → (𝑥 − 1) = 𝐾)
121102, 115, 1203eqtr4rd 2789 . . . . . . . 8 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 = (𝐾 + 1)) → (𝑥 − 1) = (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘if(𝑥𝐾, (𝑥 − 1), 𝑥)))
122 simplr 765 . . . . . . . . . . . . 13 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → 𝑥 ≤ (𝐾 + 1))
123 simpr 484 . . . . . . . . . . . . . 14 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → 𝑥 ≠ (𝐾 + 1))
124123necomd 2998 . . . . . . . . . . . . 13 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → (𝐾 + 1) ≠ 𝑥)
125109ad3antrrr 726 . . . . . . . . . . . . . 14 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → 𝑥 ∈ ℝ)
12625ad4antr 728 . . . . . . . . . . . . . 14 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → (𝐾 + 1) ∈ ℝ)
127125, 126ltlend 11050 . . . . . . . . . . . . 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 12305 . . . . . . . . . . . . 13 ((𝑥 ∈ ℕ ∧ 𝐾 ∈ ℕ) → (𝑥𝐾𝑥 < (𝐾 + 1)))
133129, 131, 132syl2anc 583 . . . . . . . . . . . 12 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → (𝑥𝐾𝑥 < (𝐾 + 1)))
134128, 133mpbird 256 . . . . . . . . . . 11 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → 𝑥𝐾)
135134iftrued 4464 . . . . . . . . . 10 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → if(𝑥𝐾, (𝑥 − 1), 𝑥) = (𝑥 − 1))
136135fveq2d 6760 . . . . . . . . 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 484 . . . . . . . . . . . . . . . . 17 ((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) → ¬ 𝑥 = 1)
141140ad2antrr 722 . . . . . . . . . . . . . . . 16 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → ¬ 𝑥 = 1)
142 elnn1uz2 12594 . . . . . . . . . . . . . . . . . 18 (𝑥 ∈ ℕ ↔ (𝑥 = 1 ∨ 𝑥 ∈ (ℤ‘2)))
143129, 142sylib 217 . . . . . . . . . . . . . . . . 17 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → (𝑥 = 1 ∨ 𝑥 ∈ (ℤ‘2)))
144143ord 860 . . . . . . . . . . . . . . . 16 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → (¬ 𝑥 = 1 → 𝑥 ∈ (ℤ‘2)))
145141, 144mpd 15 . . . . . . . . . . . . . . 15 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → 𝑥 ∈ (ℤ‘2))
146 uz2m1nn 12592 . . . . . . . . . . . . . . 15 (𝑥 ∈ (ℤ‘2) → (𝑥 − 1) ∈ ℕ)
147145, 146syl 17 . . . . . . . . . . . . . 14 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → (𝑥 − 1) ∈ ℕ)
148139, 28syl 17 . . . . . . . . . . . . . 14 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → 𝑁 ∈ ℕ)
149147nnred 11918 . . . . . . . . . . . . . . 15 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → (𝑥 − 1) ∈ ℝ)
150131, 139, 30syl2anc 583 . . . . . . . . . . . . . . 15 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → 𝑁 ∈ ℝ)
151125lem1d 11838 . . . . . . . . . . . . . . 15 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → (𝑥 − 1) ≤ 𝑥)
152107ad3antrrr 726 . . . . . . . . . . . . . . . . 17 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → 𝑥𝐷)
153152, 9eleqtrdi 2849 . . . . . . . . . . . . . . . 16 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → 𝑥 ∈ (1...𝑁))
154 elfzle2 13189 . . . . . . . . . . . . . . . 16 (𝑥 ∈ (1...𝑁) → 𝑥𝑁)
155153, 154syl 17 . . . . . . . . . . . . . . 15 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → 𝑥𝑁)
156149, 125, 150, 151, 155letrd 11062 . . . . . . . . . . . . . 14 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → (𝑥 − 1) ≤ 𝑁)
157147, 148, 1563jca 1126 . . . . . . . . . . . . 13 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → ((𝑥 − 1) ∈ ℕ ∧ 𝑁 ∈ ℕ ∧ (𝑥 − 1) ≤ 𝑁))
158 elfz1b 13254 . . . . . . . . . . . . 13 ((𝑥 − 1) ∈ (1...𝑁) ↔ ((𝑥 − 1) ∈ ℕ ∧ 𝑁 ∈ ℕ ∧ (𝑥 − 1) ≤ 𝑁))
159157, 158sylibr 233 . . . . . . . . . . . 12 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → (𝑥 − 1) ∈ (1...𝑁))
160159, 9eleqtrrdi 2850 . . . . . . . . . . 11 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → (𝑥 − 1) ∈ 𝐷)
161138, 139, 1603jca 1126 . . . . . . . . . 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 7270 . . . . . . . . . . . . . . 15 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝐾 = (𝑥 − 1)) → (𝐾 + 1) = ((𝑥 − 1) + 1))
165109recnd 10934 . . . . . . . . . . . . . . . . 17 (((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) → 𝑥 ∈ ℂ)
166165ad3antrrr 726 . . . . . . . . . . . . . . . 16 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝐾 = (𝑥 − 1)) → 𝑥 ∈ ℂ)
167 1cnd 10901 . . . . . . . . . . . . . . . 16 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝐾 = (𝑥 − 1)) → 1 ∈ ℂ)
168166, 167npcand 11266 . . . . . . . . . . . . . . 15 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝐾 = (𝑥 − 1)) → ((𝑥 − 1) + 1) = 𝑥)
169164, 168eqtr2d 2779 . . . . . . . . . . . . . 14 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝐾 = (𝑥 − 1)) → 𝑥 = (𝐾 + 1))
170169ex 412 . . . . . . . . . . . . 13 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) → (𝐾 = (𝑥 − 1) → 𝑥 = (𝐾 + 1)))
171170necon3d 2963 . . . . . . . . . . . 12 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) → (𝑥 ≠ (𝐾 + 1) → 𝐾 ≠ (𝑥 − 1)))
172171imp 406 . . . . . . . . . . 11 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → 𝐾 ≠ (𝑥 − 1))
173149, 125, 126, 151, 128lelttrd 11063 . . . . . . . . . . . . 13 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → (𝑥 − 1) < (𝐾 + 1))
174149, 173ltned 11041 . . . . . . . . . . . 12 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → (𝑥 − 1) ≠ (𝐾 + 1))
175174necomd 2998 . . . . . . . . . . 11 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → (𝐾 + 1) ≠ (𝑥 − 1))
176162, 172, 1753jca 1126 . . . . . . . . . 10 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → (𝐾 ≠ (𝐾 + 1) ∧ 𝐾 ≠ (𝑥 − 1) ∧ (𝐾 + 1) ≠ (𝑥 − 1)))
17710pmtrprfv3 18977 . . . . . . . . . 10 ((𝐷 ∈ Fin ∧ (𝐾𝐷 ∧ (𝐾 + 1) ∈ 𝐷 ∧ (𝑥 − 1) ∈ 𝐷) ∧ (𝐾 ≠ (𝐾 + 1) ∧ 𝐾 ≠ (𝑥 − 1) ∧ (𝐾 + 1) ≠ (𝑥 − 1))) → (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘(𝑥 − 1)) = (𝑥 − 1))
178137, 161, 176, 177syl3anc 1369 . . . . . . . . 9 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘(𝑥 − 1)) = (𝑥 − 1))
179136, 178eqtr2d 2779 . . . . . . . 8 ((((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥 ≤ (𝐾 + 1)) ∧ 𝑥 ≠ (𝐾 + 1)) → (𝑥 − 1) = (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘if(𝑥𝐾, (𝑥 − 1), 𝑥)))
180121, 179pm2.61dane 3031 . . . . . . 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 484 . . . . . . . . . . . . . 14 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥𝐾) → 𝑥𝐾)
18531ad3antrrr 726 . . . . . . . . . . . . . 14 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥𝐾) → 𝐾 ≤ (𝐾 + 1))
186181, 182, 183, 184, 185letrd 11062 . . . . . . . . . . . . 13 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ 𝑥𝐾) → 𝑥 ≤ (𝐾 + 1))
187186ex 412 . . . . . . . . . . . 12 ((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) → (𝑥𝐾𝑥 ≤ (𝐾 + 1)))
188187con3d 152 . . . . . . . . . . 11 ((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) → (¬ 𝑥 ≤ (𝐾 + 1) → ¬ 𝑥𝐾))
189188imp 406 . . . . . . . . . 10 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ ¬ 𝑥 ≤ (𝐾 + 1)) → ¬ 𝑥𝐾)
190189iffalsed 4467 . . . . . . . . 9 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ ¬ 𝑥 ≤ (𝐾 + 1)) → if(𝑥𝐾, (𝑥 − 1), 𝑥) = 𝑥)
191190fveq2d 6760 . . . . . . . 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 1126 . . . . . . . . 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 484 . . . . . . . . . . . . 13 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ ¬ 𝑥 ≤ (𝐾 + 1)) → ¬ 𝑥 ≤ (𝐾 + 1))
203199, 200ltnled 11052 . . . . . . . . . . . . 13 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ ¬ 𝑥 ≤ (𝐾 + 1)) → ((𝐾 + 1) < 𝑥 ↔ ¬ 𝑥 ≤ (𝐾 + 1)))
204202, 203mpbird 256 . . . . . . . . . . . 12 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ ¬ 𝑥 ≤ (𝐾 + 1)) → (𝐾 + 1) < 𝑥)
205198, 199, 200, 201, 204lttrd 11066 . . . . . . . . . . 11 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ ¬ 𝑥 ≤ (𝐾 + 1)) → 𝐾 < 𝑥)
206198, 205ltned 11041 . . . . . . . . . 10 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ ¬ 𝑥 ≤ (𝐾 + 1)) → 𝐾𝑥)
207199, 204ltned 11041 . . . . . . . . . 10 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ ¬ 𝑥 ≤ (𝐾 + 1)) → (𝐾 + 1) ≠ 𝑥)
208197, 206, 2073jca 1126 . . . . . . . . 9 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ ¬ 𝑥 ≤ (𝐾 + 1)) → (𝐾 ≠ (𝐾 + 1) ∧ 𝐾𝑥 ∧ (𝐾 + 1) ≠ 𝑥))
20910pmtrprfv3 18977 . . . . . . . . 9 ((𝐷 ∈ Fin ∧ (𝐾𝐷 ∧ (𝐾 + 1) ∈ 𝐷𝑥𝐷) ∧ (𝐾 ≠ (𝐾 + 1) ∧ 𝐾𝑥 ∧ (𝐾 + 1) ≠ 𝑥)) → (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘𝑥) = 𝑥)
210192, 196, 208, 209syl3anc 1369 . . . . . . . 8 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ ¬ 𝑥 ≤ (𝐾 + 1)) → (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘𝑥) = 𝑥)
211191, 210eqtr2d 2779 . . . . . . 7 (((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) ∧ ¬ 𝑥 ≤ (𝐾 + 1)) → 𝑥 = (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘if(𝑥𝐾, (𝑥 − 1), 𝑥)))
212180, 211ifeqda 4492 . . . . . 6 ((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) → if(𝑥 ≤ (𝐾 + 1), (𝑥 − 1), 𝑥) = (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘if(𝑥𝐾, (𝑥 − 1), 𝑥)))
213140iffalsed 4467 . . . . . . 7 ((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) → if(𝑥 = 1, 𝐾, if(𝑥𝐾, (𝑥 − 1), 𝑥)) = if(𝑥𝐾, (𝑥 − 1), 𝑥))
214213fveq2d 6760 . . . . . 6 ((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) → (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘if(𝑥 = 1, 𝐾, if(𝑥𝐾, (𝑥 − 1), 𝑥))) = (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘if(𝑥𝐾, (𝑥 − 1), 𝑥)))
215212, 214eqtr4d 2781 . . . . 5 ((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ ¬ 𝑥 = 1) → if(𝑥 ≤ (𝐾 + 1), (𝑥 − 1), 𝑥) = (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘if(𝑥 = 1, 𝐾, if(𝑥𝐾, (𝑥 − 1), 𝑥))))
21696, 215ifeqda 4492 . . . 4 (((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) → if(𝑥 = 1, (𝐾 + 1), if(𝑥 ≤ (𝐾 + 1), (𝑥 − 1), 𝑥)) = (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘if(𝑥 = 1, 𝐾, if(𝑥𝐾, (𝑥 − 1), 𝑥))))
217 eqidd 2739 . . . . . 6 (((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) → (𝑖𝐷 ↦ if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖))) = (𝑖𝐷 ↦ if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖))))
218 eqeq1 2742 . . . . . . . 8 (𝑖 = 𝑥 → (𝑖 = 1 ↔ 𝑥 = 1))
219 breq1 5073 . . . . . . . . 9 (𝑖 = 𝑥 → (𝑖𝐾𝑥𝐾))
220 oveq1 7262 . . . . . . . . 9 (𝑖 = 𝑥 → (𝑖 − 1) = (𝑥 − 1))
221 id 22 . . . . . . . . 9 (𝑖 = 𝑥𝑖 = 𝑥)
222219, 220, 221ifbieq12d 4484 . . . . . . . 8 (𝑖 = 𝑥 → if(𝑖𝐾, (𝑖 − 1), 𝑖) = if(𝑥𝐾, (𝑥 − 1), 𝑥))
223218, 222ifbieq2d 4482 . . . . . . 7 (𝑖 = 𝑥 → if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖)) = if(𝑥 = 1, 𝐾, if(𝑥𝐾, (𝑥 − 1), 𝑥)))
224223adantl 481 . . . . . 6 ((((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) ∧ 𝑖 = 𝑥) → if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖)) = if(𝑥 = 1, 𝐾, if(𝑥𝐾, (𝑥 − 1), 𝑥)))
225 ovex 7288 . . . . . . . . 9 (𝑥 − 1) ∈ V
226 vex 3426 . . . . . . . . 9 𝑥 ∈ V
227225, 226ifcli 4503 . . . . . . . 8 if(𝑥𝐾, (𝑥 − 1), 𝑥) ∈ V
228227a1i 11 . . . . . . 7 (((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) → if(𝑥𝐾, (𝑥 − 1), 𝑥) ∈ V)
229130, 228ifexd 4504 . . . . . 6 (((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) → if(𝑥 = 1, 𝐾, if(𝑥𝐾, (𝑥 − 1), 𝑥)) ∈ V)
230217, 224, 107, 229fvmptd 6864 . . . . 5 (((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) → ((𝑖𝐷 ↦ if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖)))‘𝑥) = if(𝑥 = 1, 𝐾, if(𝑥𝐾, (𝑥 − 1), 𝑥)))
231230fveq2d 6760 . . . 4 (((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) → (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘((𝑖𝐷 ↦ if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖)))‘𝑥)) = (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘if(𝑥 = 1, 𝐾, if(𝑥𝐾, (𝑥 − 1), 𝑥))))
232216, 231eqtr4d 2781 . . 3 (((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) → if(𝑥 = 1, (𝐾 + 1), if(𝑥 ≤ (𝐾 + 1), (𝑥 − 1), 𝑥)) = (((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)})‘((𝑖𝐷 ↦ if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖)))‘𝑥)))
233 breq1 5073 . . . . . . 7 (𝑖 = 𝑥 → (𝑖 ≤ (𝐾 + 1) ↔ 𝑥 ≤ (𝐾 + 1)))
234233, 220, 221ifbieq12d 4484 . . . . . 6 (𝑖 = 𝑥 → if(𝑖 ≤ (𝐾 + 1), (𝑖 − 1), 𝑖) = if(𝑥 ≤ (𝐾 + 1), (𝑥 − 1), 𝑥))
235218, 234ifbieq2d 4482 . . . . 5 (𝑖 = 𝑥 → if(𝑖 = 1, (𝐾 + 1), if(𝑖 ≤ (𝐾 + 1), (𝑖 − 1), 𝑖)) = if(𝑥 = 1, (𝐾 + 1), if(𝑥 ≤ (𝐾 + 1), (𝑥 − 1), 𝑥)))
236225, 226ifex 4506 . . . . . 6 if(𝑥 ≤ (𝐾 + 1), (𝑥 − 1), 𝑥) ∈ V
2371, 236ifex 4506 . . . . 5 if(𝑥 = 1, (𝐾 + 1), if(𝑥 ≤ (𝐾 + 1), (𝑥 − 1), 𝑥)) ∈ V
238235, 6, 237fvmpt 6857 . . . 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 6456 . . . . 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 6134 . . . . . 6 (∀𝑖𝐷 if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖)) ∈ 𝐷 → dom (𝑖𝐷 ↦ if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖))) = 𝐷)
244242, 243syl 17 . . . . 5 (((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) → dom (𝑖𝐷 ↦ if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖))) = 𝐷)
245107, 244eleqtrrd 2842 . . . 4 (((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) → 𝑥 ∈ dom (𝑖𝐷 ↦ if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖))))
246 fvco 6848 . . . 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 2788 . 2 (((𝐾 ∈ ℕ ∧ (𝐾 + 1) ∈ 𝐷) ∧ 𝑥𝐷) → ((𝑖𝐷 ↦ if(𝑖 = 1, (𝐾 + 1), if(𝑖 ≤ (𝐾 + 1), (𝑖 − 1), 𝑖)))‘𝑥) = ((((pmTrsp‘𝐷)‘{𝐾, (𝐾 + 1)}) ∘ (𝑖𝐷 ↦ if(𝑖 = 1, 𝐾, if(𝑖𝐾, (𝑖 − 1), 𝑖))))‘𝑥))
2498, 83, 248eqfnfvd 6894 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 205  wa 395  wo 843  w3a 1085   = wceq 1539  wcel 2108  wne 2942  wral 3063  Vcvv 3422  wss 3883  ifcif 4456  {cpr 4560   class class class wbr 5070  cmpt 5153  dom cdm 5580  ran crn 5581  ccom 5584  Fun wfun 6412   Fn wfn 6413  1-1-ontowf1o 6417  cfv 6418  (class class class)co 7255  Fincfn 8691  cc 10800  cr 10801  1c1 10803   + caddc 10805   < clt 10940  cle 10941  cmin 11135  cn 11903  2c2 11958  cz 12249  cuz 12511  ...cfz 13168  pmTrspcpmtr 18964
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1799  ax-4 1813  ax-5 1914  ax-6 1972  ax-7 2012  ax-8 2110  ax-9 2118  ax-10 2139  ax-11 2156  ax-12 2173  ax-ext 2709  ax-rep 5205  ax-sep 5218  ax-nul 5225  ax-pow 5283  ax-pr 5347  ax-un 7566  ax-cnex 10858  ax-resscn 10859  ax-1cn 10860  ax-icn 10861  ax-addcl 10862  ax-addrcl 10863  ax-mulcl 10864  ax-mulrcl 10865  ax-mulcom 10866  ax-addass 10867  ax-mulass 10868  ax-distr 10869  ax-i2m1 10870  ax-1ne0 10871  ax-1rid 10872  ax-rnegex 10873  ax-rrecex 10874  ax-cnre 10875  ax-pre-lttri 10876  ax-pre-lttrn 10877  ax-pre-ltadd 10878  ax-pre-mulgt0 10879
This theorem depends on definitions:  df-bi 206  df-an 396  df-or 844  df-3or 1086  df-3an 1087  df-tru 1542  df-fal 1552  df-ex 1784  df-nf 1788  df-sb 2069  df-mo 2540  df-eu 2569  df-clab 2716  df-cleq 2730  df-clel 2817  df-nfc 2888  df-ne 2943  df-nel 3049  df-ral 3068  df-rex 3069  df-reu 3070  df-rab 3072  df-v 3424  df-sbc 3712  df-csb 3829  df-dif 3886  df-un 3888  df-in 3890  df-ss 3900  df-pss 3902  df-nul 4254  df-if 4457  df-pw 4532  df-sn 4559  df-pr 4561  df-tp 4563  df-op 4565  df-uni 4837  df-iun 4923  df-br 5071  df-opab 5133  df-mpt 5154  df-tr 5188  df-id 5480  df-eprel 5486  df-po 5494  df-so 5495  df-fr 5535  df-we 5537  df-xp 5586  df-rel 5587  df-cnv 5588  df-co 5589  df-dm 5590  df-rn 5591  df-res 5592  df-ima 5593  df-pred 6191  df-ord 6254  df-on 6255  df-lim 6256  df-suc 6257  df-iota 6376  df-fun 6420  df-fn 6421  df-f 6422  df-f1 6423  df-fo 6424  df-f1o 6425  df-fv 6426  df-riota 7212  df-ov 7258  df-oprab 7259  df-mpo 7260  df-om 7688  df-1st 7804  df-2nd 7805  df-frecs 8068  df-wrecs 8099  df-recs 8173  df-rdg 8212  df-1o 8267  df-2o 8268  df-er 8456  df-en 8692  df-dom 8693  df-sdom 8694  df-fin 8695  df-pnf 10942  df-mnf 10943  df-xr 10944  df-ltxr 10945  df-le 10946  df-sub 11137  df-neg 11138  df-nn 11904  df-2 11966  df-n0 12164  df-z 12250  df-uz 12512  df-fz 13169  df-pmtr 18965
This theorem is referenced by:  fzto1st  31272  psgnfzto1st  31274
  Copyright terms: Public domain W3C validator