MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  fseqenlem1 Structured version   Visualization version   GIF version

Theorem fseqenlem1 10107
Description: Lemma for fseqen 10110. (Contributed by Mario Carneiro, 17-May-2015.)
Hypotheses
Ref Expression
fseqenlem.a (𝜑 → 𝐴 ∈ 𝑉)
fseqenlem.b (𝜑 → 𝐵 ∈ 𝐴)
fseqenlem.f (𝜑 → 𝐹:(𝐴 × 𝐴)–1-1-onto→𝐴)
fseqenlem.g 𝐺 = seqω((𝑛 ∈ V, 𝑓 ∈ V ↦ (𝑥 ∈ (𝐴 ↑m suc 𝑛) ↦ ((𝑓‘(𝑥 ↾ 𝑛))𝐹(𝑥‘𝑛)))), {⟨∅, 𝐵⟩})
Assertion
Ref Expression
fseqenlem1 ((𝜑 ∧ 𝐶 ∈ ω) → (𝐺‘𝐶):(𝐴 ↑m 𝐶)–1-1→𝐴)
Distinct variable groups:   𝑓,𝑛,𝑥,𝐹   𝐴,𝑓,𝑛,𝑥   𝜑,𝑛,𝑥
Allowed substitution hints:   𝜑(𝑓)   𝐵(𝑥, 𝑓, 𝑛)   𝐶(𝑥, 𝑓, 𝑛)   𝐺(𝑥, 𝑓, 𝑛)   𝑉(𝑥, 𝑓, 𝑛)

Proof of Theorem fseqenlem1
Dummy variables 𝑦 𝑎 𝑏 𝑧 𝑚 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 fveq2 6886 . . . . . 6 (𝑦 = 𝐶 → (𝐺‘𝑦) = (𝐺‘𝐶))
2 f1eq1 6774 . . . . . 6 ((𝐺‘𝑦) = (𝐺‘𝐶) → ((𝐺‘𝑦):(𝐴 ↑m 𝑦)–1-1→𝐴 ↔ (𝐺‘𝐶):(𝐴 ↑m 𝑦)–1-1→𝐴))
31, 2syl 18 . . . . 5 (𝑦 = 𝐶 → ((𝐺‘𝑦):(𝐴 ↑m 𝑦)–1-1→𝐴 ↔ (𝐺‘𝐶):(𝐴 ↑m 𝑦)–1-1→𝐴))
4 oveq2 7429 . . . . . 6 (𝑦 = 𝐶 → (𝐴 ↑m 𝑦) = (𝐴 ↑m 𝐶))
5 f1eq2 6775 . . . . . 6 ((𝐴 ↑m 𝑦) = (𝐴 ↑m 𝐶) → ((𝐺‘𝐶):(𝐴 ↑m 𝑦)–1-1→𝐴 ↔ (𝐺‘𝐶):(𝐴 ↑m 𝐶)–1-1→𝐴))
64, 5syl 18 . . . . 5 (𝑦 = 𝐶 → ((𝐺‘𝐶):(𝐴 ↑m 𝑦)–1-1→𝐴 ↔ (𝐺‘𝐶):(𝐴 ↑m 𝐶)–1-1→𝐴))
73, 6bitrd 282 . . . 4 (𝑦 = 𝐶 → ((𝐺‘𝑦):(𝐴 ↑m 𝑦)–1-1→𝐴 ↔ (𝐺‘𝐶):(𝐴 ↑m 𝐶)–1-1→𝐴))
87imbi2d 343 . . 3 (𝑦 = 𝐶 → ((𝜑 → (𝐺‘𝑦):(𝐴 ↑m 𝑦)–1-1→𝐴) ↔ (𝜑 → (𝐺‘𝐶):(𝐴 ↑m 𝐶)–1-1→𝐴)))
9 fveq2 6886 . . . . . . 7 (𝑦 = ∅ → (𝐺‘𝑦) = (𝐺‘∅))
10 snex 5396 . . . . . . . 8 {⟨∅, 𝐵⟩} ∈ V
11 fseqenlem.g . . . . . . . . 9 𝐺 = seqω((𝑛 ∈ V, 𝑓 ∈ V ↦ (𝑥 ∈ (𝐴 ↑m suc 𝑛) ↦ ((𝑓‘(𝑥 ↾ 𝑛))𝐹(𝑥‘𝑛)))), {⟨∅, 𝐵⟩})
1211seqom0g 8470 . . . . . . . 8 ({⟨∅, 𝐵⟩} ∈ V → (𝐺‘∅) = {⟨∅, 𝐵⟩})
1310, 12ax-mp 5 . . . . . . 7 (𝐺‘∅) = {⟨∅, 𝐵⟩}
149, 13eqtrdi 2811 . . . . . 6 (𝑦 = ∅ → (𝐺‘𝑦) = {⟨∅, 𝐵⟩})
15 f1eq1 6774 . . . . . 6 ((𝐺‘𝑦) = {⟨∅, 𝐵⟩} → ((𝐺‘𝑦):(𝐴 ↑m 𝑦)–1-1→𝐴 ↔ {⟨∅, 𝐵⟩}:(𝐴 ↑m 𝑦)–1-1→𝐴))
1614, 15syl 18 . . . . 5 (𝑦 = ∅ → ((𝐺‘𝑦):(𝐴 ↑m 𝑦)–1-1→𝐴 ↔ {⟨∅, 𝐵⟩}:(𝐴 ↑m 𝑦)–1-1→𝐴))
17 oveq2 7429 . . . . . 6 (𝑦 = ∅ → (𝐴 ↑m 𝑦) = (𝐴 ↑m ∅))
18 f1eq2 6775 . . . . . 6 ((𝐴 ↑m 𝑦) = (𝐴 ↑m ∅) → ({⟨∅, 𝐵⟩}:(𝐴 ↑m 𝑦)–1-1→𝐴 ↔ {⟨∅, 𝐵⟩}:(𝐴 ↑m ∅)–1-1→𝐴))
1917, 18syl 18 . . . . 5 (𝑦 = ∅ → ({⟨∅, 𝐵⟩}:(𝐴 ↑m 𝑦)–1-1→𝐴 ↔ {⟨∅, 𝐵⟩}:(𝐴 ↑m ∅)–1-1→𝐴))
2016, 19bitrd 282 . . . 4 (𝑦 = ∅ → ((𝐺‘𝑦):(𝐴 ↑m 𝑦)–1-1→𝐴 ↔ {⟨∅, 𝐵⟩}:(𝐴 ↑m ∅)–1-1→𝐴))
21 fveq2 6886 . . . . . 6 (𝑦 = 𝑚 → (𝐺‘𝑦) = (𝐺‘𝑚))
22 f1eq1 6774 . . . . . 6 ((𝐺‘𝑦) = (𝐺‘𝑚) → ((𝐺‘𝑦):(𝐴 ↑m 𝑦)–1-1→𝐴 ↔ (𝐺‘𝑚):(𝐴 ↑m 𝑦)–1-1→𝐴))
2321, 22syl 18 . . . . 5 (𝑦 = 𝑚 → ((𝐺‘𝑦):(𝐴 ↑m 𝑦)–1-1→𝐴 ↔ (𝐺‘𝑚):(𝐴 ↑m 𝑦)–1-1→𝐴))
24 oveq2 7429 . . . . . 6 (𝑦 = 𝑚 → (𝐴 ↑m 𝑦) = (𝐴 ↑m 𝑚))
25 f1eq2 6775 . . . . . 6 ((𝐴 ↑m 𝑦) = (𝐴 ↑m 𝑚) → ((𝐺‘𝑚):(𝐴 ↑m 𝑦)–1-1→𝐴 ↔ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴))
2624, 25syl 18 . . . . 5 (𝑦 = 𝑚 → ((𝐺‘𝑚):(𝐴 ↑m 𝑦)–1-1→𝐴 ↔ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴))
2723, 26bitrd 282 . . . 4 (𝑦 = 𝑚 → ((𝐺‘𝑦):(𝐴 ↑m 𝑦)–1-1→𝐴 ↔ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴))
28 fveq2 6886 . . . . . 6 (𝑦 = suc 𝑚 → (𝐺‘𝑦) = (𝐺‘suc 𝑚))
29 f1eq1 6774 . . . . . 6 ((𝐺‘𝑦) = (𝐺‘suc 𝑚) → ((𝐺‘𝑦):(𝐴 ↑m 𝑦)–1-1→𝐴 ↔ (𝐺‘suc 𝑚):(𝐴 ↑m 𝑦)–1-1→𝐴))
3028, 29syl 18 . . . . 5 (𝑦 = suc 𝑚 → ((𝐺‘𝑦):(𝐴 ↑m 𝑦)–1-1→𝐴 ↔ (𝐺‘suc 𝑚):(𝐴 ↑m 𝑦)–1-1→𝐴))
31 oveq2 7429 . . . . . 6 (𝑦 = suc 𝑚 → (𝐴 ↑m 𝑦) = (𝐴 ↑m suc 𝑚))
32 f1eq2 6775 . . . . . 6 ((𝐴 ↑m 𝑦) = (𝐴 ↑m suc 𝑚) → ((𝐺‘suc 𝑚):(𝐴 ↑m 𝑦)–1-1→𝐴 ↔ (𝐺‘suc 𝑚):(𝐴 ↑m suc 𝑚)–1-1→𝐴))
3331, 32syl 18 . . . . 5 (𝑦 = suc 𝑚 → ((𝐺‘suc 𝑚):(𝐴 ↑m 𝑦)–1-1→𝐴 ↔ (𝐺‘suc 𝑚):(𝐴 ↑m suc 𝑚)–1-1→𝐴))
3430, 33bitrd 282 . . . 4 (𝑦 = suc 𝑚 → ((𝐺‘𝑦):(𝐴 ↑m 𝑦)–1-1→𝐴 ↔ (𝐺‘suc 𝑚):(𝐴 ↑m suc 𝑚)–1-1→𝐴))
35 0ex 5260 . . . . . . . 8 ∅ ∈ V
36 fseqenlem.b . . . . . . . 8 (𝜑 → 𝐵 ∈ 𝐴)
37 f1osng 6868 . . . . . . . 8 ((∅ ∈ V ∧ 𝐵 ∈ 𝐴) → {⟨∅, 𝐵⟩}:{∅}–1-1-onto→{𝐵})
3835, 36, 37sylancr 599 . . . . . . 7 (𝜑 → {⟨∅, 𝐵⟩}:{∅}–1-1-onto→{𝐵})
39 f1of1 6824 . . . . . . 7 ({⟨∅, 𝐵⟩}:{∅}–1-1-onto→{𝐵} → {⟨∅, 𝐵⟩}:{∅}–1-1→{𝐵})
4038, 39syl 18 . . . . . 6 (𝜑 → {⟨∅, 𝐵⟩}:{∅}–1-1→{𝐵})
4136snssd 4743 . . . . . 6 (𝜑 → {𝐵} ⊆ 𝐴)
42 f1ss 6786 . . . . . 6 (({⟨∅, 𝐵⟩}:{∅}–1-1→{𝐵} ∧ {𝐵} ⊆ 𝐴) → {⟨∅, 𝐵⟩}:{∅}–1-1→𝐴)
4340, 41, 42syl2anc 596 . . . . 5 (𝜑 → {⟨∅, 𝐵⟩}:{∅}–1-1→𝐴)
44 fseqenlem.a . . . . . . . 8 (𝜑 → 𝐴 ∈ 𝑉)
45 map0e 8914 . . . . . . . 8 (𝐴 ∈ 𝑉 → (𝐴 ↑m ∅) = 1o)
4644, 45syl 18 . . . . . . 7 (𝜑 → (𝐴 ↑m ∅) = 1o)
47 df1o2 8487 . . . . . . 7 1o = {∅}
4846, 47eqtrdi 2811 . . . . . 6 (𝜑 → (𝐴 ↑m ∅) = {∅})
49 f1eq2 6775 . . . . . 6 ((𝐴 ↑m ∅) = {∅} → ({⟨∅, 𝐵⟩}:(𝐴 ↑m ∅)–1-1→𝐴 ↔ {⟨∅, 𝐵⟩}:{∅}–1-1→𝐴))
5048, 49syl 18 . . . . 5 (𝜑 → ({⟨∅, 𝐵⟩}:(𝐴 ↑m ∅)–1-1→𝐴 ↔ {⟨∅, 𝐵⟩}:{∅}–1-1→𝐴))
5143, 50mpbird 260 . . . 4 (𝜑 → {⟨∅, 𝐵⟩}:(𝐴 ↑m ∅)–1-1→𝐴)
5211seqomsuc 8471 . . . . . . . . . 10 (𝑚 ∈ ω → (𝐺‘suc 𝑚) = (𝑚(𝑛 ∈ V, 𝑓 ∈ V ↦ (𝑥 ∈ (𝐴 ↑m suc 𝑛) ↦ ((𝑓‘(𝑥 ↾ 𝑛))𝐹(𝑥‘𝑛))))(𝐺‘𝑚)))
5352ad2antrl 741 . . . . . . . . 9 ((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) → (𝐺‘suc 𝑚) = (𝑚(𝑛 ∈ V, 𝑓 ∈ V ↦ (𝑥 ∈ (𝐴 ↑m suc 𝑛) ↦ ((𝑓‘(𝑥 ↾ 𝑛))𝐹(𝑥‘𝑛))))(𝐺‘𝑚)))
54 vex 3454 . . . . . . . . . 10 𝑚 ∈ V
55 fvex 6899 . . . . . . . . . 10 (𝐺‘𝑚) ∈ V
56 reseq1 5963 . . . . . . . . . . . . . . 15 (𝑥 = 𝑧 → (𝑥 ↾ 𝑎) = (𝑧 ↾ 𝑎))
5756fveq2d 6890 . . . . . . . . . . . . . 14 (𝑥 = 𝑧 → (𝑏‘(𝑥 ↾ 𝑎)) = (𝑏‘(𝑧 ↾ 𝑎)))
58 fveq1 6885 . . . . . . . . . . . . . 14 (𝑥 = 𝑧 → (𝑥‘𝑎) = (𝑧‘𝑎))
5957, 58oveq12d 7439 . . . . . . . . . . . . 13 (𝑥 = 𝑧 → ((𝑏‘(𝑥 ↾ 𝑎))𝐹(𝑥‘𝑎)) = ((𝑏‘(𝑧 ↾ 𝑎))𝐹(𝑧‘𝑎)))
6059cbvmptv 5208 . . . . . . . . . . . 12 (𝑥 ∈ (𝐴 ↑m suc 𝑎) ↦ ((𝑏‘(𝑥 ↾ 𝑎))𝐹(𝑥‘𝑎))) = (𝑧 ∈ (𝐴 ↑m suc 𝑎) ↦ ((𝑏‘(𝑧 ↾ 𝑎))𝐹(𝑧‘𝑎)))
61 suceq 6431 . . . . . . . . . . . . . . 15 (𝑎 = 𝑚 → suc 𝑎 = suc 𝑚)
6261adantr 486 . . . . . . . . . . . . . 14 ((𝑎 = 𝑚 ∧ 𝑏 = (𝐺‘𝑚)) → suc 𝑎 = suc 𝑚)
6362oveq2d 7437 . . . . . . . . . . . . 13 ((𝑎 = 𝑚 ∧ 𝑏 = (𝐺‘𝑚)) → (𝐴 ↑m suc 𝑎) = (𝐴 ↑m suc 𝑚))
64 simpr 490 . . . . . . . . . . . . . . 15 ((𝑎 = 𝑚 ∧ 𝑏 = (𝐺‘𝑚)) → 𝑏 = (𝐺‘𝑚))
65 reseq2 5964 . . . . . . . . . . . . . . . 16 (𝑎 = 𝑚 → (𝑧 ↾ 𝑎) = (𝑧 ↾ 𝑚))
6665adantr 486 . . . . . . . . . . . . . . 15 ((𝑎 = 𝑚 ∧ 𝑏 = (𝐺‘𝑚)) → (𝑧 ↾ 𝑎) = (𝑧 ↾ 𝑚))
6764, 66fveq12d 6893 . . . . . . . . . . . . . 14 ((𝑎 = 𝑚 ∧ 𝑏 = (𝐺‘𝑚)) → (𝑏‘(𝑧 ↾ 𝑎)) = ((𝐺‘𝑚)‘(𝑧 ↾ 𝑚)))
68 simpl 488 . . . . . . . . . . . . . . 15 ((𝑎 = 𝑚 ∧ 𝑏 = (𝐺‘𝑚)) → 𝑎 = 𝑚)
6968fveq2d 6890 . . . . . . . . . . . . . 14 ((𝑎 = 𝑚 ∧ 𝑏 = (𝐺‘𝑚)) → (𝑧‘𝑎) = (𝑧‘𝑚))
7067, 69oveq12d 7439 . . . . . . . . . . . . 13 ((𝑎 = 𝑚 ∧ 𝑏 = (𝐺‘𝑚)) → ((𝑏‘(𝑧 ↾ 𝑎))𝐹(𝑧‘𝑎)) = (((𝐺‘𝑚)‘(𝑧 ↾ 𝑚))𝐹(𝑧‘𝑚)))
7163, 70mpteq12dv 5191 . . . . . . . . . . . 12 ((𝑎 = 𝑚 ∧ 𝑏 = (𝐺‘𝑚)) → (𝑧 ∈ (𝐴 ↑m suc 𝑎) ↦ ((𝑏‘(𝑧 ↾ 𝑎))𝐹(𝑧‘𝑎))) = (𝑧 ∈ (𝐴 ↑m suc 𝑚) ↦ (((𝐺‘𝑚)‘(𝑧 ↾ 𝑚))𝐹(𝑧‘𝑚))))
7260, 71eqtrid 2807 . . . . . . . . . . 11 ((𝑎 = 𝑚 ∧ 𝑏 = (𝐺‘𝑚)) → (𝑥 ∈ (𝐴 ↑m suc 𝑎) ↦ ((𝑏‘(𝑥 ↾ 𝑎))𝐹(𝑥‘𝑎))) = (𝑧 ∈ (𝐴 ↑m suc 𝑚) ↦ (((𝐺‘𝑚)‘(𝑧 ↾ 𝑚))𝐹(𝑧‘𝑚))))
73 nfcv 2922 . . . . . . . . . . . 12 Ⅎ𝑎(𝑥 ∈ (𝐴 ↑m suc 𝑛) ↦ ((𝑓‘(𝑥 ↾ 𝑛))𝐹(𝑥‘𝑛)))
74 nfcv 2922 . . . . . . . . . . . 12 Ⅎ𝑏(𝑥 ∈ (𝐴 ↑m suc 𝑛) ↦ ((𝑓‘(𝑥 ↾ 𝑛))𝐹(𝑥‘𝑛)))
75 nfcv 2922 . . . . . . . . . . . 12 Ⅎ𝑛(𝑥 ∈ (𝐴 ↑m suc 𝑎) ↦ ((𝑏‘(𝑥 ↾ 𝑎))𝐹(𝑥‘𝑎)))
76 nfcv 2922 . . . . . . . . . . . 12 Ⅎ𝑓(𝑥 ∈ (𝐴 ↑m suc 𝑎) ↦ ((𝑏‘(𝑥 ↾ 𝑎))𝐹(𝑥‘𝑎)))
77 suceq 6431 . . . . . . . . . . . . . . 15 (𝑛 = 𝑎 → suc 𝑛 = suc 𝑎)
7877adantr 486 . . . . . . . . . . . . . 14 ((𝑛 = 𝑎 ∧ 𝑓 = 𝑏) → suc 𝑛 = suc 𝑎)
7978oveq2d 7437 . . . . . . . . . . . . 13 ((𝑛 = 𝑎 ∧ 𝑓 = 𝑏) → (𝐴 ↑m suc 𝑛) = (𝐴 ↑m suc 𝑎))
80 simpr 490 . . . . . . . . . . . . . . 15 ((𝑛 = 𝑎 ∧ 𝑓 = 𝑏) → 𝑓 = 𝑏)
81 reseq2 5964 . . . . . . . . . . . . . . . 16 (𝑛 = 𝑎 → (𝑥 ↾ 𝑛) = (𝑥 ↾ 𝑎))
8281adantr 486 . . . . . . . . . . . . . . 15 ((𝑛 = 𝑎 ∧ 𝑓 = 𝑏) → (𝑥 ↾ 𝑛) = (𝑥 ↾ 𝑎))
8380, 82fveq12d 6893 . . . . . . . . . . . . . 14 ((𝑛 = 𝑎 ∧ 𝑓 = 𝑏) → (𝑓‘(𝑥 ↾ 𝑛)) = (𝑏‘(𝑥 ↾ 𝑎)))
84 simpl 488 . . . . . . . . . . . . . . 15 ((𝑛 = 𝑎 ∧ 𝑓 = 𝑏) → 𝑛 = 𝑎)
8584fveq2d 6890 . . . . . . . . . . . . . 14 ((𝑛 = 𝑎 ∧ 𝑓 = 𝑏) → (𝑥‘𝑛) = (𝑥‘𝑎))
8683, 85oveq12d 7439 . . . . . . . . . . . . 13 ((𝑛 = 𝑎 ∧ 𝑓 = 𝑏) → ((𝑓‘(𝑥 ↾ 𝑛))𝐹(𝑥‘𝑛)) = ((𝑏‘(𝑥 ↾ 𝑎))𝐹(𝑥‘𝑎)))
8779, 86mpteq12dv 5191 . . . . . . . . . . . 12 ((𝑛 = 𝑎 ∧ 𝑓 = 𝑏) → (𝑥 ∈ (𝐴 ↑m suc 𝑛) ↦ ((𝑓‘(𝑥 ↾ 𝑛))𝐹(𝑥‘𝑛))) = (𝑥 ∈ (𝐴 ↑m suc 𝑎) ↦ ((𝑏‘(𝑥 ↾ 𝑎))𝐹(𝑥‘𝑎))))
8873, 74, 75, 76, 87cbvmpo 7515 . . . . . . . . . . 11 (𝑛 ∈ V, 𝑓 ∈ V ↦ (𝑥 ∈ (𝐴 ↑m suc 𝑛) ↦ ((𝑓‘(𝑥 ↾ 𝑛))𝐹(𝑥‘𝑛)))) = (𝑎 ∈ V, 𝑏 ∈ V ↦ (𝑥 ∈ (𝐴 ↑m suc 𝑎) ↦ ((𝑏‘(𝑥 ↾ 𝑎))𝐹(𝑥‘𝑎))))
89 ovex 7454 . . . . . . . . . . . 12 (𝐴 ↑m suc 𝑚) ∈ V
9089mptex 7230 . . . . . . . . . . 11 (𝑧 ∈ (𝐴 ↑m suc 𝑚) ↦ (((𝐺‘𝑚)‘(𝑧 ↾ 𝑚))𝐹(𝑧‘𝑚))) ∈ V
9172, 88, 90ovmpoa 7576 . . . . . . . . . 10 ((𝑚 ∈ V ∧ (𝐺‘𝑚) ∈ V) → (𝑚(𝑛 ∈ V, 𝑓 ∈ V ↦ (𝑥 ∈ (𝐴 ↑m suc 𝑛) ↦ ((𝑓‘(𝑥 ↾ 𝑛))𝐹(𝑥‘𝑛))))(𝐺‘𝑚)) = (𝑧 ∈ (𝐴 ↑m suc 𝑚) ↦ (((𝐺‘𝑚)‘(𝑧 ↾ 𝑚))𝐹(𝑧‘𝑚))))
9254, 55, 91mp2an 705 . . . . . . . . 9 (𝑚(𝑛 ∈ V, 𝑓 ∈ V ↦ (𝑥 ∈ (𝐴 ↑m suc 𝑛) ↦ ((𝑓‘(𝑥 ↾ 𝑛))𝐹(𝑥‘𝑛))))(𝐺‘𝑚)) = (𝑧 ∈ (𝐴 ↑m suc 𝑚) ↦ (((𝐺‘𝑚)‘(𝑧 ↾ 𝑚))𝐹(𝑧‘𝑚)))
9353, 92eqtrdi 2811 . . . . . . . 8 ((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) → (𝐺‘suc 𝑚) = (𝑧 ∈ (𝐴 ↑m suc 𝑚) ↦ (((𝐺‘𝑚)‘(𝑧 ↾ 𝑚))𝐹(𝑧‘𝑚))))
94 fseqenlem.f . . . . . . . . . . 11 (𝜑 → 𝐹:(𝐴 × 𝐴)–1-1-onto→𝐴)
9594ad2antrr 739 . . . . . . . . . 10 (((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) ∧ 𝑧 ∈ (𝐴 ↑m suc 𝑚)) → 𝐹:(𝐴 × 𝐴)–1-1-onto→𝐴)
96 f1of 6825 . . . . . . . . . 10 (𝐹:(𝐴 × 𝐴)–1-1-onto→𝐴 → 𝐹:(𝐴 × 𝐴)⟶𝐴)
9795, 96syl 18 . . . . . . . . 9 (((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) ∧ 𝑧 ∈ (𝐴 ↑m suc 𝑚)) → 𝐹:(𝐴 × 𝐴)⟶𝐴)
98 f1f 6779 . . . . . . . . . . . 12 ((𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴 → (𝐺‘𝑚):(𝐴 ↑m 𝑚)⟶𝐴)
9998ad2antll 742 . . . . . . . . . . 11 ((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) → (𝐺‘𝑚):(𝐴 ↑m 𝑚)⟶𝐴)
10099adantr 486 . . . . . . . . . 10 (((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) ∧ 𝑧 ∈ (𝐴 ↑m suc 𝑚)) → (𝐺‘𝑚):(𝐴 ↑m 𝑚)⟶𝐴)
101 elmapi 8873 . . . . . . . . . . . . 13 (𝑧 ∈ (𝐴 ↑m suc 𝑚) → 𝑧:suc 𝑚⟶𝐴)
102101adantl 487 . . . . . . . . . . . 12 (((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) ∧ 𝑧 ∈ (𝐴 ↑m suc 𝑚)) → 𝑧:suc 𝑚⟶𝐴)
103 sssucid 6445 . . . . . . . . . . . 12 𝑚 ⊆ suc 𝑚
104 fssres 6749 . . . . . . . . . . . 12 ((𝑧:suc 𝑚⟶𝐴 ∧ 𝑚 ⊆ suc 𝑚) → (𝑧 ↾ 𝑚):𝑚⟶𝐴)
105102, 103, 104sylancl 598 . . . . . . . . . . 11 (((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) ∧ 𝑧 ∈ (𝐴 ↑m suc 𝑚)) → (𝑧 ↾ 𝑚):𝑚⟶𝐴)
10644ad2antrr 739 . . . . . . . . . . . 12 (((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) ∧ 𝑧 ∈ (𝐴 ↑m suc 𝑚)) → 𝐴 ∈ 𝑉)
107 elmapg 8863 . . . . . . . . . . . 12 ((𝐴 ∈ 𝑉 ∧ 𝑚 ∈ V) → ((𝑧 ↾ 𝑚) ∈ (𝐴 ↑m 𝑚) ↔ (𝑧 ↾ 𝑚):𝑚⟶𝐴))
108106, 54, 107sylancl 598 . . . . . . . . . . 11 (((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) ∧ 𝑧 ∈ (𝐴 ↑m suc 𝑚)) → ((𝑧 ↾ 𝑚) ∈ (𝐴 ↑m 𝑚) ↔ (𝑧 ↾ 𝑚):𝑚⟶𝐴))
109105, 108mpbird 260 . . . . . . . . . 10 (((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) ∧ 𝑧 ∈ (𝐴 ↑m suc 𝑚)) → (𝑧 ↾ 𝑚) ∈ (𝐴 ↑m 𝑚))
110100, 109ffvelcdmd 7086 . . . . . . . . 9 (((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) ∧ 𝑧 ∈ (𝐴 ↑m suc 𝑚)) → ((𝐺‘𝑚)‘(𝑧 ↾ 𝑚)) ∈ 𝐴)
11154sucid 6447 . . . . . . . . . 10 𝑚 ∈ suc 𝑚
112 ffvelcdm 7082 . . . . . . . . . 10 ((𝑧:suc 𝑚⟶𝐴 ∧ 𝑚 ∈ suc 𝑚) → (𝑧‘𝑚) ∈ 𝐴)
113102, 111, 112sylancl 598 . . . . . . . . 9 (((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) ∧ 𝑧 ∈ (𝐴 ↑m suc 𝑚)) → (𝑧‘𝑚) ∈ 𝐴)
11497, 110, 113fovcdmd 7594 . . . . . . . 8 (((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) ∧ 𝑧 ∈ (𝐴 ↑m suc 𝑚)) → (((𝐺‘𝑚)‘(𝑧 ↾ 𝑚))𝐹(𝑧‘𝑚)) ∈ 𝐴)
11593, 114fmpt3d 7117 . . . . . . 7 ((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) → (𝐺‘suc 𝑚):(𝐴 ↑m suc 𝑚)⟶𝐴)
116 elmapi 8873 . . . . . . . . . . . . . 14 (𝑎 ∈ (𝐴 ↑m suc 𝑚) → 𝑎:suc 𝑚⟶𝐴)
117116ad2antrl 741 . . . . . . . . . . . . 13 (((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) ∧ (𝑎 ∈ (𝐴 ↑m suc 𝑚) ∧ 𝑏 ∈ (𝐴 ↑m suc 𝑚))) → 𝑎:suc 𝑚⟶𝐴)
118117ffnd 6711 . . . . . . . . . . . 12 (((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) ∧ (𝑎 ∈ (𝐴 ↑m suc 𝑚) ∧ 𝑏 ∈ (𝐴 ↑m suc 𝑚))) → 𝑎 Fn suc 𝑚)
119 elmapi 8873 . . . . . . . . . . . . . 14 (𝑏 ∈ (𝐴 ↑m suc 𝑚) → 𝑏:suc 𝑚⟶𝐴)
120119ad2antll 742 . . . . . . . . . . . . 13 (((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) ∧ (𝑎 ∈ (𝐴 ↑m suc 𝑚) ∧ 𝑏 ∈ (𝐴 ↑m suc 𝑚))) → 𝑏:suc 𝑚⟶𝐴)
121120ffnd 6711 . . . . . . . . . . . 12 (((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) ∧ (𝑎 ∈ (𝐴 ↑m suc 𝑚) ∧ 𝑏 ∈ (𝐴 ↑m suc 𝑚))) → 𝑏 Fn suc 𝑚)
122103a1i 11 . . . . . . . . . . . 12 (((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) ∧ (𝑎 ∈ (𝐴 ↑m suc 𝑚) ∧ 𝑏 ∈ (𝐴 ↑m suc 𝑚))) → 𝑚 ⊆ suc 𝑚)
123 fvreseq 7040 . . . . . . . . . . . 12 (((𝑎 Fn suc 𝑚 ∧ 𝑏 Fn suc 𝑚) ∧ 𝑚 ⊆ suc 𝑚) → ((𝑎 ↾ 𝑚) = (𝑏 ↾ 𝑚) ↔ ∀𝑥 ∈ 𝑚 (𝑎‘𝑥) = (𝑏‘𝑥)))
124118, 121, 122, 123syl21anc 851 . . . . . . . . . . 11 (((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) ∧ (𝑎 ∈ (𝐴 ↑m suc 𝑚) ∧ 𝑏 ∈ (𝐴 ↑m suc 𝑚))) → ((𝑎 ↾ 𝑚) = (𝑏 ↾ 𝑚) ↔ ∀𝑥 ∈ 𝑚 (𝑎‘𝑥) = (𝑏‘𝑥)))
125 fveq2 6886 . . . . . . . . . . . . . . 15 (𝑥 = 𝑚 → (𝑎‘𝑥) = (𝑎‘𝑚))
126 fveq2 6886 . . . . . . . . . . . . . . 15 (𝑥 = 𝑚 → (𝑏‘𝑥) = (𝑏‘𝑚))
127125, 126eqeq12d 2776 . . . . . . . . . . . . . 14 (𝑥 = 𝑚 → ((𝑎‘𝑥) = (𝑏‘𝑥) ↔ (𝑎‘𝑚) = (𝑏‘𝑚)))
12854, 127ralsn 4638 . . . . . . . . . . . . 13 (∀𝑥 ∈ {𝑚} (𝑎‘𝑥) = (𝑏‘𝑥) ↔ (𝑎‘𝑚) = (𝑏‘𝑚))
129128bicomi 227 . . . . . . . . . . . 12 ((𝑎‘𝑚) = (𝑏‘𝑚) ↔ ∀𝑥 ∈ {𝑚} (𝑎‘𝑥) = (𝑏‘𝑥))
130129a1i 11 . . . . . . . . . . 11 (((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) ∧ (𝑎 ∈ (𝐴 ↑m suc 𝑚) ∧ 𝑏 ∈ (𝐴 ↑m suc 𝑚))) → ((𝑎‘𝑚) = (𝑏‘𝑚) ↔ ∀𝑥 ∈ {𝑚} (𝑎‘𝑥) = (𝑏‘𝑥)))
131124, 130anbi12d 644 . . . . . . . . . 10 (((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) ∧ (𝑎 ∈ (𝐴 ↑m suc 𝑚) ∧ 𝑏 ∈ (𝐴 ↑m suc 𝑚))) → (((𝑎 ↾ 𝑚) = (𝑏 ↾ 𝑚) ∧ (𝑎‘𝑚) = (𝑏‘𝑚)) ↔ (∀𝑥 ∈ 𝑚 (𝑎‘𝑥) = (𝑏‘𝑥) ∧ ∀𝑥 ∈ {𝑚} (𝑎‘𝑥) = (𝑏‘𝑥))))
13293adantr 486 . . . . . . . . . . . . . . 15 (((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) ∧ (𝑎 ∈ (𝐴 ↑m suc 𝑚) ∧ 𝑏 ∈ (𝐴 ↑m suc 𝑚))) → (𝐺‘suc 𝑚) = (𝑧 ∈ (𝐴 ↑m suc 𝑚) ↦ (((𝐺‘𝑚)‘(𝑧 ↾ 𝑚))𝐹(𝑧‘𝑚))))
133132fveq1d 6888 . . . . . . . . . . . . . 14 (((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) ∧ (𝑎 ∈ (𝐴 ↑m suc 𝑚) ∧ 𝑏 ∈ (𝐴 ↑m suc 𝑚))) → ((𝐺‘suc 𝑚)‘𝑎) = ((𝑧 ∈ (𝐴 ↑m suc 𝑚) ↦ (((𝐺‘𝑚)‘(𝑧 ↾ 𝑚))𝐹(𝑧‘𝑚)))‘𝑎))
134 reseq1 5963 . . . . . . . . . . . . . . . . . 18 (𝑧 = 𝑎 → (𝑧 ↾ 𝑚) = (𝑎 ↾ 𝑚))
135134fveq2d 6890 . . . . . . . . . . . . . . . . 17 (𝑧 = 𝑎 → ((𝐺‘𝑚)‘(𝑧 ↾ 𝑚)) = ((𝐺‘𝑚)‘(𝑎 ↾ 𝑚)))
136 fveq1 6885 . . . . . . . . . . . . . . . . 17 (𝑧 = 𝑎 → (𝑧‘𝑚) = (𝑎‘𝑚))
137135, 136oveq12d 7439 . . . . . . . . . . . . . . . 16 (𝑧 = 𝑎 → (((𝐺‘𝑚)‘(𝑧 ↾ 𝑚))𝐹(𝑧‘𝑚)) = (((𝐺‘𝑚)‘(𝑎 ↾ 𝑚))𝐹(𝑎‘𝑚)))
138 eqid 2760 . . . . . . . . . . . . . . . 16 (𝑧 ∈ (𝐴 ↑m suc 𝑚) ↦ (((𝐺‘𝑚)‘(𝑧 ↾ 𝑚))𝐹(𝑧‘𝑚))) = (𝑧 ∈ (𝐴 ↑m suc 𝑚) ↦ (((𝐺‘𝑚)‘(𝑧 ↾ 𝑚))𝐹(𝑧‘𝑚)))
139 ovex 7454 . . . . . . . . . . . . . . . 16 (((𝐺‘𝑚)‘(𝑎 ↾ 𝑚))𝐹(𝑎‘𝑚)) ∈ V
140137, 138, 139fvmpt 6994 . . . . . . . . . . . . . . 15 (𝑎 ∈ (𝐴 ↑m suc 𝑚) → ((𝑧 ∈ (𝐴 ↑m suc 𝑚) ↦ (((𝐺‘𝑚)‘(𝑧 ↾ 𝑚))𝐹(𝑧‘𝑚)))‘𝑎) = (((𝐺‘𝑚)‘(𝑎 ↾ 𝑚))𝐹(𝑎‘𝑚)))
141140ad2antrl 741 . . . . . . . . . . . . . 14 (((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) ∧ (𝑎 ∈ (𝐴 ↑m suc 𝑚) ∧ 𝑏 ∈ (𝐴 ↑m suc 𝑚))) → ((𝑧 ∈ (𝐴 ↑m suc 𝑚) ↦ (((𝐺‘𝑚)‘(𝑧 ↾ 𝑚))𝐹(𝑧‘𝑚)))‘𝑎) = (((𝐺‘𝑚)‘(𝑎 ↾ 𝑚))𝐹(𝑎‘𝑚)))
142133, 141eqtrd 2795 . . . . . . . . . . . . 13 (((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) ∧ (𝑎 ∈ (𝐴 ↑m suc 𝑚) ∧ 𝑏 ∈ (𝐴 ↑m suc 𝑚))) → ((𝐺‘suc 𝑚)‘𝑎) = (((𝐺‘𝑚)‘(𝑎 ↾ 𝑚))𝐹(𝑎‘𝑚)))
143 df-ov 7424 . . . . . . . . . . . . 13 (((𝐺‘𝑚)‘(𝑎 ↾ 𝑚))𝐹(𝑎‘𝑚)) = (𝐹‘⟨((𝐺‘𝑚)‘(𝑎 ↾ 𝑚)), (𝑎‘𝑚)⟩)
144142, 143eqtrdi 2811 . . . . . . . . . . . 12 (((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) ∧ (𝑎 ∈ (𝐴 ↑m suc 𝑚) ∧ 𝑏 ∈ (𝐴 ↑m suc 𝑚))) → ((𝐺‘suc 𝑚)‘𝑎) = (𝐹‘⟨((𝐺‘𝑚)‘(𝑎 ↾ 𝑚)), (𝑎‘𝑚)⟩))
145132fveq1d 6888 . . . . . . . . . . . . . 14 (((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) ∧ (𝑎 ∈ (𝐴 ↑m suc 𝑚) ∧ 𝑏 ∈ (𝐴 ↑m suc 𝑚))) → ((𝐺‘suc 𝑚)‘𝑏) = ((𝑧 ∈ (𝐴 ↑m suc 𝑚) ↦ (((𝐺‘𝑚)‘(𝑧 ↾ 𝑚))𝐹(𝑧‘𝑚)))‘𝑏))
146 reseq1 5963 . . . . . . . . . . . . . . . . . 18 (𝑧 = 𝑏 → (𝑧 ↾ 𝑚) = (𝑏 ↾ 𝑚))
147146fveq2d 6890 . . . . . . . . . . . . . . . . 17 (𝑧 = 𝑏 → ((𝐺‘𝑚)‘(𝑧 ↾ 𝑚)) = ((𝐺‘𝑚)‘(𝑏 ↾ 𝑚)))
148 fveq1 6885 . . . . . . . . . . . . . . . . 17 (𝑧 = 𝑏 → (𝑧‘𝑚) = (𝑏‘𝑚))
149147, 148oveq12d 7439 . . . . . . . . . . . . . . . 16 (𝑧 = 𝑏 → (((𝐺‘𝑚)‘(𝑧 ↾ 𝑚))𝐹(𝑧‘𝑚)) = (((𝐺‘𝑚)‘(𝑏 ↾ 𝑚))𝐹(𝑏‘𝑚)))
150 ovex 7454 . . . . . . . . . . . . . . . 16 (((𝐺‘𝑚)‘(𝑏 ↾ 𝑚))𝐹(𝑏‘𝑚)) ∈ V
151149, 138, 150fvmpt 6994 . . . . . . . . . . . . . . 15 (𝑏 ∈ (𝐴 ↑m suc 𝑚) → ((𝑧 ∈ (𝐴 ↑m suc 𝑚) ↦ (((𝐺‘𝑚)‘(𝑧 ↾ 𝑚))𝐹(𝑧‘𝑚)))‘𝑏) = (((𝐺‘𝑚)‘(𝑏 ↾ 𝑚))𝐹(𝑏‘𝑚)))
152151ad2antll 742 . . . . . . . . . . . . . 14 (((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) ∧ (𝑎 ∈ (𝐴 ↑m suc 𝑚) ∧ 𝑏 ∈ (𝐴 ↑m suc 𝑚))) → ((𝑧 ∈ (𝐴 ↑m suc 𝑚) ↦ (((𝐺‘𝑚)‘(𝑧 ↾ 𝑚))𝐹(𝑧‘𝑚)))‘𝑏) = (((𝐺‘𝑚)‘(𝑏 ↾ 𝑚))𝐹(𝑏‘𝑚)))
153145, 152eqtrd 2795 . . . . . . . . . . . . 13 (((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) ∧ (𝑎 ∈ (𝐴 ↑m suc 𝑚) ∧ 𝑏 ∈ (𝐴 ↑m suc 𝑚))) → ((𝐺‘suc 𝑚)‘𝑏) = (((𝐺‘𝑚)‘(𝑏 ↾ 𝑚))𝐹(𝑏‘𝑚)))
154 df-ov 7424 . . . . . . . . . . . . 13 (((𝐺‘𝑚)‘(𝑏 ↾ 𝑚))𝐹(𝑏‘𝑚)) = (𝐹‘⟨((𝐺‘𝑚)‘(𝑏 ↾ 𝑚)), (𝑏‘𝑚)⟩)
155153, 154eqtrdi 2811 . . . . . . . . . . . 12 (((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) ∧ (𝑎 ∈ (𝐴 ↑m suc 𝑚) ∧ 𝑏 ∈ (𝐴 ↑m suc 𝑚))) → ((𝐺‘suc 𝑚)‘𝑏) = (𝐹‘⟨((𝐺‘𝑚)‘(𝑏 ↾ 𝑚)), (𝑏‘𝑚)⟩))
156144, 155eqeq12d 2776 . . . . . . . . . . 11 (((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) ∧ (𝑎 ∈ (𝐴 ↑m suc 𝑚) ∧ 𝑏 ∈ (𝐴 ↑m suc 𝑚))) → (((𝐺‘suc 𝑚)‘𝑎) = ((𝐺‘suc 𝑚)‘𝑏) ↔ (𝐹‘⟨((𝐺‘𝑚)‘(𝑎 ↾ 𝑚)), (𝑎‘𝑚)⟩) = (𝐹‘⟨((𝐺‘𝑚)‘(𝑏 ↾ 𝑚)), (𝑏‘𝑚)⟩)))
15794ad2antrr 739 . . . . . . . . . . . . . 14 (((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) ∧ (𝑎 ∈ (𝐴 ↑m suc 𝑚) ∧ 𝑏 ∈ (𝐴 ↑m suc 𝑚))) → 𝐹:(𝐴 × 𝐴)–1-1-onto→𝐴)
158 f1of1 6824 . . . . . . . . . . . . . 14 (𝐹:(𝐴 × 𝐴)–1-1-onto→𝐴 → 𝐹:(𝐴 × 𝐴)–1-1→𝐴)
159157, 158syl 18 . . . . . . . . . . . . 13 (((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) ∧ (𝑎 ∈ (𝐴 ↑m suc 𝑚) ∧ 𝑏 ∈ (𝐴 ↑m suc 𝑚))) → 𝐹:(𝐴 × 𝐴)–1-1→𝐴)
16099adantr 486 . . . . . . . . . . . . . . 15 (((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) ∧ (𝑎 ∈ (𝐴 ↑m suc 𝑚) ∧ 𝑏 ∈ (𝐴 ↑m suc 𝑚))) → (𝐺‘𝑚):(𝐴 ↑m 𝑚)⟶𝐴)
161 fssres 6749 . . . . . . . . . . . . . . . . 17 ((𝑎:suc 𝑚⟶𝐴 ∧ 𝑚 ⊆ suc 𝑚) → (𝑎 ↾ 𝑚):𝑚⟶𝐴)
162117, 103, 161sylancl 598 . . . . . . . . . . . . . . . 16 (((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) ∧ (𝑎 ∈ (𝐴 ↑m suc 𝑚) ∧ 𝑏 ∈ (𝐴 ↑m suc 𝑚))) → (𝑎 ↾ 𝑚):𝑚⟶𝐴)
16344ad2antrr 739 . . . . . . . . . . . . . . . . 17 (((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) ∧ (𝑎 ∈ (𝐴 ↑m suc 𝑚) ∧ 𝑏 ∈ (𝐴 ↑m suc 𝑚))) → 𝐴 ∈ 𝑉)
164 elmapg 8863 . . . . . . . . . . . . . . . . 17 ((𝐴 ∈ 𝑉 ∧ 𝑚 ∈ V) → ((𝑎 ↾ 𝑚) ∈ (𝐴 ↑m 𝑚) ↔ (𝑎 ↾ 𝑚):𝑚⟶𝐴))
165163, 54, 164sylancl 598 . . . . . . . . . . . . . . . 16 (((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) ∧ (𝑎 ∈ (𝐴 ↑m suc 𝑚) ∧ 𝑏 ∈ (𝐴 ↑m suc 𝑚))) → ((𝑎 ↾ 𝑚) ∈ (𝐴 ↑m 𝑚) ↔ (𝑎 ↾ 𝑚):𝑚⟶𝐴))
166162, 165mpbird 260 . . . . . . . . . . . . . . 15 (((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) ∧ (𝑎 ∈ (𝐴 ↑m suc 𝑚) ∧ 𝑏 ∈ (𝐴 ↑m suc 𝑚))) → (𝑎 ↾ 𝑚) ∈ (𝐴 ↑m 𝑚))
167160, 166ffvelcdmd 7086 . . . . . . . . . . . . . 14 (((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) ∧ (𝑎 ∈ (𝐴 ↑m suc 𝑚) ∧ 𝑏 ∈ (𝐴 ↑m suc 𝑚))) → ((𝐺‘𝑚)‘(𝑎 ↾ 𝑚)) ∈ 𝐴)
168 ffvelcdm 7082 . . . . . . . . . . . . . . 15 ((𝑎:suc 𝑚⟶𝐴 ∧ 𝑚 ∈ suc 𝑚) → (𝑎‘𝑚) ∈ 𝐴)
169117, 111, 168sylancl 598 . . . . . . . . . . . . . 14 (((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) ∧ (𝑎 ∈ (𝐴 ↑m suc 𝑚) ∧ 𝑏 ∈ (𝐴 ↑m suc 𝑚))) → (𝑎‘𝑚) ∈ 𝐴)
170167, 169opelxpd 5689 . . . . . . . . . . . . 13 (((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) ∧ (𝑎 ∈ (𝐴 ↑m suc 𝑚) ∧ 𝑏 ∈ (𝐴 ↑m suc 𝑚))) → ⟨((𝐺‘𝑚)‘(𝑎 ↾ 𝑚)), (𝑎‘𝑚)⟩ ∈ (𝐴 × 𝐴))
171 fssres 6749 . . . . . . . . . . . . . . . . 17 ((𝑏:suc 𝑚⟶𝐴 ∧ 𝑚 ⊆ suc 𝑚) → (𝑏 ↾ 𝑚):𝑚⟶𝐴)
172120, 103, 171sylancl 598 . . . . . . . . . . . . . . . 16 (((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) ∧ (𝑎 ∈ (𝐴 ↑m suc 𝑚) ∧ 𝑏 ∈ (𝐴 ↑m suc 𝑚))) → (𝑏 ↾ 𝑚):𝑚⟶𝐴)
173 elmapg 8863 . . . . . . . . . . . . . . . . 17 ((𝐴 ∈ 𝑉 ∧ 𝑚 ∈ V) → ((𝑏 ↾ 𝑚) ∈ (𝐴 ↑m 𝑚) ↔ (𝑏 ↾ 𝑚):𝑚⟶𝐴))
174163, 54, 173sylancl 598 . . . . . . . . . . . . . . . 16 (((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) ∧ (𝑎 ∈ (𝐴 ↑m suc 𝑚) ∧ 𝑏 ∈ (𝐴 ↑m suc 𝑚))) → ((𝑏 ↾ 𝑚) ∈ (𝐴 ↑m 𝑚) ↔ (𝑏 ↾ 𝑚):𝑚⟶𝐴))
175172, 174mpbird 260 . . . . . . . . . . . . . . 15 (((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) ∧ (𝑎 ∈ (𝐴 ↑m suc 𝑚) ∧ 𝑏 ∈ (𝐴 ↑m suc 𝑚))) → (𝑏 ↾ 𝑚) ∈ (𝐴 ↑m 𝑚))
176160, 175ffvelcdmd 7086 . . . . . . . . . . . . . 14 (((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) ∧ (𝑎 ∈ (𝐴 ↑m suc 𝑚) ∧ 𝑏 ∈ (𝐴 ↑m suc 𝑚))) → ((𝐺‘𝑚)‘(𝑏 ↾ 𝑚)) ∈ 𝐴)
177 ffvelcdm 7082 . . . . . . . . . . . . . . 15 ((𝑏:suc 𝑚⟶𝐴 ∧ 𝑚 ∈ suc 𝑚) → (𝑏‘𝑚) ∈ 𝐴)
178120, 111, 177sylancl 598 . . . . . . . . . . . . . 14 (((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) ∧ (𝑎 ∈ (𝐴 ↑m suc 𝑚) ∧ 𝑏 ∈ (𝐴 ↑m suc 𝑚))) → (𝑏‘𝑚) ∈ 𝐴)
179176, 178opelxpd 5689 . . . . . . . . . . . . 13 (((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) ∧ (𝑎 ∈ (𝐴 ↑m suc 𝑚) ∧ 𝑏 ∈ (𝐴 ↑m suc 𝑚))) → ⟨((𝐺‘𝑚)‘(𝑏 ↾ 𝑚)), (𝑏‘𝑚)⟩ ∈ (𝐴 × 𝐴))
180 f1fveq 7267 . . . . . . . . . . . . 13 ((𝐹:(𝐴 × 𝐴)–1-1→𝐴 ∧ (⟨((𝐺‘𝑚)‘(𝑎 ↾ 𝑚)), (𝑎‘𝑚)⟩ ∈ (𝐴 × 𝐴) ∧ ⟨((𝐺‘𝑚)‘(𝑏 ↾ 𝑚)), (𝑏‘𝑚)⟩ ∈ (𝐴 × 𝐴))) → ((𝐹‘⟨((𝐺‘𝑚)‘(𝑎 ↾ 𝑚)), (𝑎‘𝑚)⟩) = (𝐹‘⟨((𝐺‘𝑚)‘(𝑏 ↾ 𝑚)), (𝑏‘𝑚)⟩) ↔ ⟨((𝐺‘𝑚)‘(𝑎 ↾ 𝑚)), (𝑎‘𝑚)⟩ = ⟨((𝐺‘𝑚)‘(𝑏 ↾ 𝑚)), (𝑏‘𝑚)⟩))
181159, 170, 179, 180syl12anc 850 . . . . . . . . . . . 12 (((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) ∧ (𝑎 ∈ (𝐴 ↑m suc 𝑚) ∧ 𝑏 ∈ (𝐴 ↑m suc 𝑚))) → ((𝐹‘⟨((𝐺‘𝑚)‘(𝑎 ↾ 𝑚)), (𝑎‘𝑚)⟩) = (𝐹‘⟨((𝐺‘𝑚)‘(𝑏 ↾ 𝑚)), (𝑏‘𝑚)⟩) ↔ ⟨((𝐺‘𝑚)‘(𝑎 ↾ 𝑚)), (𝑎‘𝑚)⟩ = ⟨((𝐺‘𝑚)‘(𝑏 ↾ 𝑚)), (𝑏‘𝑚)⟩))
182 fvex 6899 . . . . . . . . . . . . 13 ((𝐺‘𝑚)‘(𝑎 ↾ 𝑚)) ∈ V
183 fvex 6899 . . . . . . . . . . . . 13 (𝑎‘𝑚) ∈ V
184182, 183opth 5444 . . . . . . . . . . . 12 (⟨((𝐺‘𝑚)‘(𝑎 ↾ 𝑚)), (𝑎‘𝑚)⟩ = ⟨((𝐺‘𝑚)‘(𝑏 ↾ 𝑚)), (𝑏‘𝑚)⟩ ↔ (((𝐺‘𝑚)‘(𝑎 ↾ 𝑚)) = ((𝐺‘𝑚)‘(𝑏 ↾ 𝑚)) ∧ (𝑎‘𝑚) = (𝑏‘𝑚)))
185181, 184bitrdi 290 . . . . . . . . . . 11 (((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) ∧ (𝑎 ∈ (𝐴 ↑m suc 𝑚) ∧ 𝑏 ∈ (𝐴 ↑m suc 𝑚))) → ((𝐹‘⟨((𝐺‘𝑚)‘(𝑎 ↾ 𝑚)), (𝑎‘𝑚)⟩) = (𝐹‘⟨((𝐺‘𝑚)‘(𝑏 ↾ 𝑚)), (𝑏‘𝑚)⟩) ↔ (((𝐺‘𝑚)‘(𝑎 ↾ 𝑚)) = ((𝐺‘𝑚)‘(𝑏 ↾ 𝑚)) ∧ (𝑎‘𝑚) = (𝑏‘𝑚))))
186 simplrr 790 . . . . . . . . . . . . 13 (((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) ∧ (𝑎 ∈ (𝐴 ↑m suc 𝑚) ∧ 𝑏 ∈ (𝐴 ↑m suc 𝑚))) → (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)
187 f1fveq 7267 . . . . . . . . . . . . 13 (((𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴 ∧ ((𝑎 ↾ 𝑚) ∈ (𝐴 ↑m 𝑚) ∧ (𝑏 ↾ 𝑚) ∈ (𝐴 ↑m 𝑚))) → (((𝐺‘𝑚)‘(𝑎 ↾ 𝑚)) = ((𝐺‘𝑚)‘(𝑏 ↾ 𝑚)) ↔ (𝑎 ↾ 𝑚) = (𝑏 ↾ 𝑚)))
188186, 166, 175, 187syl12anc 850 . . . . . . . . . . . 12 (((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) ∧ (𝑎 ∈ (𝐴 ↑m suc 𝑚) ∧ 𝑏 ∈ (𝐴 ↑m suc 𝑚))) → (((𝐺‘𝑚)‘(𝑎 ↾ 𝑚)) = ((𝐺‘𝑚)‘(𝑏 ↾ 𝑚)) ↔ (𝑎 ↾ 𝑚) = (𝑏 ↾ 𝑚)))
189188anbi1d 643 . . . . . . . . . . 11 (((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) ∧ (𝑎 ∈ (𝐴 ↑m suc 𝑚) ∧ 𝑏 ∈ (𝐴 ↑m suc 𝑚))) → ((((𝐺‘𝑚)‘(𝑎 ↾ 𝑚)) = ((𝐺‘𝑚)‘(𝑏 ↾ 𝑚)) ∧ (𝑎‘𝑚) = (𝑏‘𝑚)) ↔ ((𝑎 ↾ 𝑚) = (𝑏 ↾ 𝑚) ∧ (𝑎‘𝑚) = (𝑏‘𝑚))))
190156, 185, 1893bitrd 308 . . . . . . . . . 10 (((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) ∧ (𝑎 ∈ (𝐴 ↑m suc 𝑚) ∧ 𝑏 ∈ (𝐴 ↑m suc 𝑚))) → (((𝐺‘suc 𝑚)‘𝑎) = ((𝐺‘suc 𝑚)‘𝑏) ↔ ((𝑎 ↾ 𝑚) = (𝑏 ↾ 𝑚) ∧ (𝑎‘𝑚) = (𝑏‘𝑚))))
191 eqfnfv 7030 . . . . . . . . . . . 12 ((𝑎 Fn suc 𝑚 ∧ 𝑏 Fn suc 𝑚) → (𝑎 = 𝑏 ↔ ∀𝑥 ∈ suc 𝑚(𝑎‘𝑥) = (𝑏‘𝑥)))
192118, 121, 191syl2anc 596 . . . . . . . . . . 11 (((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) ∧ (𝑎 ∈ (𝐴 ↑m suc 𝑚) ∧ 𝑏 ∈ (𝐴 ↑m suc 𝑚))) → (𝑎 = 𝑏 ↔ ∀𝑥 ∈ suc 𝑚(𝑎‘𝑥) = (𝑏‘𝑥)))
193 df-suc 6368 . . . . . . . . . . . . 13 suc 𝑚 = (𝑚 ∪ {𝑚})
194193raleqi 3317 . . . . . . . . . . . 12 (∀𝑥 ∈ suc 𝑚(𝑎‘𝑥) = (𝑏‘𝑥) ↔ ∀𝑥 ∈ (𝑚 ∪ {𝑚})(𝑎‘𝑥) = (𝑏‘𝑥))
195 ralunb 4195 . . . . . . . . . . . 12 (∀𝑥 ∈ (𝑚 ∪ {𝑚})(𝑎‘𝑥) = (𝑏‘𝑥) ↔ (∀𝑥 ∈ 𝑚 (𝑎‘𝑥) = (𝑏‘𝑥) ∧ ∀𝑥 ∈ {𝑚} (𝑎‘𝑥) = (𝑏‘𝑥)))
196194, 195bitri 278 . . . . . . . . . . 11 (∀𝑥 ∈ suc 𝑚(𝑎‘𝑥) = (𝑏‘𝑥) ↔ (∀𝑥 ∈ 𝑚 (𝑎‘𝑥) = (𝑏‘𝑥) ∧ ∀𝑥 ∈ {𝑚} (𝑎‘𝑥) = (𝑏‘𝑥)))
197192, 196bitrdi 290 . . . . . . . . . 10 (((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) ∧ (𝑎 ∈ (𝐴 ↑m suc 𝑚) ∧ 𝑏 ∈ (𝐴 ↑m suc 𝑚))) → (𝑎 = 𝑏 ↔ (∀𝑥 ∈ 𝑚 (𝑎‘𝑥) = (𝑏‘𝑥) ∧ ∀𝑥 ∈ {𝑚} (𝑎‘𝑥) = (𝑏‘𝑥))))
198131, 190, 1973bitr4d 314 . . . . . . . . 9 (((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) ∧ (𝑎 ∈ (𝐴 ↑m suc 𝑚) ∧ 𝑏 ∈ (𝐴 ↑m suc 𝑚))) → (((𝐺‘suc 𝑚)‘𝑎) = ((𝐺‘suc 𝑚)‘𝑏) ↔ 𝑎 = 𝑏))
199198biimpd 232 . . . . . . . 8 (((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) ∧ (𝑎 ∈ (𝐴 ↑m suc 𝑚) ∧ 𝑏 ∈ (𝐴 ↑m suc 𝑚))) → (((𝐺‘suc 𝑚)‘𝑎) = ((𝐺‘suc 𝑚)‘𝑏) → 𝑎 = 𝑏))
200199ralrimivva 3205 . . . . . . 7 ((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) → ∀𝑎 ∈ (𝐴 ↑m suc 𝑚)∀𝑏 ∈ (𝐴 ↑m suc 𝑚)(((𝐺‘suc 𝑚)‘𝑎) = ((𝐺‘suc 𝑚)‘𝑏) → 𝑎 = 𝑏))
201 dff13 7259 . . . . . . 7 ((𝐺‘suc 𝑚):(𝐴 ↑m suc 𝑚)–1-1→𝐴 ↔ ((𝐺‘suc 𝑚):(𝐴 ↑m suc 𝑚)⟶𝐴 ∧ ∀𝑎 ∈ (𝐴 ↑m suc 𝑚)∀𝑏 ∈ (𝐴 ↑m suc 𝑚)(((𝐺‘suc 𝑚)‘𝑎) = ((𝐺‘suc 𝑚)‘𝑏) → 𝑎 = 𝑏)))
202115, 200, 201sylanbrc 595 . . . . . 6 ((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) → (𝐺‘suc 𝑚):(𝐴 ↑m suc 𝑚)–1-1→𝐴)
203202expr 462 . . . . 5 ((𝜑 ∧ 𝑚 ∈ ω) → ((𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴 → (𝐺‘suc 𝑚):(𝐴 ↑m suc 𝑚)–1-1→𝐴))
204203expcom 419 . . . 4 (𝑚 ∈ ω → (𝜑 → ((𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴 → (𝐺‘suc 𝑚):(𝐴 ↑m suc 𝑚)–1-1→𝐴)))
20520, 27, 34, 51, 204finds2 7911 . . 3 (𝑦 ∈ ω → (𝜑 → (𝐺‘𝑦):(𝐴 ↑m 𝑦)–1-1→𝐴))
2068, 205vtoclga 3536 . 2 (𝐶 ∈ ω → (𝜑 → (𝐺‘𝐶):(𝐴 ↑m 𝐶)–1-1→𝐴))
207206impcom 413 1 ((𝜑 ∧ 𝐶 ∈ ω) → (𝐺‘𝐶):(𝐴 ↑m 𝐶)–1-1→𝐴)
Colors of variables:    wff setvar class
This proof depends on syntax axioms:   → wi 4   ↔ wb 209   ∧ wa 401   = wceq 1569   ∈ wcel 2144  ∀wral 3076  Vcvv 3450   ⊆ wss 3895   ∪ cun 4149  ∅c0 4278  {csn 4584  ⟨cop 4834   ↦ cmpt 5185   × cxp 5648   ↾ cres 5652  suc csuc 6364   Fn wfn 6534  ⟶wf 6535  –1-1→wf1 6536  –1-1-onto→wf1o 6538  ‘cfv 6539  (class class class)co 7421   ∈ cmpo 7423  ωcom 7878  seqωcseqom 8461  1oc1o 8473   ↑m cmap 8851
This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1827  ax-4 1841  ax-5 1942  ax-6 1999  ax-7 2040  ax-8 2146  ax-9 2154  ax-10 2177  ax-11 2193  ax-12 2212  ax-ext 2732  ax-rep 5231  ax-sep 5248  ax-nul 5259  ax-pow 5326  ax-pr 5390  ax-un 7752
This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1572  df-fal 1582  df-ex 1812  df-nf 1816  df-sb 2099  df-mo 2564  df-eu 2594  df-clab 2739  df-cleq 2752  df-clel 2835  df-nfc 2909  df-ne 2956  df-ral 3077  df-rex 3087  df-reu 3366  df-rab 3413  df-v 3452  df-sbc 3739  df-csb 3847  df-ss 3896  df-pss 4014  df-dif 4047  df-in 4091  df-un 4151  df-nul 4279  df-if 4482  df-pw 4558  df-sn 4585  df-pr 4587  df-op 4835  df-uni 4867  df-iun 4952  df-br 5103  df-opab 5167  df-mpt 5186  df-tr 5212  df-id 5545  df-eprel 5550  df-po 5558  df-so 5559  df-fr 5603  df-we 5605  df-xp 5656  df-rel 5657  df-cnv 5658  df-co 5659  df-dm 5660  df-rn 5661  df-res 5662  df-ima 5663  df-pred 6304  df-ord 6365  df-on 6366  df-lim 6367  df-suc 6368  df-iota 6494  df-fun 6541  df-fn 6542  df-f 6543  df-f1 6544  df-fo 6545  df-f1o 6546  df-fv 6547  df-ov 7424  df-oprab 7425  df-mpo 7426  df-om 7879  df-1st 8002  df-2nd 8003  df-frecs 8303  df-wrecs 8334  df-recs 8383  df-rdg 8422  df-seqom 8462  df-1o 8480  df-map 8853
This theorem is used by:  fseqenlem2  10108
  Copyright terms: Public domain W3C validator