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

Theorem fseqenlem1 10084
Description: Lemma for fseqen 10087. (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 6877 . . . . . 6 (𝑦 = 𝐶 → (𝐺‘𝑦) = (𝐺‘𝐶))
2 f1eq1 6765 . . . . . 6 ((𝐺‘𝑦) = (𝐺‘𝐶) → ((𝐺‘𝑦):(𝐴 ↑m 𝑦)–1-1→𝐴 ↔ (𝐺‘𝐶):(𝐴 ↑m 𝑦)–1-1→𝐴))
31, 2syl 18 . . . . 5 (𝑦 = 𝐶 → ((𝐺‘𝑦):(𝐴 ↑m 𝑦)–1-1→𝐴 ↔ (𝐺‘𝐶):(𝐴 ↑m 𝑦)–1-1→𝐴))
4 oveq2 7420 . . . . . 6 (𝑦 = 𝐶 → (𝐴 ↑m 𝑦) = (𝐴 ↑m 𝐶))
5 f1eq2 6766 . . . . . 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 6877 . . . . . . 7 (𝑦 = ∅ → (𝐺‘𝑦) = (𝐺‘∅))
10 snex 5397 . . . . . . . 8 {⟨∅, 𝐵⟩} ∈ V
11 fseqenlem.g . . . . . . . . 9 𝐺 = seqω((𝑛 ∈ V, 𝑓 ∈ V ↦ (𝑥 ∈ (𝐴 ↑m suc 𝑛) ↦ ((𝑓‘(𝑥 ↾ 𝑛))𝐹(𝑥‘𝑛)))), {⟨∅, 𝐵⟩})
1211seqom0g 8450 . . . . . . . 8 ({⟨∅, 𝐵⟩} ∈ V → (𝐺‘∅) = {⟨∅, 𝐵⟩})
1310, 12ax-mp 5 . . . . . . 7 (𝐺‘∅) = {⟨∅, 𝐵⟩}
149, 13eqtrdi 2812 . . . . . 6 (𝑦 = ∅ → (𝐺‘𝑦) = {⟨∅, 𝐵⟩})
15 f1eq1 6765 . . . . . 6 ((𝐺‘𝑦) = {⟨∅, 𝐵⟩} → ((𝐺‘𝑦):(𝐴 ↑m 𝑦)–1-1→𝐴 ↔ {⟨∅, 𝐵⟩}:(𝐴 ↑m 𝑦)–1-1→𝐴))
1614, 15syl 18 . . . . 5 (𝑦 = ∅ → ((𝐺‘𝑦):(𝐴 ↑m 𝑦)–1-1→𝐴 ↔ {⟨∅, 𝐵⟩}:(𝐴 ↑m 𝑦)–1-1→𝐴))
17 oveq2 7420 . . . . . 6 (𝑦 = ∅ → (𝐴 ↑m 𝑦) = (𝐴 ↑m ∅))
18 f1eq2 6766 . . . . . 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 6877 . . . . . 6 (𝑦 = 𝑚 → (𝐺‘𝑦) = (𝐺‘𝑚))
22 f1eq1 6765 . . . . . 6 ((𝐺‘𝑦) = (𝐺‘𝑚) → ((𝐺‘𝑦):(𝐴 ↑m 𝑦)–1-1→𝐴 ↔ (𝐺‘𝑚):(𝐴 ↑m 𝑦)–1-1→𝐴))
2321, 22syl 18 . . . . 5 (𝑦 = 𝑚 → ((𝐺‘𝑦):(𝐴 ↑m 𝑦)–1-1→𝐴 ↔ (𝐺‘𝑚):(𝐴 ↑m 𝑦)–1-1→𝐴))
24 oveq2 7420 . . . . . 6 (𝑦 = 𝑚 → (𝐴 ↑m 𝑦) = (𝐴 ↑m 𝑚))
25 f1eq2 6766 . . . . . 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 6877 . . . . . 6 (𝑦 = suc 𝑚 → (𝐺‘𝑦) = (𝐺‘suc 𝑚))
29 f1eq1 6765 . . . . . 6 ((𝐺‘𝑦) = (𝐺‘suc 𝑚) → ((𝐺‘𝑦):(𝐴 ↑m 𝑦)–1-1→𝐴 ↔ (𝐺‘suc 𝑚):(𝐴 ↑m 𝑦)–1-1→𝐴))
3028, 29syl 18 . . . . 5 (𝑦 = suc 𝑚 → ((𝐺‘𝑦):(𝐴 ↑m 𝑦)–1-1→𝐴 ↔ (𝐺‘suc 𝑚):(𝐴 ↑m 𝑦)–1-1→𝐴))
31 oveq2 7420 . . . . . 6 (𝑦 = suc 𝑚 → (𝐴 ↑m 𝑦) = (𝐴 ↑m suc 𝑚))
32 f1eq2 6766 . . . . . 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 5261 . . . . . . . 8 ∅ ∈ V
36 fseqenlem.b . . . . . . . 8 (𝜑 → 𝐵 ∈ 𝐴)
37 f1osng 6859 . . . . . . . 8 ((∅ ∈ V ∧ 𝐵 ∈ 𝐴) → {⟨∅, 𝐵⟩}:{∅}–1-1-onto→{𝐵})
3835, 36, 37sylancr 599 . . . . . . 7 (𝜑 → {⟨∅, 𝐵⟩}:{∅}–1-1-onto→{𝐵})
39 f1of1 6815 . . . . . . 7 ({⟨∅, 𝐵⟩}:{∅}–1-1-onto→{𝐵} → {⟨∅, 𝐵⟩}:{∅}–1-1→{𝐵})
4038, 39syl 18 . . . . . 6 (𝜑 → {⟨∅, 𝐵⟩}:{∅}–1-1→{𝐵})
4136snssd 4747 . . . . . 6 (𝜑 → {𝐵} ⊆ 𝐴)
42 f1ss 6777 . . . . . 6 (({⟨∅, 𝐵⟩}:{∅}–1-1→{𝐵} ∧ {𝐵} ⊆ 𝐴) → {⟨∅, 𝐵⟩}:{∅}–1-1→𝐴)
4340, 41, 42syl2anc 596 . . . . 5 (𝜑 → {⟨∅, 𝐵⟩}:{∅}–1-1→𝐴)
44 fseqenlem.a . . . . . . . 8 (𝜑 → 𝐴 ∈ 𝑉)
45 map0e 8894 . . . . . . . 8 (𝐴 ∈ 𝑉 → (𝐴 ↑m ∅) = 1o)
4644, 45syl 18 . . . . . . 7 (𝜑 → (𝐴 ↑m ∅) = 1o)
47 df1o2 8467 . . . . . . 7 1o = {∅}
4846, 47eqtrdi 2812 . . . . . 6 (𝜑 → (𝐴 ↑m ∅) = {∅})
49 f1eq2 6766 . . . . . 6 ((𝐴 ↑m ∅) = {∅} → ({⟨∅, 𝐵⟩}:(𝐴 ↑m ∅)–1-1→𝐴 ↔ {⟨∅, 𝐵⟩}:{∅}–1-1→𝐴))
5048, 49syl 18 . . . . 5 (𝜑 → ({⟨∅, 𝐵⟩}:(𝐴 ↑m ∅)–1-1→𝐴 ↔ {⟨∅, 𝐵⟩}:{∅}–1-1→𝐴))
5143, 50mpbird 260 . . . 4 (𝜑 → {⟨∅, 𝐵⟩}:(𝐴 ↑m ∅)–1-1→𝐴)
5211seqomsuc 8451 . . . . . . . . . 10 (𝑚 ∈ ω → (𝐺‘suc 𝑚) = (𝑚(𝑛 ∈ V, 𝑓 ∈ V ↦ (𝑥 ∈ (𝐴 ↑m suc 𝑛) ↦ ((𝑓‘(𝑥 ↾ 𝑛))𝐹(𝑥‘𝑛))))(𝐺‘𝑚)))
5352ad2antrl 741 . . . . . . . . 9 ((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) → (𝐺‘suc 𝑚) = (𝑚(𝑛 ∈ V, 𝑓 ∈ V ↦ (𝑥 ∈ (𝐴 ↑m suc 𝑛) ↦ ((𝑓‘(𝑥 ↾ 𝑛))𝐹(𝑥‘𝑛))))(𝐺‘𝑚)))
54 vex 3455 . . . . . . . . . 10 𝑚 ∈ V
55 fvex 6890 . . . . . . . . . 10 (𝐺‘𝑚) ∈ V
56 reseq1 5964 . . . . . . . . . . . . . . 15 (𝑥 = 𝑧 → (𝑥 ↾ 𝑎) = (𝑧 ↾ 𝑎))
5756fveq2d 6881 . . . . . . . . . . . . . 14 (𝑥 = 𝑧 → (𝑏‘(𝑥 ↾ 𝑎)) = (𝑏‘(𝑧 ↾ 𝑎)))
58 fveq1 6876 . . . . . . . . . . . . . 14 (𝑥 = 𝑧 → (𝑥‘𝑎) = (𝑧‘𝑎))
5957, 58oveq12d 7430 . . . . . . . . . . . . 13 (𝑥 = 𝑧 → ((𝑏‘(𝑥 ↾ 𝑎))𝐹(𝑥‘𝑎)) = ((𝑏‘(𝑧 ↾ 𝑎))𝐹(𝑧‘𝑎)))
6059cbvmptv 5209 . . . . . . . . . . . 12 (𝑥 ∈ (𝐴 ↑m suc 𝑎) ↦ ((𝑏‘(𝑥 ↾ 𝑎))𝐹(𝑥‘𝑎))) = (𝑧 ∈ (𝐴 ↑m suc 𝑎) ↦ ((𝑏‘(𝑧 ↾ 𝑎))𝐹(𝑧‘𝑎)))
61 suceq 6424 . . . . . . . . . . . . . . 15 (𝑎 = 𝑚 → suc 𝑎 = suc 𝑚)
6261adantr 486 . . . . . . . . . . . . . 14 ((𝑎 = 𝑚 ∧ 𝑏 = (𝐺‘𝑚)) → suc 𝑎 = suc 𝑚)
6362oveq2d 7428 . . . . . . . . . . . . 13 ((𝑎 = 𝑚 ∧ 𝑏 = (𝐺‘𝑚)) → (𝐴 ↑m suc 𝑎) = (𝐴 ↑m suc 𝑚))
64 simpr 490 . . . . . . . . . . . . . . 15 ((𝑎 = 𝑚 ∧ 𝑏 = (𝐺‘𝑚)) → 𝑏 = (𝐺‘𝑚))
65 reseq2 5965 . . . . . . . . . . . . . . . 16 (𝑎 = 𝑚 → (𝑧 ↾ 𝑎) = (𝑧 ↾ 𝑚))
6665adantr 486 . . . . . . . . . . . . . . 15 ((𝑎 = 𝑚 ∧ 𝑏 = (𝐺‘𝑚)) → (𝑧 ↾ 𝑎) = (𝑧 ↾ 𝑚))
6764, 66fveq12d 6884 . . . . . . . . . . . . . 14 ((𝑎 = 𝑚 ∧ 𝑏 = (𝐺‘𝑚)) → (𝑏‘(𝑧 ↾ 𝑎)) = ((𝐺‘𝑚)‘(𝑧 ↾ 𝑚)))
68 simpl 488 . . . . . . . . . . . . . . 15 ((𝑎 = 𝑚 ∧ 𝑏 = (𝐺‘𝑚)) → 𝑎 = 𝑚)
6968fveq2d 6881 . . . . . . . . . . . . . 14 ((𝑎 = 𝑚 ∧ 𝑏 = (𝐺‘𝑚)) → (𝑧‘𝑎) = (𝑧‘𝑚))
7067, 69oveq12d 7430 . . . . . . . . . . . . 13 ((𝑎 = 𝑚 ∧ 𝑏 = (𝐺‘𝑚)) → ((𝑏‘(𝑧 ↾ 𝑎))𝐹(𝑧‘𝑎)) = (((𝐺‘𝑚)‘(𝑧 ↾ 𝑚))𝐹(𝑧‘𝑚)))
7163, 70mpteq12dv 5192 . . . . . . . . . . . 12 ((𝑎 = 𝑚 ∧ 𝑏 = (𝐺‘𝑚)) → (𝑧 ∈ (𝐴 ↑m suc 𝑎) ↦ ((𝑏‘(𝑧 ↾ 𝑎))𝐹(𝑧‘𝑎))) = (𝑧 ∈ (𝐴 ↑m suc 𝑚) ↦ (((𝐺‘𝑚)‘(𝑧 ↾ 𝑚))𝐹(𝑧‘𝑚))))
7260, 71eqtrid 2808 . . . . . . . . . . 11 ((𝑎 = 𝑚 ∧ 𝑏 = (𝐺‘𝑚)) → (𝑥 ∈ (𝐴 ↑m suc 𝑎) ↦ ((𝑏‘(𝑥 ↾ 𝑎))𝐹(𝑥‘𝑎))) = (𝑧 ∈ (𝐴 ↑m suc 𝑚) ↦ (((𝐺‘𝑚)‘(𝑧 ↾ 𝑚))𝐹(𝑧‘𝑚))))
73 nfcv 2923 . . . . . . . . . . . 12 Ⅎ𝑎(𝑥 ∈ (𝐴 ↑m suc 𝑛) ↦ ((𝑓‘(𝑥 ↾ 𝑛))𝐹(𝑥‘𝑛)))
74 nfcv 2923 . . . . . . . . . . . 12 Ⅎ𝑏(𝑥 ∈ (𝐴 ↑m suc 𝑛) ↦ ((𝑓‘(𝑥 ↾ 𝑛))𝐹(𝑥‘𝑛)))
75 nfcv 2923 . . . . . . . . . . . 12 Ⅎ𝑛(𝑥 ∈ (𝐴 ↑m suc 𝑎) ↦ ((𝑏‘(𝑥 ↾ 𝑎))𝐹(𝑥‘𝑎)))
76 nfcv 2923 . . . . . . . . . . . 12 Ⅎ𝑓(𝑥 ∈ (𝐴 ↑m suc 𝑎) ↦ ((𝑏‘(𝑥 ↾ 𝑎))𝐹(𝑥‘𝑎)))
77 suceq 6424 . . . . . . . . . . . . . . 15 (𝑛 = 𝑎 → suc 𝑛 = suc 𝑎)
7877adantr 486 . . . . . . . . . . . . . 14 ((𝑛 = 𝑎 ∧ 𝑓 = 𝑏) → suc 𝑛 = suc 𝑎)
7978oveq2d 7428 . . . . . . . . . . . . 13 ((𝑛 = 𝑎 ∧ 𝑓 = 𝑏) → (𝐴 ↑m suc 𝑛) = (𝐴 ↑m suc 𝑎))
80 simpr 490 . . . . . . . . . . . . . . 15 ((𝑛 = 𝑎 ∧ 𝑓 = 𝑏) → 𝑓 = 𝑏)
81 reseq2 5965 . . . . . . . . . . . . . . . 16 (𝑛 = 𝑎 → (𝑥 ↾ 𝑛) = (𝑥 ↾ 𝑎))
8281adantr 486 . . . . . . . . . . . . . . 15 ((𝑛 = 𝑎 ∧ 𝑓 = 𝑏) → (𝑥 ↾ 𝑛) = (𝑥 ↾ 𝑎))
8380, 82fveq12d 6884 . . . . . . . . . . . . . 14 ((𝑛 = 𝑎 ∧ 𝑓 = 𝑏) → (𝑓‘(𝑥 ↾ 𝑛)) = (𝑏‘(𝑥 ↾ 𝑎)))
84 simpl 488 . . . . . . . . . . . . . . 15 ((𝑛 = 𝑎 ∧ 𝑓 = 𝑏) → 𝑛 = 𝑎)
8584fveq2d 6881 . . . . . . . . . . . . . 14 ((𝑛 = 𝑎 ∧ 𝑓 = 𝑏) → (𝑥‘𝑛) = (𝑥‘𝑎))
8683, 85oveq12d 7430 . . . . . . . . . . . . 13 ((𝑛 = 𝑎 ∧ 𝑓 = 𝑏) → ((𝑓‘(𝑥 ↾ 𝑛))𝐹(𝑥‘𝑛)) = ((𝑏‘(𝑥 ↾ 𝑎))𝐹(𝑥‘𝑎)))
8779, 86mpteq12dv 5192 . . . . . . . . . . . 12 ((𝑛 = 𝑎 ∧ 𝑓 = 𝑏) → (𝑥 ∈ (𝐴 ↑m suc 𝑛) ↦ ((𝑓‘(𝑥 ↾ 𝑛))𝐹(𝑥‘𝑛))) = (𝑥 ∈ (𝐴 ↑m suc 𝑎) ↦ ((𝑏‘(𝑥 ↾ 𝑎))𝐹(𝑥‘𝑎))))
8873, 74, 75, 76, 87cbvmpo 7506 . . . . . . . . . . 11 (𝑛 ∈ V, 𝑓 ∈ V ↦ (𝑥 ∈ (𝐴 ↑m suc 𝑛) ↦ ((𝑓‘(𝑥 ↾ 𝑛))𝐹(𝑥‘𝑛)))) = (𝑎 ∈ V, 𝑏 ∈ V ↦ (𝑥 ∈ (𝐴 ↑m suc 𝑎) ↦ ((𝑏‘(𝑥 ↾ 𝑎))𝐹(𝑥‘𝑎))))
89 ovex 7445 . . . . . . . . . . . 12 (𝐴 ↑m suc 𝑚) ∈ V
9089mptex 7221 . . . . . . . . . . 11 (𝑧 ∈ (𝐴 ↑m suc 𝑚) ↦ (((𝐺‘𝑚)‘(𝑧 ↾ 𝑚))𝐹(𝑧‘𝑚))) ∈ V
9172, 88, 90ovmpoa 7567 . . . . . . . . . 10 ((𝑚 ∈ V ∧ (𝐺‘𝑚) ∈ V) → (𝑚(𝑛 ∈ V, 𝑓 ∈ V ↦ (𝑥 ∈ (𝐴 ↑m suc 𝑛) ↦ ((𝑓‘(𝑥 ↾ 𝑛))𝐹(𝑥‘𝑛))))(𝐺‘𝑚)) = (𝑧 ∈ (𝐴 ↑m suc 𝑚) ↦ (((𝐺‘𝑚)‘(𝑧 ↾ 𝑚))𝐹(𝑧‘𝑚))))
9254, 55, 91mp2an 705 . . . . . . . . 9 (𝑚(𝑛 ∈ V, 𝑓 ∈ V ↦ (𝑥 ∈ (𝐴 ↑m suc 𝑛) ↦ ((𝑓‘(𝑥 ↾ 𝑛))𝐹(𝑥‘𝑛))))(𝐺‘𝑚)) = (𝑧 ∈ (𝐴 ↑m suc 𝑚) ↦ (((𝐺‘𝑚)‘(𝑧 ↾ 𝑚))𝐹(𝑧‘𝑚)))
9353, 92eqtrdi 2812 . . . . . . . 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 6816 . . . . . . . . . 10 (𝐹:(𝐴 × 𝐴)–1-1-onto→𝐴 → 𝐹:(𝐴 × 𝐴)⟶𝐴)
9795, 96syl 18 . . . . . . . . 9 (((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) ∧ 𝑧 ∈ (𝐴 ↑m suc 𝑚)) → 𝐹:(𝐴 × 𝐴)⟶𝐴)
98 f1f 6770 . . . . . . . . . . . 12 ((𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴 → (𝐺‘𝑚):(𝐴 ↑m 𝑚)⟶𝐴)
9998ad2antll 742 . . . . . . . . . . 11 ((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) → (𝐺‘𝑚):(𝐴 ↑m 𝑚)⟶𝐴)
10099adantr 486 . . . . . . . . . 10 (((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) ∧ 𝑧 ∈ (𝐴 ↑m suc 𝑚)) → (𝐺‘𝑚):(𝐴 ↑m 𝑚)⟶𝐴)
101 elmapi 8853 . . . . . . . . . . . . 13 (𝑧 ∈ (𝐴 ↑m suc 𝑚) → 𝑧:suc 𝑚⟶𝐴)
102101adantl 487 . . . . . . . . . . . 12 (((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) ∧ 𝑧 ∈ (𝐴 ↑m suc 𝑚)) → 𝑧:suc 𝑚⟶𝐴)
103 sssucid 6438 . . . . . . . . . . . 12 𝑚 ⊆ suc 𝑚
104 fssres 6740 . . . . . . . . . . . 12 ((𝑧:suc 𝑚⟶𝐴 ∧ 𝑚 ⊆ suc 𝑚) → (𝑧 ↾ 𝑚):𝑚⟶𝐴)
105102, 103, 104sylancl 598 . . . . . . . . . . 11 (((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) ∧ 𝑧 ∈ (𝐴 ↑m suc 𝑚)) → (𝑧 ↾ 𝑚):𝑚⟶𝐴)
10644ad2antrr 739 . . . . . . . . . . . 12 (((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) ∧ 𝑧 ∈ (𝐴 ↑m suc 𝑚)) → 𝐴 ∈ 𝑉)
107 elmapg 8843 . . . . . . . . . . . 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 7077 . . . . . . . . 9 (((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) ∧ 𝑧 ∈ (𝐴 ↑m suc 𝑚)) → ((𝐺‘𝑚)‘(𝑧 ↾ 𝑚)) ∈ 𝐴)
11154sucid 6440 . . . . . . . . . 10 𝑚 ∈ suc 𝑚
112 ffvelcdm 7073 . . . . . . . . . 10 ((𝑧:suc 𝑚⟶𝐴 ∧ 𝑚 ∈ suc 𝑚) → (𝑧‘𝑚) ∈ 𝐴)
113102, 111, 112sylancl 598 . . . . . . . . 9 (((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) ∧ 𝑧 ∈ (𝐴 ↑m suc 𝑚)) → (𝑧‘𝑚) ∈ 𝐴)
11497, 110, 113fovcdmd 7585 . . . . . . . 8 (((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) ∧ 𝑧 ∈ (𝐴 ↑m suc 𝑚)) → (((𝐺‘𝑚)‘(𝑧 ↾ 𝑚))𝐹(𝑧‘𝑚)) ∈ 𝐴)
11593, 114fmpt3d 7108 . . . . . . 7 ((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) → (𝐺‘suc 𝑚):(𝐴 ↑m suc 𝑚)⟶𝐴)
116 elmapi 8853 . . . . . . . . . . . . . 14 (𝑎 ∈ (𝐴 ↑m suc 𝑚) → 𝑎:suc 𝑚⟶𝐴)
117116ad2antrl 741 . . . . . . . . . . . . 13 (((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) ∧ (𝑎 ∈ (𝐴 ↑m suc 𝑚) ∧ 𝑏 ∈ (𝐴 ↑m suc 𝑚))) → 𝑎:suc 𝑚⟶𝐴)
118117ffnd 6702 . . . . . . . . . . . 12 (((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) ∧ (𝑎 ∈ (𝐴 ↑m suc 𝑚) ∧ 𝑏 ∈ (𝐴 ↑m suc 𝑚))) → 𝑎 Fn suc 𝑚)
119 elmapi 8853 . . . . . . . . . . . . . 14 (𝑏 ∈ (𝐴 ↑m suc 𝑚) → 𝑏:suc 𝑚⟶𝐴)
120119ad2antll 742 . . . . . . . . . . . . 13 (((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) ∧ (𝑎 ∈ (𝐴 ↑m suc 𝑚) ∧ 𝑏 ∈ (𝐴 ↑m suc 𝑚))) → 𝑏:suc 𝑚⟶𝐴)
121120ffnd 6702 . . . . . . . . . . . 12 (((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) ∧ (𝑎 ∈ (𝐴 ↑m suc 𝑚) ∧ 𝑏 ∈ (𝐴 ↑m suc 𝑚))) → 𝑏 Fn suc 𝑚)
122103a1i 11 . . . . . . . . . . . 12 (((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) ∧ (𝑎 ∈ (𝐴 ↑m suc 𝑚) ∧ 𝑏 ∈ (𝐴 ↑m suc 𝑚))) → 𝑚 ⊆ suc 𝑚)
123 fvreseq 7031 . . . . . . . . . . . 12 (((𝑎 Fn suc 𝑚 ∧ 𝑏 Fn suc 𝑚) ∧ 𝑚 ⊆ suc 𝑚) → ((𝑎 ↾ 𝑚) = (𝑏 ↾ 𝑚) ↔ ∀𝑥 ∈ 𝑚 (𝑎‘𝑥) = (𝑏‘𝑥)))
124118, 121, 122, 123syl21anc 851 . . . . . . . . . . 11 (((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) ∧ (𝑎 ∈ (𝐴 ↑m suc 𝑚) ∧ 𝑏 ∈ (𝐴 ↑m suc 𝑚))) → ((𝑎 ↾ 𝑚) = (𝑏 ↾ 𝑚) ↔ ∀𝑥 ∈ 𝑚 (𝑎‘𝑥) = (𝑏‘𝑥)))
125 fveq2 6877 . . . . . . . . . . . . . . 15 (𝑥 = 𝑚 → (𝑎‘𝑥) = (𝑎‘𝑚))
126 fveq2 6877 . . . . . . . . . . . . . . 15 (𝑥 = 𝑚 → (𝑏‘𝑥) = (𝑏‘𝑚))
127125, 126eqeq12d 2777 . . . . . . . . . . . . . 14 (𝑥 = 𝑚 → ((𝑎‘𝑥) = (𝑏‘𝑥) ↔ (𝑎‘𝑚) = (𝑏‘𝑚)))
12854, 127ralsn 4642 . . . . . . . . . . . . 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 6879 . . . . . . . . . . . . . 14 (((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) ∧ (𝑎 ∈ (𝐴 ↑m suc 𝑚) ∧ 𝑏 ∈ (𝐴 ↑m suc 𝑚))) → ((𝐺‘suc 𝑚)‘𝑎) = ((𝑧 ∈ (𝐴 ↑m suc 𝑚) ↦ (((𝐺‘𝑚)‘(𝑧 ↾ 𝑚))𝐹(𝑧‘𝑚)))‘𝑎))
134 reseq1 5964 . . . . . . . . . . . . . . . . . 18 (𝑧 = 𝑎 → (𝑧 ↾ 𝑚) = (𝑎 ↾ 𝑚))
135134fveq2d 6881 . . . . . . . . . . . . . . . . 17 (𝑧 = 𝑎 → ((𝐺‘𝑚)‘(𝑧 ↾ 𝑚)) = ((𝐺‘𝑚)‘(𝑎 ↾ 𝑚)))
136 fveq1 6876 . . . . . . . . . . . . . . . . 17 (𝑧 = 𝑎 → (𝑧‘𝑚) = (𝑎‘𝑚))
137135, 136oveq12d 7430 . . . . . . . . . . . . . . . 16 (𝑧 = 𝑎 → (((𝐺‘𝑚)‘(𝑧 ↾ 𝑚))𝐹(𝑧‘𝑚)) = (((𝐺‘𝑚)‘(𝑎 ↾ 𝑚))𝐹(𝑎‘𝑚)))
138 eqid 2761 . . . . . . . . . . . . . . . 16 (𝑧 ∈ (𝐴 ↑m suc 𝑚) ↦ (((𝐺‘𝑚)‘(𝑧 ↾ 𝑚))𝐹(𝑧‘𝑚))) = (𝑧 ∈ (𝐴 ↑m suc 𝑚) ↦ (((𝐺‘𝑚)‘(𝑧 ↾ 𝑚))𝐹(𝑧‘𝑚)))
139 ovex 7445 . . . . . . . . . . . . . . . 16 (((𝐺‘𝑚)‘(𝑎 ↾ 𝑚))𝐹(𝑎‘𝑚)) ∈ V
140137, 138, 139fvmpt 6985 . . . . . . . . . . . . . . 15 (𝑎 ∈ (𝐴 ↑m suc 𝑚) → ((𝑧 ∈ (𝐴 ↑m suc 𝑚) ↦ (((𝐺‘𝑚)‘(𝑧 ↾ 𝑚))𝐹(𝑧‘𝑚)))‘𝑎) = (((𝐺‘𝑚)‘(𝑎 ↾ 𝑚))𝐹(𝑎‘𝑚)))
141140ad2antrl 741 . . . . . . . . . . . . . 14 (((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) ∧ (𝑎 ∈ (𝐴 ↑m suc 𝑚) ∧ 𝑏 ∈ (𝐴 ↑m suc 𝑚))) → ((𝑧 ∈ (𝐴 ↑m suc 𝑚) ↦ (((𝐺‘𝑚)‘(𝑧 ↾ 𝑚))𝐹(𝑧‘𝑚)))‘𝑎) = (((𝐺‘𝑚)‘(𝑎 ↾ 𝑚))𝐹(𝑎‘𝑚)))
142133, 141eqtrd 2796 . . . . . . . . . . . . 13 (((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) ∧ (𝑎 ∈ (𝐴 ↑m suc 𝑚) ∧ 𝑏 ∈ (𝐴 ↑m suc 𝑚))) → ((𝐺‘suc 𝑚)‘𝑎) = (((𝐺‘𝑚)‘(𝑎 ↾ 𝑚))𝐹(𝑎‘𝑚)))
143 df-ov 7415 . . . . . . . . . . . . 13 (((𝐺‘𝑚)‘(𝑎 ↾ 𝑚))𝐹(𝑎‘𝑚)) = (𝐹‘⟨((𝐺‘𝑚)‘(𝑎 ↾ 𝑚)), (𝑎‘𝑚)⟩)
144142, 143eqtrdi 2812 . . . . . . . . . . . 12 (((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) ∧ (𝑎 ∈ (𝐴 ↑m suc 𝑚) ∧ 𝑏 ∈ (𝐴 ↑m suc 𝑚))) → ((𝐺‘suc 𝑚)‘𝑎) = (𝐹‘⟨((𝐺‘𝑚)‘(𝑎 ↾ 𝑚)), (𝑎‘𝑚)⟩))
145132fveq1d 6879 . . . . . . . . . . . . . 14 (((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) ∧ (𝑎 ∈ (𝐴 ↑m suc 𝑚) ∧ 𝑏 ∈ (𝐴 ↑m suc 𝑚))) → ((𝐺‘suc 𝑚)‘𝑏) = ((𝑧 ∈ (𝐴 ↑m suc 𝑚) ↦ (((𝐺‘𝑚)‘(𝑧 ↾ 𝑚))𝐹(𝑧‘𝑚)))‘𝑏))
146 reseq1 5964 . . . . . . . . . . . . . . . . . 18 (𝑧 = 𝑏 → (𝑧 ↾ 𝑚) = (𝑏 ↾ 𝑚))
147146fveq2d 6881 . . . . . . . . . . . . . . . . 17 (𝑧 = 𝑏 → ((𝐺‘𝑚)‘(𝑧 ↾ 𝑚)) = ((𝐺‘𝑚)‘(𝑏 ↾ 𝑚)))
148 fveq1 6876 . . . . . . . . . . . . . . . . 17 (𝑧 = 𝑏 → (𝑧‘𝑚) = (𝑏‘𝑚))
149147, 148oveq12d 7430 . . . . . . . . . . . . . . . 16 (𝑧 = 𝑏 → (((𝐺‘𝑚)‘(𝑧 ↾ 𝑚))𝐹(𝑧‘𝑚)) = (((𝐺‘𝑚)‘(𝑏 ↾ 𝑚))𝐹(𝑏‘𝑚)))
150 ovex 7445 . . . . . . . . . . . . . . . 16 (((𝐺‘𝑚)‘(𝑏 ↾ 𝑚))𝐹(𝑏‘𝑚)) ∈ V
151149, 138, 150fvmpt 6985 . . . . . . . . . . . . . . 15 (𝑏 ∈ (𝐴 ↑m suc 𝑚) → ((𝑧 ∈ (𝐴 ↑m suc 𝑚) ↦ (((𝐺‘𝑚)‘(𝑧 ↾ 𝑚))𝐹(𝑧‘𝑚)))‘𝑏) = (((𝐺‘𝑚)‘(𝑏 ↾ 𝑚))𝐹(𝑏‘𝑚)))
152151ad2antll 742 . . . . . . . . . . . . . 14 (((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) ∧ (𝑎 ∈ (𝐴 ↑m suc 𝑚) ∧ 𝑏 ∈ (𝐴 ↑m suc 𝑚))) → ((𝑧 ∈ (𝐴 ↑m suc 𝑚) ↦ (((𝐺‘𝑚)‘(𝑧 ↾ 𝑚))𝐹(𝑧‘𝑚)))‘𝑏) = (((𝐺‘𝑚)‘(𝑏 ↾ 𝑚))𝐹(𝑏‘𝑚)))
153145, 152eqtrd 2796 . . . . . . . . . . . . 13 (((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) ∧ (𝑎 ∈ (𝐴 ↑m suc 𝑚) ∧ 𝑏 ∈ (𝐴 ↑m suc 𝑚))) → ((𝐺‘suc 𝑚)‘𝑏) = (((𝐺‘𝑚)‘(𝑏 ↾ 𝑚))𝐹(𝑏‘𝑚)))
154 df-ov 7415 . . . . . . . . . . . . 13 (((𝐺‘𝑚)‘(𝑏 ↾ 𝑚))𝐹(𝑏‘𝑚)) = (𝐹‘⟨((𝐺‘𝑚)‘(𝑏 ↾ 𝑚)), (𝑏‘𝑚)⟩)
155153, 154eqtrdi 2812 . . . . . . . . . . . 12 (((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) ∧ (𝑎 ∈ (𝐴 ↑m suc 𝑚) ∧ 𝑏 ∈ (𝐴 ↑m suc 𝑚))) → ((𝐺‘suc 𝑚)‘𝑏) = (𝐹‘⟨((𝐺‘𝑚)‘(𝑏 ↾ 𝑚)), (𝑏‘𝑚)⟩))
156144, 155eqeq12d 2777 . . . . . . . . . . 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 6815 . . . . . . . . . . . . . 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 6740 . . . . . . . . . . . . . . . . 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 8843 . . . . . . . . . . . . . . . . 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 7077 . . . . . . . . . . . . . 14 (((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) ∧ (𝑎 ∈ (𝐴 ↑m suc 𝑚) ∧ 𝑏 ∈ (𝐴 ↑m suc 𝑚))) → ((𝐺‘𝑚)‘(𝑎 ↾ 𝑚)) ∈ 𝐴)
168 ffvelcdm 7073 . . . . . . . . . . . . . . 15 ((𝑎:suc 𝑚⟶𝐴 ∧ 𝑚 ∈ suc 𝑚) → (𝑎‘𝑚) ∈ 𝐴)
169117, 111, 168sylancl 598 . . . . . . . . . . . . . 14 (((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) ∧ (𝑎 ∈ (𝐴 ↑m suc 𝑚) ∧ 𝑏 ∈ (𝐴 ↑m suc 𝑚))) → (𝑎‘𝑚) ∈ 𝐴)
170167, 169opelxpd 5690 . . . . . . . . . . . . 13 (((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) ∧ (𝑎 ∈ (𝐴 ↑m suc 𝑚) ∧ 𝑏 ∈ (𝐴 ↑m suc 𝑚))) → ⟨((𝐺‘𝑚)‘(𝑎 ↾ 𝑚)), (𝑎‘𝑚)⟩ ∈ (𝐴 × 𝐴))
171 fssres 6740 . . . . . . . . . . . . . . . . 17 ((𝑏:suc 𝑚⟶𝐴 ∧ 𝑚 ⊆ suc 𝑚) → (𝑏 ↾ 𝑚):𝑚⟶𝐴)
172120, 103, 171sylancl 598 . . . . . . . . . . . . . . . 16 (((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) ∧ (𝑎 ∈ (𝐴 ↑m suc 𝑚) ∧ 𝑏 ∈ (𝐴 ↑m suc 𝑚))) → (𝑏 ↾ 𝑚):𝑚⟶𝐴)
173 elmapg 8843 . . . . . . . . . . . . . . . . 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 7077 . . . . . . . . . . . . . 14 (((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) ∧ (𝑎 ∈ (𝐴 ↑m suc 𝑚) ∧ 𝑏 ∈ (𝐴 ↑m suc 𝑚))) → ((𝐺‘𝑚)‘(𝑏 ↾ 𝑚)) ∈ 𝐴)
177 ffvelcdm 7073 . . . . . . . . . . . . . . 15 ((𝑏:suc 𝑚⟶𝐴 ∧ 𝑚 ∈ suc 𝑚) → (𝑏‘𝑚) ∈ 𝐴)
178120, 111, 177sylancl 598 . . . . . . . . . . . . . 14 (((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) ∧ (𝑎 ∈ (𝐴 ↑m suc 𝑚) ∧ 𝑏 ∈ (𝐴 ↑m suc 𝑚))) → (𝑏‘𝑚) ∈ 𝐴)
179176, 178opelxpd 5690 . . . . . . . . . . . . 13 (((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) ∧ (𝑎 ∈ (𝐴 ↑m suc 𝑚) ∧ 𝑏 ∈ (𝐴 ↑m suc 𝑚))) → ⟨((𝐺‘𝑚)‘(𝑏 ↾ 𝑚)), (𝑏‘𝑚)⟩ ∈ (𝐴 × 𝐴))
180 f1fveq 7258 . . . . . . . . . . . . 13 ((𝐹:(𝐴 × 𝐴)–1-1→𝐴 ∧ (⟨((𝐺‘𝑚)‘(𝑎 ↾ 𝑚)), (𝑎‘𝑚)⟩ ∈ (𝐴 × 𝐴) ∧ ⟨((𝐺‘𝑚)‘(𝑏 ↾ 𝑚)), (𝑏‘𝑚)⟩ ∈ (𝐴 × 𝐴))) → ((𝐹‘⟨((𝐺‘𝑚)‘(𝑎 ↾ 𝑚)), (𝑎‘𝑚)⟩) = (𝐹‘⟨((𝐺‘𝑚)‘(𝑏 ↾ 𝑚)), (𝑏‘𝑚)⟩) ↔ ⟨((𝐺‘𝑚)‘(𝑎 ↾ 𝑚)), (𝑎‘𝑚)⟩ = ⟨((𝐺‘𝑚)‘(𝑏 ↾ 𝑚)), (𝑏‘𝑚)⟩))
181159, 170, 179, 180syl12anc 850 . . . . . . . . . . . 12 (((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) ∧ (𝑎 ∈ (𝐴 ↑m suc 𝑚) ∧ 𝑏 ∈ (𝐴 ↑m suc 𝑚))) → ((𝐹‘⟨((𝐺‘𝑚)‘(𝑎 ↾ 𝑚)), (𝑎‘𝑚)⟩) = (𝐹‘⟨((𝐺‘𝑚)‘(𝑏 ↾ 𝑚)), (𝑏‘𝑚)⟩) ↔ ⟨((𝐺‘𝑚)‘(𝑎 ↾ 𝑚)), (𝑎‘𝑚)⟩ = ⟨((𝐺‘𝑚)‘(𝑏 ↾ 𝑚)), (𝑏‘𝑚)⟩))
182 fvex 6890 . . . . . . . . . . . . 13 ((𝐺‘𝑚)‘(𝑎 ↾ 𝑚)) ∈ V
183 fvex 6890 . . . . . . . . . . . . 13 (𝑎‘𝑚) ∈ V
184182, 183opth 5445 . . . . . . . . . . . 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 7258 . . . . . . . . . . . . 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 7021 . . . . . . . . . . . 12 ((𝑎 Fn suc 𝑚 ∧ 𝑏 Fn suc 𝑚) → (𝑎 = 𝑏 ↔ ∀𝑥 ∈ suc 𝑚(𝑎‘𝑥) = (𝑏‘𝑥)))
192118, 121, 191syl2anc 596 . . . . . . . . . . 11 (((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) ∧ (𝑎 ∈ (𝐴 ↑m suc 𝑚) ∧ 𝑏 ∈ (𝐴 ↑m suc 𝑚))) → (𝑎 = 𝑏 ↔ ∀𝑥 ∈ suc 𝑚(𝑎‘𝑥) = (𝑏‘𝑥)))
193 df-suc 6361 . . . . . . . . . . . . 13 suc 𝑚 = (𝑚 ∪ {𝑚})
194193raleqi 3318 . . . . . . . . . . . 12 (∀𝑥 ∈ suc 𝑚(𝑎‘𝑥) = (𝑏‘𝑥) ↔ ∀𝑥 ∈ (𝑚 ∪ {𝑚})(𝑎‘𝑥) = (𝑏‘𝑥))
195 ralunb 4143 . . . . . . . . . . . 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 3206 . . . . . . 7 ((𝜑 ∧ (𝑚 ∈ ω ∧ (𝐺‘𝑚):(𝐴 ↑m 𝑚)–1-1→𝐴)) → ∀𝑎 ∈ (𝐴 ↑m suc 𝑚)∀𝑏 ∈ (𝐴 ↑m suc 𝑚)(((𝐺‘suc 𝑚)‘𝑎) = ((𝐺‘suc 𝑚)‘𝑏) → 𝑎 = 𝑏))
201 dff13 7250 . . . . . . 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 7899 . . 3 (𝑦 ∈ ω → (𝜑 → (𝐺‘𝑦):(𝐴 ↑m 𝑦)–1-1→𝐴))
2068, 205vtoclga 3537 . 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 1570   ∈ wcel 2145  ∀wral 3077  Vcvv 3451   ∪ cun 3897   ⊆ wss 3899  ∅c0 4279  {csn 4584  ⟨cop 4590   ↦ cmpt 5186   × cxp 5649   ↾ cres 5653  suc csuc 6357   Fn wfn 6526  ⟶wf 6527  –1-1→wf1 6528  –1-1-onto→wf1o 6530  ‘cfv 6531  (class class class)co 7412   ∈ cmpo 7414  ωcom 7866  seqωcseqom 8441  1oc1o 8453   ↑m cmap 8831
This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-8 2147  ax-9 2155  ax-10 2178  ax-11 2194  ax-12 2213  ax-ext 2733  ax-rep 5232  ax-sep 5249  ax-nul 5260  ax-pow 5327  ax-pr 5391  ax-un 7740
This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2565  df-eu 2595  df-clab 2740  df-cleq 2753  df-clel 2836  df-nfc 2910  df-ne 2957  df-ral 3078  df-rex 3088  df-reu 3367  df-rab 3414  df-v 3453  df-sbc 3740  df-csb 3848  df-dif 3902  df-un 3904  df-in 3906  df-ss 3916  df-pss 3919  df-nul 4280  df-if 4483  df-pw 4559  df-sn 4585  df-pr 4587  df-op 4591  df-uni 4868  df-iun 4953  df-br 5104  df-opab 5168  df-mpt 5187  df-tr 5213  df-id 5546  df-eprel 5551  df-po 5559  df-so 5560  df-fr 5604  df-we 5606  df-xp 5657  df-rel 5658  df-cnv 5659  df-co 5660  df-dm 5661  df-rn 5662  df-res 5663  df-ima 5664  df-pred 6297  df-ord 6358  df-on 6359  df-lim 6360  df-suc 6361  df-iota 6487  df-fun 6533  df-fn 6534  df-f 6535  df-f1 6536  df-fo 6537  df-f1o 6538  df-fv 6539  df-ov 7415  df-oprab 7416  df-mpo 7417  df-om 7867  df-1st 7990  df-2nd 7991  df-frecs 8283  df-wrecs 8314  df-recs 8363  df-rdg 8402  df-seqom 8442  df-1o 8460  df-map 8833
This theorem is used by:  fseqenlem2  10085
  Copyright terms: Public domain W3C validator