Users' Mathboxes Mathbox for Stefan O'Rear < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  aomclem6 Structured version   Visualization version   GIF version

Theorem aomclem6 37106
Description: Lemma for dfac11 37109. Transfinite induction, close over 𝑧. (Contributed by Stefan O'Rear, 20-Jan-2015.)
Hypotheses
Ref Expression
aomclem6.b 𝐵 = {⟨𝑎, 𝑏⟩ ∣ ∃𝑐 ∈ (𝑅1 dom 𝑧)((𝑐𝑏 ∧ ¬ 𝑐𝑎) ∧ ∀𝑑 ∈ (𝑅1 dom 𝑧)(𝑑(𝑧 dom 𝑧)𝑐 → (𝑑𝑎𝑑𝑏)))}
aomclem6.c 𝐶 = (𝑎 ∈ V ↦ sup((𝑦𝑎), (𝑅1‘dom 𝑧), 𝐵))
aomclem6.d 𝐷 = recs((𝑎 ∈ V ↦ (𝐶‘((𝑅1‘dom 𝑧) ∖ ran 𝑎))))
aomclem6.e 𝐸 = {⟨𝑎, 𝑏⟩ ∣ (𝐷 “ {𝑎}) ∈ (𝐷 “ {𝑏})}
aomclem6.f 𝐹 = {⟨𝑎, 𝑏⟩ ∣ ((rank‘𝑎) E (rank‘𝑏) ∨ ((rank‘𝑎) = (rank‘𝑏) ∧ 𝑎(𝑧‘suc (rank‘𝑎))𝑏))}
aomclem6.g 𝐺 = (if(dom 𝑧 = dom 𝑧, 𝐹, 𝐸) ∩ ((𝑅1‘dom 𝑧) × (𝑅1‘dom 𝑧)))
aomclem6.h 𝐻 = recs((𝑧 ∈ V ↦ 𝐺))
aomclem6.a (𝜑𝐴 ∈ On)
aomclem6.y (𝜑 → ∀𝑎 ∈ 𝒫 (𝑅1𝐴)(𝑎 ≠ ∅ → (𝑦𝑎) ∈ ((𝒫 𝑎 ∩ Fin) ∖ {∅})))
Assertion
Ref Expression
aomclem6 (𝜑 → (𝐻𝐴) We (𝑅1𝐴))
Distinct variable groups:   𝑦,𝑧,𝑎,𝑏,𝑐,𝑑   𝜑,𝑎,𝑏,𝑐,𝑑,𝑧   𝐶,𝑎,𝑏,𝑐,𝑑   𝐷,𝑎,𝑏,𝑐,𝑑   𝐴,𝑎,𝑏,𝑐,𝑑,𝑧   𝐻,𝑎,𝑏,𝑐,𝑑,𝑧   𝐺,𝑑
Allowed substitution hints:   𝜑(𝑦)   𝐴(𝑦)   𝐵(𝑦,𝑧,𝑎,𝑏,𝑐,𝑑)   𝐶(𝑦,𝑧)   𝐷(𝑦,𝑧)   𝐸(𝑦,𝑧,𝑎,𝑏,𝑐,𝑑)   𝐹(𝑦,𝑧,𝑎,𝑏,𝑐,𝑑)   𝐺(𝑦,𝑧,𝑎,𝑏,𝑐)   𝐻(𝑦)

Proof of Theorem aomclem6
StepHypRef Expression
1 ssid 3603 . 2 𝐴𝐴
2 aomclem6.a . . . 4 (𝜑𝐴 ∈ On)
32adantr 481 . . 3 ((𝜑𝐴𝐴) → 𝐴 ∈ On)
4 sseq1 3605 . . . . . 6 (𝑐 = 𝑑 → (𝑐𝐴𝑑𝐴))
54anbi2d 739 . . . . 5 (𝑐 = 𝑑 → ((𝜑𝑐𝐴) ↔ (𝜑𝑑𝐴)))
6 fveq2 6148 . . . . . 6 (𝑐 = 𝑑 → (𝐻𝑐) = (𝐻𝑑))
7 fveq2 6148 . . . . . 6 (𝑐 = 𝑑 → (𝑅1𝑐) = (𝑅1𝑑))
86, 7weeq12d 37087 . . . . 5 (𝑐 = 𝑑 → ((𝐻𝑐) We (𝑅1𝑐) ↔ (𝐻𝑑) We (𝑅1𝑑)))
95, 8imbi12d 334 . . . 4 (𝑐 = 𝑑 → (((𝜑𝑐𝐴) → (𝐻𝑐) We (𝑅1𝑐)) ↔ ((𝜑𝑑𝐴) → (𝐻𝑑) We (𝑅1𝑑))))
10 sseq1 3605 . . . . . 6 (𝑐 = 𝐴 → (𝑐𝐴𝐴𝐴))
1110anbi2d 739 . . . . 5 (𝑐 = 𝐴 → ((𝜑𝑐𝐴) ↔ (𝜑𝐴𝐴)))
12 fveq2 6148 . . . . . 6 (𝑐 = 𝐴 → (𝐻𝑐) = (𝐻𝐴))
13 fveq2 6148 . . . . . 6 (𝑐 = 𝐴 → (𝑅1𝑐) = (𝑅1𝐴))
1412, 13weeq12d 37087 . . . . 5 (𝑐 = 𝐴 → ((𝐻𝑐) We (𝑅1𝑐) ↔ (𝐻𝐴) We (𝑅1𝐴)))
1511, 14imbi12d 334 . . . 4 (𝑐 = 𝐴 → (((𝜑𝑐𝐴) → (𝐻𝑐) We (𝑅1𝑐)) ↔ ((𝜑𝐴𝐴) → (𝐻𝐴) We (𝑅1𝐴))))
16 aomclem6.b . . . . . . . . . . . . . 14 𝐵 = {⟨𝑎, 𝑏⟩ ∣ ∃𝑐 ∈ (𝑅1 dom 𝑧)((𝑐𝑏 ∧ ¬ 𝑐𝑎) ∧ ∀𝑑 ∈ (𝑅1 dom 𝑧)(𝑑(𝑧 dom 𝑧)𝑐 → (𝑑𝑎𝑑𝑏)))}
17 aomclem6.c . . . . . . . . . . . . . 14 𝐶 = (𝑎 ∈ V ↦ sup((𝑦𝑎), (𝑅1‘dom 𝑧), 𝐵))
18 aomclem6.d . . . . . . . . . . . . . 14 𝐷 = recs((𝑎 ∈ V ↦ (𝐶‘((𝑅1‘dom 𝑧) ∖ ran 𝑎))))
19 aomclem6.e . . . . . . . . . . . . . 14 𝐸 = {⟨𝑎, 𝑏⟩ ∣ (𝐷 “ {𝑎}) ∈ (𝐷 “ {𝑏})}
20 aomclem6.f . . . . . . . . . . . . . 14 𝐹 = {⟨𝑎, 𝑏⟩ ∣ ((rank‘𝑎) E (rank‘𝑏) ∨ ((rank‘𝑎) = (rank‘𝑏) ∧ 𝑎(𝑧‘suc (rank‘𝑎))𝑏))}
21 aomclem6.g . . . . . . . . . . . . . 14 𝐺 = (if(dom 𝑧 = dom 𝑧, 𝐹, 𝐸) ∩ ((𝑅1‘dom 𝑧) × (𝑅1‘dom 𝑧)))
22 dmeq 5284 . . . . . . . . . . . . . . . . 17 (𝑧 = (𝐻𝑐) → dom 𝑧 = dom (𝐻𝑐))
2322adantl 482 . . . . . . . . . . . . . . . 16 (((𝑐 ∈ On ∧ ∀𝑑𝑐 ((𝜑𝑑𝐴) → (𝐻𝑑) We (𝑅1𝑑)) ∧ (𝜑𝑐𝐴)) ∧ 𝑧 = (𝐻𝑐)) → dom 𝑧 = dom (𝐻𝑐))
24 simpl1 1062 . . . . . . . . . . . . . . . . 17 (((𝑐 ∈ On ∧ ∀𝑑𝑐 ((𝜑𝑑𝐴) → (𝐻𝑑) We (𝑅1𝑑)) ∧ (𝜑𝑐𝐴)) ∧ 𝑧 = (𝐻𝑐)) → 𝑐 ∈ On)
25 onss 6937 . . . . . . . . . . . . . . . . 17 (𝑐 ∈ On → 𝑐 ⊆ On)
26 aomclem6.h . . . . . . . . . . . . . . . . . . 19 𝐻 = recs((𝑧 ∈ V ↦ 𝐺))
2726tfr1 7438 . . . . . . . . . . . . . . . . . 18 𝐻 Fn On
28 fnssres 5962 . . . . . . . . . . . . . . . . . 18 ((𝐻 Fn On ∧ 𝑐 ⊆ On) → (𝐻𝑐) Fn 𝑐)
2927, 28mpan 705 . . . . . . . . . . . . . . . . 17 (𝑐 ⊆ On → (𝐻𝑐) Fn 𝑐)
30 fndm 5948 . . . . . . . . . . . . . . . . 17 ((𝐻𝑐) Fn 𝑐 → dom (𝐻𝑐) = 𝑐)
3124, 25, 29, 304syl 19 . . . . . . . . . . . . . . . 16 (((𝑐 ∈ On ∧ ∀𝑑𝑐 ((𝜑𝑑𝐴) → (𝐻𝑑) We (𝑅1𝑑)) ∧ (𝜑𝑐𝐴)) ∧ 𝑧 = (𝐻𝑐)) → dom (𝐻𝑐) = 𝑐)
3223, 31eqtrd 2655 . . . . . . . . . . . . . . 15 (((𝑐 ∈ On ∧ ∀𝑑𝑐 ((𝜑𝑑𝐴) → (𝐻𝑑) We (𝑅1𝑑)) ∧ (𝜑𝑐𝐴)) ∧ 𝑧 = (𝐻𝑐)) → dom 𝑧 = 𝑐)
3332, 24eqeltrd 2698 . . . . . . . . . . . . . 14 (((𝑐 ∈ On ∧ ∀𝑑𝑐 ((𝜑𝑑𝐴) → (𝐻𝑑) We (𝑅1𝑑)) ∧ (𝜑𝑐𝐴)) ∧ 𝑧 = (𝐻𝑐)) → dom 𝑧 ∈ On)
3432eleq2d 2684 . . . . . . . . . . . . . . . . . 18 (((𝑐 ∈ On ∧ ∀𝑑𝑐 ((𝜑𝑑𝐴) → (𝐻𝑑) We (𝑅1𝑑)) ∧ (𝜑𝑐𝐴)) ∧ 𝑧 = (𝐻𝑐)) → (𝑎 ∈ dom 𝑧𝑎𝑐))
3534biimpa 501 . . . . . . . . . . . . . . . . 17 ((((𝑐 ∈ On ∧ ∀𝑑𝑐 ((𝜑𝑑𝐴) → (𝐻𝑑) We (𝑅1𝑑)) ∧ (𝜑𝑐𝐴)) ∧ 𝑧 = (𝐻𝑐)) ∧ 𝑎 ∈ dom 𝑧) → 𝑎𝑐)
36 simpll2 1099 . . . . . . . . . . . . . . . . 17 ((((𝑐 ∈ On ∧ ∀𝑑𝑐 ((𝜑𝑑𝐴) → (𝐻𝑑) We (𝑅1𝑑)) ∧ (𝜑𝑐𝐴)) ∧ 𝑧 = (𝐻𝑐)) ∧ 𝑎 ∈ dom 𝑧) → ∀𝑑𝑐 ((𝜑𝑑𝐴) → (𝐻𝑑) We (𝑅1𝑑)))
37 simpl3l 1114 . . . . . . . . . . . . . . . . . 18 (((𝑐 ∈ On ∧ ∀𝑑𝑐 ((𝜑𝑑𝐴) → (𝐻𝑑) We (𝑅1𝑑)) ∧ (𝜑𝑐𝐴)) ∧ 𝑧 = (𝐻𝑐)) → 𝜑)
3837adantr 481 . . . . . . . . . . . . . . . . 17 ((((𝑐 ∈ On ∧ ∀𝑑𝑐 ((𝜑𝑑𝐴) → (𝐻𝑑) We (𝑅1𝑑)) ∧ (𝜑𝑐𝐴)) ∧ 𝑧 = (𝐻𝑐)) ∧ 𝑎 ∈ dom 𝑧) → 𝜑)
39 onelss 5725 . . . . . . . . . . . . . . . . . . . 20 (dom 𝑧 ∈ On → (𝑎 ∈ dom 𝑧𝑎 ⊆ dom 𝑧))
4033, 39syl 17 . . . . . . . . . . . . . . . . . . 19 (((𝑐 ∈ On ∧ ∀𝑑𝑐 ((𝜑𝑑𝐴) → (𝐻𝑑) We (𝑅1𝑑)) ∧ (𝜑𝑐𝐴)) ∧ 𝑧 = (𝐻𝑐)) → (𝑎 ∈ dom 𝑧𝑎 ⊆ dom 𝑧))
4140imp 445 . . . . . . . . . . . . . . . . . 18 ((((𝑐 ∈ On ∧ ∀𝑑𝑐 ((𝜑𝑑𝐴) → (𝐻𝑑) We (𝑅1𝑑)) ∧ (𝜑𝑐𝐴)) ∧ 𝑧 = (𝐻𝑐)) ∧ 𝑎 ∈ dom 𝑧) → 𝑎 ⊆ dom 𝑧)
42 simpl3r 1115 . . . . . . . . . . . . . . . . . . . 20 (((𝑐 ∈ On ∧ ∀𝑑𝑐 ((𝜑𝑑𝐴) → (𝐻𝑑) We (𝑅1𝑑)) ∧ (𝜑𝑐𝐴)) ∧ 𝑧 = (𝐻𝑐)) → 𝑐𝐴)
4332, 42eqsstrd 3618 . . . . . . . . . . . . . . . . . . 19 (((𝑐 ∈ On ∧ ∀𝑑𝑐 ((𝜑𝑑𝐴) → (𝐻𝑑) We (𝑅1𝑑)) ∧ (𝜑𝑐𝐴)) ∧ 𝑧 = (𝐻𝑐)) → dom 𝑧𝐴)
4443adantr 481 . . . . . . . . . . . . . . . . . 18 ((((𝑐 ∈ On ∧ ∀𝑑𝑐 ((𝜑𝑑𝐴) → (𝐻𝑑) We (𝑅1𝑑)) ∧ (𝜑𝑐𝐴)) ∧ 𝑧 = (𝐻𝑐)) ∧ 𝑎 ∈ dom 𝑧) → dom 𝑧𝐴)
4541, 44sstrd 3593 . . . . . . . . . . . . . . . . 17 ((((𝑐 ∈ On ∧ ∀𝑑𝑐 ((𝜑𝑑𝐴) → (𝐻𝑑) We (𝑅1𝑑)) ∧ (𝜑𝑐𝐴)) ∧ 𝑧 = (𝐻𝑐)) ∧ 𝑎 ∈ dom 𝑧) → 𝑎𝐴)
46 sseq1 3605 . . . . . . . . . . . . . . . . . . . . 21 (𝑑 = 𝑎 → (𝑑𝐴𝑎𝐴))
4746anbi2d 739 . . . . . . . . . . . . . . . . . . . 20 (𝑑 = 𝑎 → ((𝜑𝑑𝐴) ↔ (𝜑𝑎𝐴)))
48 fveq2 6148 . . . . . . . . . . . . . . . . . . . . 21 (𝑑 = 𝑎 → (𝐻𝑑) = (𝐻𝑎))
49 fveq2 6148 . . . . . . . . . . . . . . . . . . . . 21 (𝑑 = 𝑎 → (𝑅1𝑑) = (𝑅1𝑎))
5048, 49weeq12d 37087 . . . . . . . . . . . . . . . . . . . 20 (𝑑 = 𝑎 → ((𝐻𝑑) We (𝑅1𝑑) ↔ (𝐻𝑎) We (𝑅1𝑎)))
5147, 50imbi12d 334 . . . . . . . . . . . . . . . . . . 19 (𝑑 = 𝑎 → (((𝜑𝑑𝐴) → (𝐻𝑑) We (𝑅1𝑑)) ↔ ((𝜑𝑎𝐴) → (𝐻𝑎) We (𝑅1𝑎))))
5251rspcva 3293 . . . . . . . . . . . . . . . . . 18 ((𝑎𝑐 ∧ ∀𝑑𝑐 ((𝜑𝑑𝐴) → (𝐻𝑑) We (𝑅1𝑑))) → ((𝜑𝑎𝐴) → (𝐻𝑎) We (𝑅1𝑎)))
5352imp 445 . . . . . . . . . . . . . . . . 17 (((𝑎𝑐 ∧ ∀𝑑𝑐 ((𝜑𝑑𝐴) → (𝐻𝑑) We (𝑅1𝑑))) ∧ (𝜑𝑎𝐴)) → (𝐻𝑎) We (𝑅1𝑎))
5435, 36, 38, 45, 53syl22anc 1324 . . . . . . . . . . . . . . . 16 ((((𝑐 ∈ On ∧ ∀𝑑𝑐 ((𝜑𝑑𝐴) → (𝐻𝑑) We (𝑅1𝑑)) ∧ (𝜑𝑐𝐴)) ∧ 𝑧 = (𝐻𝑐)) ∧ 𝑎 ∈ dom 𝑧) → (𝐻𝑎) We (𝑅1𝑎))
55 fveq1 6147 . . . . . . . . . . . . . . . . . . 19 (𝑧 = (𝐻𝑐) → (𝑧𝑎) = ((𝐻𝑐)‘𝑎))
5655ad2antlr 762 . . . . . . . . . . . . . . . . . 18 ((((𝑐 ∈ On ∧ ∀𝑑𝑐 ((𝜑𝑑𝐴) → (𝐻𝑑) We (𝑅1𝑑)) ∧ (𝜑𝑐𝐴)) ∧ 𝑧 = (𝐻𝑐)) ∧ 𝑎 ∈ dom 𝑧) → (𝑧𝑎) = ((𝐻𝑐)‘𝑎))
57 fvres 6164 . . . . . . . . . . . . . . . . . . 19 (𝑎𝑐 → ((𝐻𝑐)‘𝑎) = (𝐻𝑎))
5835, 57syl 17 . . . . . . . . . . . . . . . . . 18 ((((𝑐 ∈ On ∧ ∀𝑑𝑐 ((𝜑𝑑𝐴) → (𝐻𝑑) We (𝑅1𝑑)) ∧ (𝜑𝑐𝐴)) ∧ 𝑧 = (𝐻𝑐)) ∧ 𝑎 ∈ dom 𝑧) → ((𝐻𝑐)‘𝑎) = (𝐻𝑎))
5956, 58eqtrd 2655 . . . . . . . . . . . . . . . . 17 ((((𝑐 ∈ On ∧ ∀𝑑𝑐 ((𝜑𝑑𝐴) → (𝐻𝑑) We (𝑅1𝑑)) ∧ (𝜑𝑐𝐴)) ∧ 𝑧 = (𝐻𝑐)) ∧ 𝑎 ∈ dom 𝑧) → (𝑧𝑎) = (𝐻𝑎))
60 weeq1 5062 . . . . . . . . . . . . . . . . 17 ((𝑧𝑎) = (𝐻𝑎) → ((𝑧𝑎) We (𝑅1𝑎) ↔ (𝐻𝑎) We (𝑅1𝑎)))
6159, 60syl 17 . . . . . . . . . . . . . . . 16 ((((𝑐 ∈ On ∧ ∀𝑑𝑐 ((𝜑𝑑𝐴) → (𝐻𝑑) We (𝑅1𝑑)) ∧ (𝜑𝑐𝐴)) ∧ 𝑧 = (𝐻𝑐)) ∧ 𝑎 ∈ dom 𝑧) → ((𝑧𝑎) We (𝑅1𝑎) ↔ (𝐻𝑎) We (𝑅1𝑎)))
6254, 61mpbird 247 . . . . . . . . . . . . . . 15 ((((𝑐 ∈ On ∧ ∀𝑑𝑐 ((𝜑𝑑𝐴) → (𝐻𝑑) We (𝑅1𝑑)) ∧ (𝜑𝑐𝐴)) ∧ 𝑧 = (𝐻𝑐)) ∧ 𝑎 ∈ dom 𝑧) → (𝑧𝑎) We (𝑅1𝑎))
6362ralrimiva 2960 . . . . . . . . . . . . . 14 (((𝑐 ∈ On ∧ ∀𝑑𝑐 ((𝜑𝑑𝐴) → (𝐻𝑑) We (𝑅1𝑑)) ∧ (𝜑𝑐𝐴)) ∧ 𝑧 = (𝐻𝑐)) → ∀𝑎 ∈ dom 𝑧(𝑧𝑎) We (𝑅1𝑎))
6437, 2syl 17 . . . . . . . . . . . . . 14 (((𝑐 ∈ On ∧ ∀𝑑𝑐 ((𝜑𝑑𝐴) → (𝐻𝑑) We (𝑅1𝑑)) ∧ (𝜑𝑐𝐴)) ∧ 𝑧 = (𝐻𝑐)) → 𝐴 ∈ On)
65 aomclem6.y . . . . . . . . . . . . . . 15 (𝜑 → ∀𝑎 ∈ 𝒫 (𝑅1𝐴)(𝑎 ≠ ∅ → (𝑦𝑎) ∈ ((𝒫 𝑎 ∩ Fin) ∖ {∅})))
6637, 65syl 17 . . . . . . . . . . . . . 14 (((𝑐 ∈ On ∧ ∀𝑑𝑐 ((𝜑𝑑𝐴) → (𝐻𝑑) We (𝑅1𝑑)) ∧ (𝜑𝑐𝐴)) ∧ 𝑧 = (𝐻𝑐)) → ∀𝑎 ∈ 𝒫 (𝑅1𝐴)(𝑎 ≠ ∅ → (𝑦𝑎) ∈ ((𝒫 𝑎 ∩ Fin) ∖ {∅})))
6716, 17, 18, 19, 20, 21, 33, 63, 64, 43, 66aomclem5 37105 . . . . . . . . . . . . 13 (((𝑐 ∈ On ∧ ∀𝑑𝑐 ((𝜑𝑑𝐴) → (𝐻𝑑) We (𝑅1𝑑)) ∧ (𝜑𝑐𝐴)) ∧ 𝑧 = (𝐻𝑐)) → 𝐺 We (𝑅1‘dom 𝑧))
6832fveq2d 6152 . . . . . . . . . . . . . 14 (((𝑐 ∈ On ∧ ∀𝑑𝑐 ((𝜑𝑑𝐴) → (𝐻𝑑) We (𝑅1𝑑)) ∧ (𝜑𝑐𝐴)) ∧ 𝑧 = (𝐻𝑐)) → (𝑅1‘dom 𝑧) = (𝑅1𝑐))
69 weeq2 5063 . . . . . . . . . . . . . 14 ((𝑅1‘dom 𝑧) = (𝑅1𝑐) → (𝐺 We (𝑅1‘dom 𝑧) ↔ 𝐺 We (𝑅1𝑐)))
7068, 69syl 17 . . . . . . . . . . . . 13 (((𝑐 ∈ On ∧ ∀𝑑𝑐 ((𝜑𝑑𝐴) → (𝐻𝑑) We (𝑅1𝑑)) ∧ (𝜑𝑐𝐴)) ∧ 𝑧 = (𝐻𝑐)) → (𝐺 We (𝑅1‘dom 𝑧) ↔ 𝐺 We (𝑅1𝑐)))
7167, 70mpbid 222 . . . . . . . . . . . 12 (((𝑐 ∈ On ∧ ∀𝑑𝑐 ((𝜑𝑑𝐴) → (𝐻𝑑) We (𝑅1𝑑)) ∧ (𝜑𝑐𝐴)) ∧ 𝑧 = (𝐻𝑐)) → 𝐺 We (𝑅1𝑐))
7271ex 450 . . . . . . . . . . 11 ((𝑐 ∈ On ∧ ∀𝑑𝑐 ((𝜑𝑑𝐴) → (𝐻𝑑) We (𝑅1𝑑)) ∧ (𝜑𝑐𝐴)) → (𝑧 = (𝐻𝑐) → 𝐺 We (𝑅1𝑐)))
7372alrimiv 1852 . . . . . . . . . 10 ((𝑐 ∈ On ∧ ∀𝑑𝑐 ((𝜑𝑑𝐴) → (𝐻𝑑) We (𝑅1𝑑)) ∧ (𝜑𝑐𝐴)) → ∀𝑧(𝑧 = (𝐻𝑐) → 𝐺 We (𝑅1𝑐)))
74 nfv 1840 . . . . . . . . . . 11 𝑑(𝑧 = (𝐻𝑐) → 𝐺 We (𝑅1𝑐))
75 nfv 1840 . . . . . . . . . . . 12 𝑧 𝑑 = (𝐻𝑐)
76 nfsbc1v 3437 . . . . . . . . . . . 12 𝑧[𝑑 / 𝑧]𝐺 We (𝑅1𝑐)
7775, 76nfim 1822 . . . . . . . . . . 11 𝑧(𝑑 = (𝐻𝑐) → [𝑑 / 𝑧]𝐺 We (𝑅1𝑐))
78 eqeq1 2625 . . . . . . . . . . . 12 (𝑧 = 𝑑 → (𝑧 = (𝐻𝑐) ↔ 𝑑 = (𝐻𝑐)))
79 sbceq1a 3428 . . . . . . . . . . . 12 (𝑧 = 𝑑 → (𝐺 We (𝑅1𝑐) ↔ [𝑑 / 𝑧]𝐺 We (𝑅1𝑐)))
8078, 79imbi12d 334 . . . . . . . . . . 11 (𝑧 = 𝑑 → ((𝑧 = (𝐻𝑐) → 𝐺 We (𝑅1𝑐)) ↔ (𝑑 = (𝐻𝑐) → [𝑑 / 𝑧]𝐺 We (𝑅1𝑐))))
8174, 77, 80cbval 2270 . . . . . . . . . 10 (∀𝑧(𝑧 = (𝐻𝑐) → 𝐺 We (𝑅1𝑐)) ↔ ∀𝑑(𝑑 = (𝐻𝑐) → [𝑑 / 𝑧]𝐺 We (𝑅1𝑐)))
8273, 81sylib 208 . . . . . . . . 9 ((𝑐 ∈ On ∧ ∀𝑑𝑐 ((𝜑𝑑𝐴) → (𝐻𝑑) We (𝑅1𝑑)) ∧ (𝜑𝑐𝐴)) → ∀𝑑(𝑑 = (𝐻𝑐) → [𝑑 / 𝑧]𝐺 We (𝑅1𝑐)))
83 nfsbc1v 3437 . . . . . . . . . 10 𝑑[(𝐻𝑐) / 𝑑][𝑑 / 𝑧]𝐺 We (𝑅1𝑐)
84 fnfun 5946 . . . . . . . . . . . 12 (𝐻 Fn On → Fun 𝐻)
8527, 84ax-mp 5 . . . . . . . . . . 11 Fun 𝐻
86 vex 3189 . . . . . . . . . . 11 𝑐 ∈ V
87 resfunexg 6433 . . . . . . . . . . 11 ((Fun 𝐻𝑐 ∈ V) → (𝐻𝑐) ∈ V)
8885, 86, 87mp2an 707 . . . . . . . . . 10 (𝐻𝑐) ∈ V
89 sbceq1a 3428 . . . . . . . . . 10 (𝑑 = (𝐻𝑐) → ([𝑑 / 𝑧]𝐺 We (𝑅1𝑐) ↔ [(𝐻𝑐) / 𝑑][𝑑 / 𝑧]𝐺 We (𝑅1𝑐)))
9083, 88, 89ceqsal 3218 . . . . . . . . 9 (∀𝑑(𝑑 = (𝐻𝑐) → [𝑑 / 𝑧]𝐺 We (𝑅1𝑐)) ↔ [(𝐻𝑐) / 𝑑][𝑑 / 𝑧]𝐺 We (𝑅1𝑐))
9182, 90sylib 208 . . . . . . . 8 ((𝑐 ∈ On ∧ ∀𝑑𝑐 ((𝜑𝑑𝐴) → (𝐻𝑑) We (𝑅1𝑑)) ∧ (𝜑𝑐𝐴)) → [(𝐻𝑐) / 𝑑][𝑑 / 𝑧]𝐺 We (𝑅1𝑐))
92 sbcco 3440 . . . . . . . 8 ([(𝐻𝑐) / 𝑑][𝑑 / 𝑧]𝐺 We (𝑅1𝑐) ↔ [(𝐻𝑐) / 𝑧]𝐺 We (𝑅1𝑐))
9391, 92sylib 208 . . . . . . 7 ((𝑐 ∈ On ∧ ∀𝑑𝑐 ((𝜑𝑑𝐴) → (𝐻𝑑) We (𝑅1𝑑)) ∧ (𝜑𝑐𝐴)) → [(𝐻𝑐) / 𝑧]𝐺 We (𝑅1𝑐))
94 nfcsb1v 3530 . . . . . . . . . 10 𝑧(𝐻𝑐) / 𝑧𝐺
95 nfcv 2761 . . . . . . . . . 10 𝑧(𝑅1𝑐)
9694, 95nfwe 5050 . . . . . . . . 9 𝑧(𝐻𝑐) / 𝑧𝐺 We (𝑅1𝑐)
97 csbeq1a 3523 . . . . . . . . . 10 (𝑧 = (𝐻𝑐) → 𝐺 = (𝐻𝑐) / 𝑧𝐺)
98 weeq1 5062 . . . . . . . . . 10 (𝐺 = (𝐻𝑐) / 𝑧𝐺 → (𝐺 We (𝑅1𝑐) ↔ (𝐻𝑐) / 𝑧𝐺 We (𝑅1𝑐)))
9997, 98syl 17 . . . . . . . . 9 (𝑧 = (𝐻𝑐) → (𝐺 We (𝑅1𝑐) ↔ (𝐻𝑐) / 𝑧𝐺 We (𝑅1𝑐)))
10096, 99sbciegf 3449 . . . . . . . 8 ((𝐻𝑐) ∈ V → ([(𝐻𝑐) / 𝑧]𝐺 We (𝑅1𝑐) ↔ (𝐻𝑐) / 𝑧𝐺 We (𝑅1𝑐)))
10188, 100ax-mp 5 . . . . . . 7 ([(𝐻𝑐) / 𝑧]𝐺 We (𝑅1𝑐) ↔ (𝐻𝑐) / 𝑧𝐺 We (𝑅1𝑐))
10293, 101sylib 208 . . . . . 6 ((𝑐 ∈ On ∧ ∀𝑑𝑐 ((𝜑𝑑𝐴) → (𝐻𝑑) We (𝑅1𝑑)) ∧ (𝜑𝑐𝐴)) → (𝐻𝑐) / 𝑧𝐺 We (𝑅1𝑐))
103 recsval 7445 . . . . . . . . 9 (𝑐 ∈ On → (recs((𝑧 ∈ V ↦ 𝐺))‘𝑐) = ((𝑧 ∈ V ↦ 𝐺)‘(recs((𝑧 ∈ V ↦ 𝐺)) ↾ 𝑐)))
10426fveq1i 6149 . . . . . . . . 9 (𝐻𝑐) = (recs((𝑧 ∈ V ↦ 𝐺))‘𝑐)
105 fvex 6158 . . . . . . . . . . . . . . 15 (𝑅1‘dom 𝑧) ∈ V
106105, 105xpex 6915 . . . . . . . . . . . . . 14 ((𝑅1‘dom 𝑧) × (𝑅1‘dom 𝑧)) ∈ V
107106inex2 4760 . . . . . . . . . . . . 13 (if(dom 𝑧 = dom 𝑧, 𝐹, 𝐸) ∩ ((𝑅1‘dom 𝑧) × (𝑅1‘dom 𝑧))) ∈ V
10821, 107eqeltri 2694 . . . . . . . . . . . 12 𝐺 ∈ V
109108csbex 4753 . . . . . . . . . . 11 (𝐻𝑐) / 𝑧𝐺 ∈ V
110 eqid 2621 . . . . . . . . . . . 12 (𝑧 ∈ V ↦ 𝐺) = (𝑧 ∈ V ↦ 𝐺)
111110fvmpts 6242 . . . . . . . . . . 11 (((𝐻𝑐) ∈ V ∧ (𝐻𝑐) / 𝑧𝐺 ∈ V) → ((𝑧 ∈ V ↦ 𝐺)‘(𝐻𝑐)) = (𝐻𝑐) / 𝑧𝐺)
11288, 109, 111mp2an 707 . . . . . . . . . 10 ((𝑧 ∈ V ↦ 𝐺)‘(𝐻𝑐)) = (𝐻𝑐) / 𝑧𝐺
11326reseq1i 5352 . . . . . . . . . . 11 (𝐻𝑐) = (recs((𝑧 ∈ V ↦ 𝐺)) ↾ 𝑐)
114113fveq2i 6151 . . . . . . . . . 10 ((𝑧 ∈ V ↦ 𝐺)‘(𝐻𝑐)) = ((𝑧 ∈ V ↦ 𝐺)‘(recs((𝑧 ∈ V ↦ 𝐺)) ↾ 𝑐))
115112, 114eqtr3i 2645 . . . . . . . . 9 (𝐻𝑐) / 𝑧𝐺 = ((𝑧 ∈ V ↦ 𝐺)‘(recs((𝑧 ∈ V ↦ 𝐺)) ↾ 𝑐))
116103, 104, 1153eqtr4g 2680 . . . . . . . 8 (𝑐 ∈ On → (𝐻𝑐) = (𝐻𝑐) / 𝑧𝐺)
117 weeq1 5062 . . . . . . . 8 ((𝐻𝑐) = (𝐻𝑐) / 𝑧𝐺 → ((𝐻𝑐) We (𝑅1𝑐) ↔ (𝐻𝑐) / 𝑧𝐺 We (𝑅1𝑐)))
118116, 117syl 17 . . . . . . 7 (𝑐 ∈ On → ((𝐻𝑐) We (𝑅1𝑐) ↔ (𝐻𝑐) / 𝑧𝐺 We (𝑅1𝑐)))
1191183ad2ant1 1080 . . . . . 6 ((𝑐 ∈ On ∧ ∀𝑑𝑐 ((𝜑𝑑𝐴) → (𝐻𝑑) We (𝑅1𝑑)) ∧ (𝜑𝑐𝐴)) → ((𝐻𝑐) We (𝑅1𝑐) ↔ (𝐻𝑐) / 𝑧𝐺 We (𝑅1𝑐)))
120102, 119mpbird 247 . . . . 5 ((𝑐 ∈ On ∧ ∀𝑑𝑐 ((𝜑𝑑𝐴) → (𝐻𝑑) We (𝑅1𝑑)) ∧ (𝜑𝑐𝐴)) → (𝐻𝑐) We (𝑅1𝑐))
1211203exp 1261 . . . 4 (𝑐 ∈ On → (∀𝑑𝑐 ((𝜑𝑑𝐴) → (𝐻𝑑) We (𝑅1𝑑)) → ((𝜑𝑐𝐴) → (𝐻𝑐) We (𝑅1𝑐))))
1229, 15, 121tfis3 7004 . . 3 (𝐴 ∈ On → ((𝜑𝐴𝐴) → (𝐻𝐴) We (𝑅1𝐴)))
1233, 122mpcom 38 . 2 ((𝜑𝐴𝐴) → (𝐻𝐴) We (𝑅1𝐴))
1241, 123mpan2 706 1 (𝜑 → (𝐻𝐴) We (𝑅1𝐴))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 196  wo 383  wa 384  w3a 1036  wal 1478   = wceq 1480  wcel 1987  wne 2790  wral 2907  wrex 2908  Vcvv 3186  [wsbc 3417  csb 3514  cdif 3552  cin 3554  wss 3555  c0 3891  ifcif 4058  𝒫 cpw 4130  {csn 4148   cuni 4402   cint 4440   class class class wbr 4613  {copab 4672  cmpt 4673   E cep 4983   We wwe 5032   × cxp 5072  ccnv 5073  dom cdm 5074  ran crn 5075  cres 5076  cima 5077  Oncon0 5682  suc csuc 5684  Fun wfun 5841   Fn wfn 5842  cfv 5847  recscrecs 7412  Fincfn 7899  supcsup 8290  𝑅1cr1 8569  rankcrnk 8570
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1719  ax-4 1734  ax-5 1836  ax-6 1885  ax-7 1932  ax-8 1989  ax-9 1996  ax-10 2016  ax-11 2031  ax-12 2044  ax-13 2245  ax-ext 2601  ax-rep 4731  ax-sep 4741  ax-nul 4749  ax-pow 4803  ax-pr 4867  ax-un 6902
This theorem depends on definitions:  df-bi 197  df-or 385  df-an 386  df-3or 1037  df-3an 1038  df-tru 1483  df-fal 1486  df-ex 1702  df-nf 1707  df-sb 1878  df-eu 2473  df-mo 2474  df-clab 2608  df-cleq 2614  df-clel 2617  df-nfc 2750  df-ne 2791  df-ral 2912  df-rex 2913  df-reu 2914  df-rmo 2915  df-rab 2916  df-v 3188  df-sbc 3418  df-csb 3515  df-dif 3558  df-un 3560  df-in 3562  df-ss 3569  df-pss 3571  df-nul 3892  df-if 4059  df-pw 4132  df-sn 4149  df-pr 4151  df-tp 4153  df-op 4155  df-uni 4403  df-int 4441  df-iun 4487  df-br 4614  df-opab 4674  df-mpt 4675  df-tr 4713  df-eprel 4985  df-id 4989  df-po 4995  df-so 4996  df-fr 5033  df-we 5035  df-xp 5080  df-rel 5081  df-cnv 5082  df-co 5083  df-dm 5084  df-rn 5085  df-res 5086  df-ima 5087  df-pred 5639  df-ord 5685  df-on 5686  df-lim 5687  df-suc 5688  df-iota 5810  df-fun 5849  df-fn 5850  df-f 5851  df-f1 5852  df-fo 5853  df-f1o 5854  df-fv 5855  df-isom 5856  df-riota 6565  df-ov 6607  df-oprab 6608  df-mpt2 6609  df-om 7013  df-1st 7113  df-2nd 7114  df-wrecs 7352  df-recs 7413  df-rdg 7451  df-1o 7505  df-2o 7506  df-er 7687  df-map 7804  df-en 7900  df-fin 7903  df-sup 8292  df-r1 8571  df-rank 8572
This theorem is referenced by:  aomclem7  37107
  Copyright terms: Public domain W3C validator