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

Theorem dfac12lem1 10184
Description: Lemma for dfac12 10190. (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 8438 . . 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 8437 . . . . 5 𝐺 Fn On
6 fnfun 6668 . . . . 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 5914 . . . . . 6 (𝑥 = (𝐺𝐶) → dom 𝑥 = dom (𝐺𝐶))
1110fveq2d 6910 . . . . 5 (𝑥 = (𝐺𝐶) → (𝑅1‘dom 𝑥) = (𝑅1‘dom (𝐺𝐶)))
1210unieqd 4920 . . . . . . 7 (𝑥 = (𝐺𝐶) → dom 𝑥 = dom (𝐺𝐶))
1310, 12eqeq12d 2753 . . . . . 6 (𝑥 = (𝐺𝐶) → (dom 𝑥 = dom 𝑥 ↔ dom (𝐺𝐶) = dom (𝐺𝐶)))
14 rneq 5947 . . . . . . . . . . . . 13 (𝑥 = (𝐺𝐶) → ran 𝑥 = ran (𝐺𝐶))
15 df-ima 5698 . . . . . . . . . . . . 13 (𝐺𝐶) = ran (𝐺𝐶)
1614, 15eqtr4di 2795 . . . . . . . . . . . 12 (𝑥 = (𝐺𝐶) → ran 𝑥 = (𝐺𝐶))
1716unieqd 4920 . . . . . . . . . . 11 (𝑥 = (𝐺𝐶) → ran 𝑥 = (𝐺𝐶))
1817rneqd 5949 . . . . . . . . . 10 (𝑥 = (𝐺𝐶) → ran ran 𝑥 = ran (𝐺𝐶))
1918unieqd 4920 . . . . . . . . 9 (𝑥 = (𝐺𝐶) → ran ran 𝑥 = ran (𝐺𝐶))
20 suceq 6450 . . . . . . . . 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 6905 . . . . . . . 8 (𝑥 = (𝐺𝐶) → (𝑥‘suc (rank‘𝑦)) = ((𝐺𝐶)‘suc (rank‘𝑦)))
2423fveq1d 6908 . . . . . . 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 6913 . . . . . . . . . . . 12 (𝑥 = (𝐺𝐶) → (𝑥 dom 𝑥) = ((𝐺𝐶)‘ dom (𝐺𝐶)))
2827rneqd 5949 . . . . . . . . . . 11 (𝑥 = (𝐺𝐶) → ran (𝑥 dom 𝑥) = ran ((𝐺𝐶)‘ dom (𝐺𝐶)))
29 oieq2 9553 . . . . . . . . . . 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 5886 . . . . . . . . 9 (𝑥 = (𝐺𝐶) → OrdIso( E , ran (𝑥 dom 𝑥)) = OrdIso( E , ran ((𝐺𝐶)‘ dom (𝐺𝐶))))
3231, 27coeq12d 5875 . . . . . . . 8 (𝑥 = (𝐺𝐶) → (OrdIso( E , ran (𝑥 dom 𝑥)) ∘ (𝑥 dom 𝑥)) = (OrdIso( E , ran ((𝐺𝐶)‘ dom (𝐺𝐶))) ∘ ((𝐺𝐶)‘ dom (𝐺𝐶))))
3332imaeq1d 6077 . . . . . . 7 (𝑥 = (𝐺𝐶) → ((OrdIso( E , ran (𝑥 dom 𝑥)) ∘ (𝑥 dom 𝑥)) “ 𝑦) = ((OrdIso( E , ran ((𝐺𝐶)‘ dom (𝐺𝐶))) ∘ ((𝐺𝐶)‘ dom (𝐺𝐶))) “ 𝑦))
3433fveq2d 6910 . . . . . 6 (𝑥 = (𝐺𝐶) → (𝐹‘((OrdIso( E , ran (𝑥 dom 𝑥)) ∘ (𝑥 dom 𝑥)) “ 𝑦)) = (𝐹‘((OrdIso( E , ran ((𝐺𝐶)‘ dom (𝐺𝐶))) ∘ ((𝐺𝐶)‘ dom (𝐺𝐶))) “ 𝑦)))
3513, 25, 34ifbieq12d 4554 . . . . 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 5233 . . . 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 2737 . . . 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 6919 . . . . 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 7805 . . . . . . . 8 (𝐶 ∈ On → 𝐶 ⊆ On)
431, 42syl 17 . . . . . . 7 (𝜑𝐶 ⊆ On)
44 fnssres 6691 . . . . . . 7 ((𝐺 Fn On ∧ 𝐶 ⊆ On) → (𝐺𝐶) Fn 𝐶)
455, 43, 44sylancr 587 . . . . . 6 (𝜑 → (𝐺𝐶) Fn 𝐶)
4645fndmd 6673 . . . . 5 (𝜑 → dom (𝐺𝐶) = 𝐶)
4746fveq2d 6910 . . . 4 (𝜑 → (𝑅1‘dom (𝐺𝐶)) = (𝑅1𝐶))
4847mpteq1d 5237 . . 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 4920 . . . . . . 7 ((𝜑𝑦 ∈ (𝑅1𝐶)) → dom (𝐺𝐶) = 𝐶)
5149, 50eqeq12d 2753 . . . . . 6 ((𝜑𝑦 ∈ (𝑅1𝐶)) → (dom (𝐺𝐶) = dom (𝐺𝐶) ↔ 𝐶 = 𝐶))
5251ifbid 4549 . . . . 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 9838 . . . . . . . . . . . 12 (𝑦 ∈ (𝑅1𝐶) → (rank‘𝑦) ∈ 𝐶)
5453ad2antlr 727 . . . . . . . . . . 11 (((𝜑𝑦 ∈ (𝑅1𝐶)) ∧ 𝐶 = 𝐶) → (rank‘𝑦) ∈ 𝐶)
55 simpr 484 . . . . . . . . . . 11 (((𝜑𝑦 ∈ (𝑅1𝐶)) ∧ 𝐶 = 𝐶) → 𝐶 = 𝐶)
5654, 55eleqtrd 2843 . . . . . . . . . 10 (((𝜑𝑦 ∈ (𝑅1𝐶)) ∧ 𝐶 = 𝐶) → (rank‘𝑦) ∈ 𝐶)
57 eloni 6394 . . . . . . . . . . . 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 6926 . . . . . . . 8 (((𝜑𝑦 ∈ (𝑅1𝐶)) ∧ 𝐶 = 𝐶) → ((𝐺𝐶)‘suc (rank‘𝑦)) = (𝐺‘suc (rank‘𝑦)))
6362fveq1d 6908 . . . . . . 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 4557 . . . . 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 6910 . . . . . . . . . . . . . 14 (((𝜑𝑦 ∈ (𝑅1𝐶)) ∧ ¬ 𝐶 = 𝐶) → ((𝐺𝐶)‘ dom (𝐺𝐶)) = ((𝐺𝐶)‘ 𝐶))
681ad2antrr 726 . . . . . . . . . . . . . . . . 17 (((𝜑𝑦 ∈ (𝑅1𝐶)) ∧ ¬ 𝐶 = 𝐶) → 𝐶 ∈ On)
69 uniexg 7760 . . . . . . . . . . . . . . . . 17 (𝐶 ∈ On → 𝐶 ∈ V)
70 sucidg 6465 . . . . . . . . . . . . . . . . 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 1005 . . . . . . . . . . . . . . . 16 (((𝜑𝑦 ∈ (𝑅1𝐶)) ∧ ¬ 𝐶 = 𝐶) → 𝐶 = suc 𝐶)
7671, 75eleqtrrd 2844 . . . . . . . . . . . . . . 15 (((𝜑𝑦 ∈ (𝑅1𝐶)) ∧ ¬ 𝐶 = 𝐶) → 𝐶𝐶)
7776fvresd 6926 . . . . . . . . . . . . . 14 (((𝜑𝑦 ∈ (𝑅1𝐶)) ∧ ¬ 𝐶 = 𝐶) → ((𝐺𝐶)‘ 𝐶) = (𝐺 𝐶))
7867, 77eqtrd 2777 . . . . . . . . . . . . 13 (((𝜑𝑦 ∈ (𝑅1𝐶)) ∧ ¬ 𝐶 = 𝐶) → ((𝐺𝐶)‘ dom (𝐺𝐶)) = (𝐺 𝐶))
7978rneqd 5949 . . . . . . . . . . . 12 (((𝜑𝑦 ∈ (𝑅1𝐶)) ∧ ¬ 𝐶 = 𝐶) → ran ((𝐺𝐶)‘ dom (𝐺𝐶)) = ran (𝐺 𝐶))
80 oieq2 9553 . . . . . . . . . . . 12 (ran ((𝐺𝐶)‘ dom (𝐺𝐶)) = ran (𝐺 𝐶) → OrdIso( E , ran ((𝐺𝐶)‘ dom (𝐺𝐶))) = OrdIso( E , ran (𝐺 𝐶)))
8179, 80syl 17 . . . . . . . . . . 11 (((𝜑𝑦 ∈ (𝑅1𝐶)) ∧ ¬ 𝐶 = 𝐶) → OrdIso( E , ran ((𝐺𝐶)‘ dom (𝐺𝐶))) = OrdIso( E , ran (𝐺 𝐶)))
8281cnveqd 5886 . . . . . . . . . 10 (((𝜑𝑦 ∈ (𝑅1𝐶)) ∧ ¬ 𝐶 = 𝐶) → OrdIso( E , ran ((𝐺𝐶)‘ dom (𝐺𝐶))) = OrdIso( E , ran (𝐺 𝐶)))
8382, 78coeq12d 5875 . . . . . . . . 9 (((𝜑𝑦 ∈ (𝑅1𝐶)) ∧ ¬ 𝐶 = 𝐶) → (OrdIso( E , ran ((𝐺𝐶)‘ dom (𝐺𝐶))) ∘ ((𝐺𝐶)‘ dom (𝐺𝐶))) = (OrdIso( E , ran (𝐺 𝐶)) ∘ (𝐺 𝐶)))
84 dfac12.h . . . . . . . . 9 𝐻 = (OrdIso( E , ran (𝐺 𝐶)) ∘ (𝐺 𝐶))
8583, 84eqtr4di 2795 . . . . . . . 8 (((𝜑𝑦 ∈ (𝑅1𝐶)) ∧ ¬ 𝐶 = 𝐶) → (OrdIso( E , ran ((𝐺𝐶)‘ dom (𝐺𝐶))) ∘ ((𝐺𝐶)‘ dom (𝐺𝐶))) = 𝐻)
8685imaeq1d 6077 . . . . . . 7 (((𝜑𝑦 ∈ (𝑅1𝐶)) ∧ ¬ 𝐶 = 𝐶) → ((OrdIso( E , ran ((𝐺𝐶)‘ dom (𝐺𝐶))) ∘ ((𝐺𝐶)‘ dom (𝐺𝐶))) “ 𝑦) = (𝐻𝑦))
8786fveq2d 6910 . . . . . 6 (((𝜑𝑦 ∈ (𝑅1𝐶)) ∧ ¬ 𝐶 = 𝐶) → (𝐹‘((OrdIso( E , ran ((𝐺𝐶)‘ dom (𝐺𝐶))) ∘ ((𝐺𝐶)‘ dom (𝐺𝐶))) “ 𝑦)) = (𝐹‘(𝐻𝑦)))
8887ifeq2da 4558 . . . . 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 2781 . . . 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 5242 . . 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 2777 . 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 2781 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 848   = wceq 1540  wcel 2108  Vcvv 3480  wss 3951  ifcif 4525  𝒫 cpw 4600   cuni 4907  cmpt 5225   E cep 5583  ccnv 5684  dom cdm 5685  ran crn 5686  cres 5687  cima 5688  ccom 5689  Ord word 6383  Oncon0 6384  suc csuc 6386  Fun wfun 6555   Fn wfn 6556  1-1wf1 6558  cfv 6561  (class class class)co 7431  recscrecs 8410   +o coa 8503   ·o comu 8504  OrdIsocoi 9549  harchar 9596  𝑅1cr1 9802  rankcrnk 9803
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1967  ax-7 2007  ax-8 2110  ax-9 2118  ax-10 2141  ax-11 2157  ax-12 2177  ax-ext 2708  ax-rep 5279  ax-sep 5296  ax-nul 5306  ax-pow 5365  ax-pr 5432  ax-un 7755
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3or 1088  df-3an 1089  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2065  df-mo 2540  df-eu 2569  df-clab 2715  df-cleq 2729  df-clel 2816  df-nfc 2892  df-ne 2941  df-ral 3062  df-rex 3071  df-reu 3381  df-rab 3437  df-v 3482  df-sbc 3789  df-csb 3900  df-dif 3954  df-un 3956  df-in 3958  df-ss 3968  df-pss 3971  df-nul 4334  df-if 4526  df-pw 4602  df-sn 4627  df-pr 4629  df-op 4633  df-uni 4908  df-int 4947  df-iun 4993  df-br 5144  df-opab 5206  df-mpt 5226  df-tr 5260  df-id 5578  df-eprel 5584  df-po 5592  df-so 5593  df-fr 5637  df-se 5638  df-we 5639  df-xp 5691  df-rel 5692  df-cnv 5693  df-co 5694  df-dm 5695  df-rn 5696  df-res 5697  df-ima 5698  df-pred 6321  df-ord 6387  df-on 6388  df-lim 6389  df-suc 6390  df-iota 6514  df-fun 6563  df-fn 6564  df-f 6565  df-f1 6566  df-fo 6567  df-f1o 6568  df-fv 6569  df-riota 7388  df-ov 7434  df-om 7888  df-2nd 8015  df-frecs 8306  df-wrecs 8337  df-recs 8411  df-rdg 8450  df-oi 9550  df-r1 9804  df-rank 9805
This theorem is referenced by:  dfac12lem2  10185
  Copyright terms: Public domain W3C validator