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

Theorem dfac12lem1 10182
Description: Lemma for dfac12 10188. (Contributed by Mario Carneiro, 29-May-2015.)
Hypotheses
Ref Expression
dfac12.1 (𝜑𝐴 ∈ On)
dfac12.3 (𝜑𝐹:𝒫 (har‘(𝑅1𝐴))–1-1→On)
dfac12.4 𝐺 = recs((𝑥 ∈ V ↦ (𝑦 ∈ (𝑅1‘dom 𝑥) ↦ if(dom 𝑥 = dom 𝑥, ((suc ran ran 𝑥 ·o (rank‘𝑦)) +o ((𝑥‘suc (rank‘𝑦))‘𝑦)), (𝐹‘((OrdIso( E , ran (𝑥 dom 𝑥)) ∘ (𝑥 dom 𝑥)) “ 𝑦))))))
dfac12.5 (𝜑𝐶 ∈ On)
dfac12.h 𝐻 = (OrdIso( E , ran (𝐺 𝐶)) ∘ (𝐺 𝐶))
Assertion
Ref Expression
dfac12lem1 (𝜑 → (𝐺𝐶) = (𝑦 ∈ (𝑅1𝐶) ↦ if(𝐶 = 𝐶, ((suc ran (𝐺𝐶) ·o (rank‘𝑦)) +o ((𝐺‘suc (rank‘𝑦))‘𝑦)), (𝐹‘(𝐻𝑦)))))
Distinct variable groups:   𝑦,𝐴   𝑥,𝑦,𝐶   𝑥,𝐺,𝑦   𝜑,𝑦   𝑥,𝐹,𝑦   𝑦,𝐻
Allowed substitution hints:   𝜑(𝑥)   𝐴(𝑥)   𝐻(𝑥)

Proof of Theorem dfac12lem1
StepHypRef Expression
1 dfac12.5 . . 3 (𝜑𝐶 ∈ On)
2 dfac12.4 . . . 4 𝐺 = recs((𝑥 ∈ V ↦ (𝑦 ∈ (𝑅1‘dom 𝑥) ↦ if(dom 𝑥 = dom 𝑥, ((suc ran ran 𝑥 ·o (rank‘𝑦)) +o ((𝑥‘suc (rank‘𝑦))‘𝑦)), (𝐹‘((OrdIso( E , ran (𝑥 dom 𝑥)) ∘ (𝑥 dom 𝑥)) “ 𝑦))))))
32tfr2 8437 . . 3 (𝐶 ∈ On → (𝐺𝐶) = ((𝑥 ∈ V ↦ (𝑦 ∈ (𝑅1‘dom 𝑥) ↦ if(dom 𝑥 = dom 𝑥, ((suc ran ran 𝑥 ·o (rank‘𝑦)) +o ((𝑥‘suc (rank‘𝑦))‘𝑦)), (𝐹‘((OrdIso( E , ran (𝑥 dom 𝑥)) ∘ (𝑥 dom 𝑥)) “ 𝑦)))))‘(𝐺𝐶)))
41, 3syl 17 . 2 (𝜑 → (𝐺𝐶) = ((𝑥 ∈ V ↦ (𝑦 ∈ (𝑅1‘dom 𝑥) ↦ if(dom 𝑥 = dom 𝑥, ((suc ran ran 𝑥 ·o (rank‘𝑦)) +o ((𝑥‘suc (rank‘𝑦))‘𝑦)), (𝐹‘((OrdIso( E , ran (𝑥 dom 𝑥)) ∘ (𝑥 dom 𝑥)) “ 𝑦)))))‘(𝐺𝐶)))
52tfr1 8436 . . . . 5 𝐺 Fn On
6 fnfun 6669 . . . . 5 (𝐺 Fn On → Fun 𝐺)
75, 6ax-mp 5 . . . 4 Fun 𝐺
8 resfunexg 7235 . . . 4 ((Fun 𝐺𝐶 ∈ On) → (𝐺𝐶) ∈ V)
97, 1, 8sylancr 587 . . 3 (𝜑 → (𝐺𝐶) ∈ V)
10 dmeq 5917 . . . . . 6 (𝑥 = (𝐺𝐶) → dom 𝑥 = dom (𝐺𝐶))
1110fveq2d 6911 . . . . 5 (𝑥 = (𝐺𝐶) → (𝑅1‘dom 𝑥) = (𝑅1‘dom (𝐺𝐶)))
1210unieqd 4925 . . . . . . 7 (𝑥 = (𝐺𝐶) → dom 𝑥 = dom (𝐺𝐶))
1310, 12eqeq12d 2751 . . . . . 6 (𝑥 = (𝐺𝐶) → (dom 𝑥 = dom 𝑥 ↔ dom (𝐺𝐶) = dom (𝐺𝐶)))
14 rneq 5950 . . . . . . . . . . . . 13 (𝑥 = (𝐺𝐶) → ran 𝑥 = ran (𝐺𝐶))
15 df-ima 5702 . . . . . . . . . . . . 13 (𝐺𝐶) = ran (𝐺𝐶)
1614, 15eqtr4di 2793 . . . . . . . . . . . 12 (𝑥 = (𝐺𝐶) → ran 𝑥 = (𝐺𝐶))
1716unieqd 4925 . . . . . . . . . . 11 (𝑥 = (𝐺𝐶) → ran 𝑥 = (𝐺𝐶))
1817rneqd 5952 . . . . . . . . . 10 (𝑥 = (𝐺𝐶) → ran ran 𝑥 = ran (𝐺𝐶))
1918unieqd 4925 . . . . . . . . 9 (𝑥 = (𝐺𝐶) → ran ran 𝑥 = ran (𝐺𝐶))
20 suceq 6452 . . . . . . . . 9 ( ran ran 𝑥 = ran (𝐺𝐶) → suc ran ran 𝑥 = suc ran (𝐺𝐶))
2119, 20syl 17 . . . . . . . 8 (𝑥 = (𝐺𝐶) → suc ran ran 𝑥 = suc ran (𝐺𝐶))
2221oveq1d 7446 . . . . . . 7 (𝑥 = (𝐺𝐶) → (suc ran ran 𝑥 ·o (rank‘𝑦)) = (suc ran (𝐺𝐶) ·o (rank‘𝑦)))
23 fveq1 6906 . . . . . . . 8 (𝑥 = (𝐺𝐶) → (𝑥‘suc (rank‘𝑦)) = ((𝐺𝐶)‘suc (rank‘𝑦)))
2423fveq1d 6909 . . . . . . 7 (𝑥 = (𝐺𝐶) → ((𝑥‘suc (rank‘𝑦))‘𝑦) = (((𝐺𝐶)‘suc (rank‘𝑦))‘𝑦))
2522, 24oveq12d 7449 . . . . . 6 (𝑥 = (𝐺𝐶) → ((suc ran ran 𝑥 ·o (rank‘𝑦)) +o ((𝑥‘suc (rank‘𝑦))‘𝑦)) = ((suc ran (𝐺𝐶) ·o (rank‘𝑦)) +o (((𝐺𝐶)‘suc (rank‘𝑦))‘𝑦)))
26 id 22 . . . . . . . . . . . . 13 (𝑥 = (𝐺𝐶) → 𝑥 = (𝐺𝐶))
2726, 12fveq12d 6914 . . . . . . . . . . . 12 (𝑥 = (𝐺𝐶) → (𝑥 dom 𝑥) = ((𝐺𝐶)‘ dom (𝐺𝐶)))
2827rneqd 5952 . . . . . . . . . . 11 (𝑥 = (𝐺𝐶) → ran (𝑥 dom 𝑥) = ran ((𝐺𝐶)‘ dom (𝐺𝐶)))
29 oieq2 9551 . . . . . . . . . . 11 (ran (𝑥 dom 𝑥) = ran ((𝐺𝐶)‘ dom (𝐺𝐶)) → OrdIso( E , ran (𝑥 dom 𝑥)) = OrdIso( E , ran ((𝐺𝐶)‘ dom (𝐺𝐶))))
3028, 29syl 17 . . . . . . . . . 10 (𝑥 = (𝐺𝐶) → OrdIso( E , ran (𝑥 dom 𝑥)) = OrdIso( E , ran ((𝐺𝐶)‘ dom (𝐺𝐶))))
3130cnveqd 5889 . . . . . . . . 9 (𝑥 = (𝐺𝐶) → OrdIso( E , ran (𝑥 dom 𝑥)) = OrdIso( E , ran ((𝐺𝐶)‘ dom (𝐺𝐶))))
3231, 27coeq12d 5878 . . . . . . . 8 (𝑥 = (𝐺𝐶) → (OrdIso( E , ran (𝑥 dom 𝑥)) ∘ (𝑥 dom 𝑥)) = (OrdIso( E , ran ((𝐺𝐶)‘ dom (𝐺𝐶))) ∘ ((𝐺𝐶)‘ dom (𝐺𝐶))))
3332imaeq1d 6079 . . . . . . 7 (𝑥 = (𝐺𝐶) → ((OrdIso( E , ran (𝑥 dom 𝑥)) ∘ (𝑥 dom 𝑥)) “ 𝑦) = ((OrdIso( E , ran ((𝐺𝐶)‘ dom (𝐺𝐶))) ∘ ((𝐺𝐶)‘ dom (𝐺𝐶))) “ 𝑦))
3433fveq2d 6911 . . . . . 6 (𝑥 = (𝐺𝐶) → (𝐹‘((OrdIso( E , ran (𝑥 dom 𝑥)) ∘ (𝑥 dom 𝑥)) “ 𝑦)) = (𝐹‘((OrdIso( E , ran ((𝐺𝐶)‘ dom (𝐺𝐶))) ∘ ((𝐺𝐶)‘ dom (𝐺𝐶))) “ 𝑦)))
3513, 25, 34ifbieq12d 4559 . . . . 5 (𝑥 = (𝐺𝐶) → if(dom 𝑥 = dom 𝑥, ((suc ran ran 𝑥 ·o (rank‘𝑦)) +o ((𝑥‘suc (rank‘𝑦))‘𝑦)), (𝐹‘((OrdIso( E , ran (𝑥 dom 𝑥)) ∘ (𝑥 dom 𝑥)) “ 𝑦))) = if(dom (𝐺𝐶) = dom (𝐺𝐶), ((suc ran (𝐺𝐶) ·o (rank‘𝑦)) +o (((𝐺𝐶)‘suc (rank‘𝑦))‘𝑦)), (𝐹‘((OrdIso( E , ran ((𝐺𝐶)‘ dom (𝐺𝐶))) ∘ ((𝐺𝐶)‘ dom (𝐺𝐶))) “ 𝑦))))
3611, 35mpteq12dv 5239 . . . 4 (𝑥 = (𝐺𝐶) → (𝑦 ∈ (𝑅1‘dom 𝑥) ↦ if(dom 𝑥 = dom 𝑥, ((suc ran ran 𝑥 ·o (rank‘𝑦)) +o ((𝑥‘suc (rank‘𝑦))‘𝑦)), (𝐹‘((OrdIso( E , ran (𝑥 dom 𝑥)) ∘ (𝑥 dom 𝑥)) “ 𝑦)))) = (𝑦 ∈ (𝑅1‘dom (𝐺𝐶)) ↦ if(dom (𝐺𝐶) = dom (𝐺𝐶), ((suc ran (𝐺𝐶) ·o (rank‘𝑦)) +o (((𝐺𝐶)‘suc (rank‘𝑦))‘𝑦)), (𝐹‘((OrdIso( E , ran ((𝐺𝐶)‘ dom (𝐺𝐶))) ∘ ((𝐺𝐶)‘ dom (𝐺𝐶))) “ 𝑦)))))
37 eqid 2735 . . . 4 (𝑥 ∈ V ↦ (𝑦 ∈ (𝑅1‘dom 𝑥) ↦ if(dom 𝑥 = dom 𝑥, ((suc ran ran 𝑥 ·o (rank‘𝑦)) +o ((𝑥‘suc (rank‘𝑦))‘𝑦)), (𝐹‘((OrdIso( E , ran (𝑥 dom 𝑥)) ∘ (𝑥 dom 𝑥)) “ 𝑦))))) = (𝑥 ∈ V ↦ (𝑦 ∈ (𝑅1‘dom 𝑥) ↦ if(dom 𝑥 = dom 𝑥, ((suc ran ran 𝑥 ·o (rank‘𝑦)) +o ((𝑥‘suc (rank‘𝑦))‘𝑦)), (𝐹‘((OrdIso( E , ran (𝑥 dom 𝑥)) ∘ (𝑥 dom 𝑥)) “ 𝑦)))))
38 fvex 6920 . . . . 5 (𝑅1‘dom (𝐺𝐶)) ∈ V
3938mptex 7243 . . . 4 (𝑦 ∈ (𝑅1‘dom (𝐺𝐶)) ↦ if(dom (𝐺𝐶) = dom (𝐺𝐶), ((suc ran (𝐺𝐶) ·o (rank‘𝑦)) +o (((𝐺𝐶)‘suc (rank‘𝑦))‘𝑦)), (𝐹‘((OrdIso( E , ran ((𝐺𝐶)‘ dom (𝐺𝐶))) ∘ ((𝐺𝐶)‘ dom (𝐺𝐶))) “ 𝑦)))) ∈ V
4036, 37, 39fvmpt 7016 . . 3 ((𝐺𝐶) ∈ V → ((𝑥 ∈ V ↦ (𝑦 ∈ (𝑅1‘dom 𝑥) ↦ if(dom 𝑥 = dom 𝑥, ((suc ran ran 𝑥 ·o (rank‘𝑦)) +o ((𝑥‘suc (rank‘𝑦))‘𝑦)), (𝐹‘((OrdIso( E , ran (𝑥 dom 𝑥)) ∘ (𝑥 dom 𝑥)) “ 𝑦)))))‘(𝐺𝐶)) = (𝑦 ∈ (𝑅1‘dom (𝐺𝐶)) ↦ if(dom (𝐺𝐶) = dom (𝐺𝐶), ((suc ran (𝐺𝐶) ·o (rank‘𝑦)) +o (((𝐺𝐶)‘suc (rank‘𝑦))‘𝑦)), (𝐹‘((OrdIso( E , ran ((𝐺𝐶)‘ dom (𝐺𝐶))) ∘ ((𝐺𝐶)‘ dom (𝐺𝐶))) “ 𝑦)))))
419, 40syl 17 . 2 (𝜑 → ((𝑥 ∈ V ↦ (𝑦 ∈ (𝑅1‘dom 𝑥) ↦ if(dom 𝑥 = dom 𝑥, ((suc ran ran 𝑥 ·o (rank‘𝑦)) +o ((𝑥‘suc (rank‘𝑦))‘𝑦)), (𝐹‘((OrdIso( E , ran (𝑥 dom 𝑥)) ∘ (𝑥 dom 𝑥)) “ 𝑦)))))‘(𝐺𝐶)) = (𝑦 ∈ (𝑅1‘dom (𝐺𝐶)) ↦ if(dom (𝐺𝐶) = dom (𝐺𝐶), ((suc ran (𝐺𝐶) ·o (rank‘𝑦)) +o (((𝐺𝐶)‘suc (rank‘𝑦))‘𝑦)), (𝐹‘((OrdIso( E , ran ((𝐺𝐶)‘ dom (𝐺𝐶))) ∘ ((𝐺𝐶)‘ dom (𝐺𝐶))) “ 𝑦)))))
42 onss 7804 . . . . . . . 8 (𝐶 ∈ On → 𝐶 ⊆ On)
431, 42syl 17 . . . . . . 7 (𝜑𝐶 ⊆ On)
44 fnssres 6692 . . . . . . 7 ((𝐺 Fn On ∧ 𝐶 ⊆ On) → (𝐺𝐶) Fn 𝐶)
455, 43, 44sylancr 587 . . . . . 6 (𝜑 → (𝐺𝐶) Fn 𝐶)
4645fndmd 6674 . . . . 5 (𝜑 → dom (𝐺𝐶) = 𝐶)
4746fveq2d 6911 . . . 4 (𝜑 → (𝑅1‘dom (𝐺𝐶)) = (𝑅1𝐶))
4847mpteq1d 5243 . . 3 (𝜑 → (𝑦 ∈ (𝑅1‘dom (𝐺𝐶)) ↦ if(dom (𝐺𝐶) = dom (𝐺𝐶), ((suc ran (𝐺𝐶) ·o (rank‘𝑦)) +o (((𝐺𝐶)‘suc (rank‘𝑦))‘𝑦)), (𝐹‘((OrdIso( E , ran ((𝐺𝐶)‘ dom (𝐺𝐶))) ∘ ((𝐺𝐶)‘ dom (𝐺𝐶))) “ 𝑦)))) = (𝑦 ∈ (𝑅1𝐶) ↦ if(dom (𝐺𝐶) = dom (𝐺𝐶), ((suc ran (𝐺𝐶) ·o (rank‘𝑦)) +o (((𝐺𝐶)‘suc (rank‘𝑦))‘𝑦)), (𝐹‘((OrdIso( E , ran ((𝐺𝐶)‘ dom (𝐺𝐶))) ∘ ((𝐺𝐶)‘ dom (𝐺𝐶))) “ 𝑦)))))
4946adantr 480 . . . . . . 7 ((𝜑𝑦 ∈ (𝑅1𝐶)) → dom (𝐺𝐶) = 𝐶)
5049unieqd 4925 . . . . . . 7 ((𝜑𝑦 ∈ (𝑅1𝐶)) → dom (𝐺𝐶) = 𝐶)
5149, 50eqeq12d 2751 . . . . . 6 ((𝜑𝑦 ∈ (𝑅1𝐶)) → (dom (𝐺𝐶) = dom (𝐺𝐶) ↔ 𝐶 = 𝐶))
5251ifbid 4554 . . . . 5 ((𝜑𝑦 ∈ (𝑅1𝐶)) → if(dom (𝐺𝐶) = dom (𝐺𝐶), ((suc ran (𝐺𝐶) ·o (rank‘𝑦)) +o (((𝐺𝐶)‘suc (rank‘𝑦))‘𝑦)), (𝐹‘((OrdIso( E , ran ((𝐺𝐶)‘ dom (𝐺𝐶))) ∘ ((𝐺𝐶)‘ dom (𝐺𝐶))) “ 𝑦))) = if(𝐶 = 𝐶, ((suc ran (𝐺𝐶) ·o (rank‘𝑦)) +o (((𝐺𝐶)‘suc (rank‘𝑦))‘𝑦)), (𝐹‘((OrdIso( E , ran ((𝐺𝐶)‘ dom (𝐺𝐶))) ∘ ((𝐺𝐶)‘ dom (𝐺𝐶))) “ 𝑦))))
53 rankr1ai 9836 . . . . . . . . . . . 12 (𝑦 ∈ (𝑅1𝐶) → (rank‘𝑦) ∈ 𝐶)
5453ad2antlr 727 . . . . . . . . . . 11 (((𝜑𝑦 ∈ (𝑅1𝐶)) ∧ 𝐶 = 𝐶) → (rank‘𝑦) ∈ 𝐶)
55 simpr 484 . . . . . . . . . . 11 (((𝜑𝑦 ∈ (𝑅1𝐶)) ∧ 𝐶 = 𝐶) → 𝐶 = 𝐶)
5654, 55eleqtrd 2841 . . . . . . . . . 10 (((𝜑𝑦 ∈ (𝑅1𝐶)) ∧ 𝐶 = 𝐶) → (rank‘𝑦) ∈ 𝐶)
57 eloni 6396 . . . . . . . . . . . 12 (𝐶 ∈ On → Ord 𝐶)
58 ordsucuniel 7844 . . . . . . . . . . . 12 (Ord 𝐶 → ((rank‘𝑦) ∈ 𝐶 ↔ suc (rank‘𝑦) ∈ 𝐶))
591, 57, 583syl 18 . . . . . . . . . . 11 (𝜑 → ((rank‘𝑦) ∈ 𝐶 ↔ suc (rank‘𝑦) ∈ 𝐶))
6059ad2antrr 726 . . . . . . . . . 10 (((𝜑𝑦 ∈ (𝑅1𝐶)) ∧ 𝐶 = 𝐶) → ((rank‘𝑦) ∈ 𝐶 ↔ suc (rank‘𝑦) ∈ 𝐶))
6156, 60mpbid 232 . . . . . . . . 9 (((𝜑𝑦 ∈ (𝑅1𝐶)) ∧ 𝐶 = 𝐶) → suc (rank‘𝑦) ∈ 𝐶)
6261fvresd 6927 . . . . . . . 8 (((𝜑𝑦 ∈ (𝑅1𝐶)) ∧ 𝐶 = 𝐶) → ((𝐺𝐶)‘suc (rank‘𝑦)) = (𝐺‘suc (rank‘𝑦)))
6362fveq1d 6909 . . . . . . 7 (((𝜑𝑦 ∈ (𝑅1𝐶)) ∧ 𝐶 = 𝐶) → (((𝐺𝐶)‘suc (rank‘𝑦))‘𝑦) = ((𝐺‘suc (rank‘𝑦))‘𝑦))
6463oveq2d 7447 . . . . . 6 (((𝜑𝑦 ∈ (𝑅1𝐶)) ∧ 𝐶 = 𝐶) → ((suc ran (𝐺𝐶) ·o (rank‘𝑦)) +o (((𝐺𝐶)‘suc (rank‘𝑦))‘𝑦)) = ((suc ran (𝐺𝐶) ·o (rank‘𝑦)) +o ((𝐺‘suc (rank‘𝑦))‘𝑦)))
6564ifeq1da 4562 . . . . 5 ((𝜑𝑦 ∈ (𝑅1𝐶)) → if(𝐶 = 𝐶, ((suc ran (𝐺𝐶) ·o (rank‘𝑦)) +o (((𝐺𝐶)‘suc (rank‘𝑦))‘𝑦)), (𝐹‘((OrdIso( E , ran ((𝐺𝐶)‘ dom (𝐺𝐶))) ∘ ((𝐺𝐶)‘ dom (𝐺𝐶))) “ 𝑦))) = if(𝐶 = 𝐶, ((suc ran (𝐺𝐶) ·o (rank‘𝑦)) +o ((𝐺‘suc (rank‘𝑦))‘𝑦)), (𝐹‘((OrdIso( E , ran ((𝐺𝐶)‘ dom (𝐺𝐶))) ∘ ((𝐺𝐶)‘ dom (𝐺𝐶))) “ 𝑦))))
6650adantr 480 . . . . . . . . . . . . . . 15 (((𝜑𝑦 ∈ (𝑅1𝐶)) ∧ ¬ 𝐶 = 𝐶) → dom (𝐺𝐶) = 𝐶)
6766fveq2d 6911 . . . . . . . . . . . . . 14 (((𝜑𝑦 ∈ (𝑅1𝐶)) ∧ ¬ 𝐶 = 𝐶) → ((𝐺𝐶)‘ dom (𝐺𝐶)) = ((𝐺𝐶)‘ 𝐶))
681ad2antrr 726 . . . . . . . . . . . . . . . . 17 (((𝜑𝑦 ∈ (𝑅1𝐶)) ∧ ¬ 𝐶 = 𝐶) → 𝐶 ∈ On)
69 uniexg 7759 . . . . . . . . . . . . . . . . 17 (𝐶 ∈ On → 𝐶 ∈ V)
70 sucidg 6467 . . . . . . . . . . . . . . . . 17 ( 𝐶 ∈ V → 𝐶 ∈ suc 𝐶)
7168, 69, 703syl 18 . . . . . . . . . . . . . . . 16 (((𝜑𝑦 ∈ (𝑅1𝐶)) ∧ ¬ 𝐶 = 𝐶) → 𝐶 ∈ suc 𝐶)
721adantr 480 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑦 ∈ (𝑅1𝐶)) → 𝐶 ∈ On)
73 orduniorsuc 7850 . . . . . . . . . . . . . . . . . 18 (Ord 𝐶 → (𝐶 = 𝐶𝐶 = suc 𝐶))
7472, 57, 733syl 18 . . . . . . . . . . . . . . . . 17 ((𝜑𝑦 ∈ (𝑅1𝐶)) → (𝐶 = 𝐶𝐶 = suc 𝐶))
7574orcanai 1004 . . . . . . . . . . . . . . . 16 (((𝜑𝑦 ∈ (𝑅1𝐶)) ∧ ¬ 𝐶 = 𝐶) → 𝐶 = suc 𝐶)
7671, 75eleqtrrd 2842 . . . . . . . . . . . . . . 15 (((𝜑𝑦 ∈ (𝑅1𝐶)) ∧ ¬ 𝐶 = 𝐶) → 𝐶𝐶)
7776fvresd 6927 . . . . . . . . . . . . . 14 (((𝜑𝑦 ∈ (𝑅1𝐶)) ∧ ¬ 𝐶 = 𝐶) → ((𝐺𝐶)‘ 𝐶) = (𝐺 𝐶))
7867, 77eqtrd 2775 . . . . . . . . . . . . 13 (((𝜑𝑦 ∈ (𝑅1𝐶)) ∧ ¬ 𝐶 = 𝐶) → ((𝐺𝐶)‘ dom (𝐺𝐶)) = (𝐺 𝐶))
7978rneqd 5952 . . . . . . . . . . . 12 (((𝜑𝑦 ∈ (𝑅1𝐶)) ∧ ¬ 𝐶 = 𝐶) → ran ((𝐺𝐶)‘ dom (𝐺𝐶)) = ran (𝐺 𝐶))
80 oieq2 9551 . . . . . . . . . . . 12 (ran ((𝐺𝐶)‘ dom (𝐺𝐶)) = ran (𝐺 𝐶) → OrdIso( E , ran ((𝐺𝐶)‘ dom (𝐺𝐶))) = OrdIso( E , ran (𝐺 𝐶)))
8179, 80syl 17 . . . . . . . . . . 11 (((𝜑𝑦 ∈ (𝑅1𝐶)) ∧ ¬ 𝐶 = 𝐶) → OrdIso( E , ran ((𝐺𝐶)‘ dom (𝐺𝐶))) = OrdIso( E , ran (𝐺 𝐶)))
8281cnveqd 5889 . . . . . . . . . 10 (((𝜑𝑦 ∈ (𝑅1𝐶)) ∧ ¬ 𝐶 = 𝐶) → OrdIso( E , ran ((𝐺𝐶)‘ dom (𝐺𝐶))) = OrdIso( E , ran (𝐺 𝐶)))
8382, 78coeq12d 5878 . . . . . . . . 9 (((𝜑𝑦 ∈ (𝑅1𝐶)) ∧ ¬ 𝐶 = 𝐶) → (OrdIso( E , ran ((𝐺𝐶)‘ dom (𝐺𝐶))) ∘ ((𝐺𝐶)‘ dom (𝐺𝐶))) = (OrdIso( E , ran (𝐺 𝐶)) ∘ (𝐺 𝐶)))
84 dfac12.h . . . . . . . . 9 𝐻 = (OrdIso( E , ran (𝐺 𝐶)) ∘ (𝐺 𝐶))
8583, 84eqtr4di 2793 . . . . . . . 8 (((𝜑𝑦 ∈ (𝑅1𝐶)) ∧ ¬ 𝐶 = 𝐶) → (OrdIso( E , ran ((𝐺𝐶)‘ dom (𝐺𝐶))) ∘ ((𝐺𝐶)‘ dom (𝐺𝐶))) = 𝐻)
8685imaeq1d 6079 . . . . . . 7 (((𝜑𝑦 ∈ (𝑅1𝐶)) ∧ ¬ 𝐶 = 𝐶) → ((OrdIso( E , ran ((𝐺𝐶)‘ dom (𝐺𝐶))) ∘ ((𝐺𝐶)‘ dom (𝐺𝐶))) “ 𝑦) = (𝐻𝑦))
8786fveq2d 6911 . . . . . 6 (((𝜑𝑦 ∈ (𝑅1𝐶)) ∧ ¬ 𝐶 = 𝐶) → (𝐹‘((OrdIso( E , ran ((𝐺𝐶)‘ dom (𝐺𝐶))) ∘ ((𝐺𝐶)‘ dom (𝐺𝐶))) “ 𝑦)) = (𝐹‘(𝐻𝑦)))
8887ifeq2da 4563 . . . . 5 ((𝜑𝑦 ∈ (𝑅1𝐶)) → if(𝐶 = 𝐶, ((suc ran (𝐺𝐶) ·o (rank‘𝑦)) +o ((𝐺‘suc (rank‘𝑦))‘𝑦)), (𝐹‘((OrdIso( E , ran ((𝐺𝐶)‘ dom (𝐺𝐶))) ∘ ((𝐺𝐶)‘ dom (𝐺𝐶))) “ 𝑦))) = if(𝐶 = 𝐶, ((suc ran (𝐺𝐶) ·o (rank‘𝑦)) +o ((𝐺‘suc (rank‘𝑦))‘𝑦)), (𝐹‘(𝐻𝑦))))
8952, 65, 883eqtrd 2779 . . . 4 ((𝜑𝑦 ∈ (𝑅1𝐶)) → if(dom (𝐺𝐶) = dom (𝐺𝐶), ((suc ran (𝐺𝐶) ·o (rank‘𝑦)) +o (((𝐺𝐶)‘suc (rank‘𝑦))‘𝑦)), (𝐹‘((OrdIso( E , ran ((𝐺𝐶)‘ dom (𝐺𝐶))) ∘ ((𝐺𝐶)‘ dom (𝐺𝐶))) “ 𝑦))) = if(𝐶 = 𝐶, ((suc ran (𝐺𝐶) ·o (rank‘𝑦)) +o ((𝐺‘suc (rank‘𝑦))‘𝑦)), (𝐹‘(𝐻𝑦))))
9089mpteq2dva 5248 . . 3 (𝜑 → (𝑦 ∈ (𝑅1𝐶) ↦ if(dom (𝐺𝐶) = dom (𝐺𝐶), ((suc ran (𝐺𝐶) ·o (rank‘𝑦)) +o (((𝐺𝐶)‘suc (rank‘𝑦))‘𝑦)), (𝐹‘((OrdIso( E , ran ((𝐺𝐶)‘ dom (𝐺𝐶))) ∘ ((𝐺𝐶)‘ dom (𝐺𝐶))) “ 𝑦)))) = (𝑦 ∈ (𝑅1𝐶) ↦ if(𝐶 = 𝐶, ((suc ran (𝐺𝐶) ·o (rank‘𝑦)) +o ((𝐺‘suc (rank‘𝑦))‘𝑦)), (𝐹‘(𝐻𝑦)))))
9148, 90eqtrd 2775 . 2 (𝜑 → (𝑦 ∈ (𝑅1‘dom (𝐺𝐶)) ↦ if(dom (𝐺𝐶) = dom (𝐺𝐶), ((suc ran (𝐺𝐶) ·o (rank‘𝑦)) +o (((𝐺𝐶)‘suc (rank‘𝑦))‘𝑦)), (𝐹‘((OrdIso( E , ran ((𝐺𝐶)‘ dom (𝐺𝐶))) ∘ ((𝐺𝐶)‘ dom (𝐺𝐶))) “ 𝑦)))) = (𝑦 ∈ (𝑅1𝐶) ↦ if(𝐶 = 𝐶, ((suc ran (𝐺𝐶) ·o (rank‘𝑦)) +o ((𝐺‘suc (rank‘𝑦))‘𝑦)), (𝐹‘(𝐻𝑦)))))
924, 41, 913eqtrd 2779 1 (𝜑 → (𝐺𝐶) = (𝑦 ∈ (𝑅1𝐶) ↦ if(𝐶 = 𝐶, ((suc ran (𝐺𝐶) ·o (rank‘𝑦)) +o ((𝐺‘suc (rank‘𝑦))‘𝑦)), (𝐹‘(𝐻𝑦)))))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 206  wa 395  wo 847   = wceq 1537  wcel 2106  Vcvv 3478  wss 3963  ifcif 4531  𝒫 cpw 4605   cuni 4912  cmpt 5231   E cep 5588  ccnv 5688  dom cdm 5689  ran crn 5690  cres 5691  cima 5692  ccom 5693  Ord word 6385  Oncon0 6386  suc csuc 6388  Fun wfun 6557   Fn wfn 6558  1-1wf1 6560  cfv 6563  (class class class)co 7431  recscrecs 8409   +o coa 8502   ·o comu 8503  OrdIsocoi 9547  harchar 9594  𝑅1cr1 9800  rankcrnk 9801
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1792  ax-4 1806  ax-5 1908  ax-6 1965  ax-7 2005  ax-8 2108  ax-9 2116  ax-10 2139  ax-11 2155  ax-12 2175  ax-ext 2706  ax-rep 5285  ax-sep 5302  ax-nul 5312  ax-pow 5371  ax-pr 5438  ax-un 7754
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1540  df-fal 1550  df-ex 1777  df-nf 1781  df-sb 2063  df-mo 2538  df-eu 2567  df-clab 2713  df-cleq 2727  df-clel 2814  df-nfc 2890  df-ne 2939  df-ral 3060  df-rex 3069  df-reu 3379  df-rab 3434  df-v 3480  df-sbc 3792  df-csb 3909  df-dif 3966  df-un 3968  df-in 3970  df-ss 3980  df-pss 3983  df-nul 4340  df-if 4532  df-pw 4607  df-sn 4632  df-pr 4634  df-op 4638  df-uni 4913  df-int 4952  df-iun 4998  df-br 5149  df-opab 5211  df-mpt 5232  df-tr 5266  df-id 5583  df-eprel 5589  df-po 5597  df-so 5598  df-fr 5641  df-se 5642  df-we 5643  df-xp 5695  df-rel 5696  df-cnv 5697  df-co 5698  df-dm 5699  df-rn 5700  df-res 5701  df-ima 5702  df-pred 6323  df-ord 6389  df-on 6390  df-lim 6391  df-suc 6392  df-iota 6516  df-fun 6565  df-fn 6566  df-f 6567  df-f1 6568  df-fo 6569  df-f1o 6570  df-fv 6571  df-riota 7388  df-ov 7434  df-om 7888  df-2nd 8014  df-frecs 8305  df-wrecs 8336  df-recs 8410  df-rdg 8449  df-oi 9548  df-r1 9802  df-rank 9803
This theorem is referenced by:  dfac12lem2  10183
  Copyright terms: Public domain W3C validator