Metamath Proof Explorer


Theorem ordtypelem7

Description: Lemma for ordtype . ran O is an initial segment of A under the well-order R . (Contributed by Mario Carneiro, 25-Jun-2015)

Ref Expression
Hypotheses ordtypelem.1 𝐹 = recs ( 𝐺 )
ordtypelem.2 𝐶 = { 𝑤𝐴 ∣ ∀ 𝑗 ∈ ran 𝑗 𝑅 𝑤 }
ordtypelem.3 𝐺 = ( ∈ V ↦ ( 𝑣𝐶𝑢𝐶 ¬ 𝑢 𝑅 𝑣 ) )
ordtypelem.5 𝑇 = { 𝑥 ∈ On ∣ ∃ 𝑡𝐴𝑧 ∈ ( 𝐹𝑥 ) 𝑧 𝑅 𝑡 }
ordtypelem.6 𝑂 = OrdIso ( 𝑅 , 𝐴 )
ordtypelem.7 ( 𝜑𝑅 We 𝐴 )
ordtypelem.8 ( 𝜑𝑅 Se 𝐴 )
Assertion ordtypelem7 ( ( ( 𝜑𝑁𝐴 ) ∧ 𝑀 ∈ dom 𝑂 ) → ( ( 𝑂𝑀 ) 𝑅 𝑁𝑁 ∈ ran 𝑂 ) )

Proof

Step Hyp Ref Expression
1 ordtypelem.1 𝐹 = recs ( 𝐺 )
2 ordtypelem.2 𝐶 = { 𝑤𝐴 ∣ ∀ 𝑗 ∈ ran 𝑗 𝑅 𝑤 }
3 ordtypelem.3 𝐺 = ( ∈ V ↦ ( 𝑣𝐶𝑢𝐶 ¬ 𝑢 𝑅 𝑣 ) )
4 ordtypelem.5 𝑇 = { 𝑥 ∈ On ∣ ∃ 𝑡𝐴𝑧 ∈ ( 𝐹𝑥 ) 𝑧 𝑅 𝑡 }
5 ordtypelem.6 𝑂 = OrdIso ( 𝑅 , 𝐴 )
6 ordtypelem.7 ( 𝜑𝑅 We 𝐴 )
7 ordtypelem.8 ( 𝜑𝑅 Se 𝐴 )
8 eldif ( 𝑁 ∈ ( 𝐴 ∖ ran 𝑂 ) ↔ ( 𝑁𝐴 ∧ ¬ 𝑁 ∈ ran 𝑂 ) )
9 1 2 3 4 5 6 7 ordtypelem4 ( 𝜑𝑂 : ( 𝑇 ∩ dom 𝐹 ) ⟶ 𝐴 )
10 9 adantr ( ( 𝜑𝑁 ∈ ( 𝐴 ∖ ran 𝑂 ) ) → 𝑂 : ( 𝑇 ∩ dom 𝐹 ) ⟶ 𝐴 )
11 10 fdmd ( ( 𝜑𝑁 ∈ ( 𝐴 ∖ ran 𝑂 ) ) → dom 𝑂 = ( 𝑇 ∩ dom 𝐹 ) )
12 inss1 ( 𝑇 ∩ dom 𝐹 ) ⊆ 𝑇
13 1 2 3 4 5 6 7 ordtypelem2 ( 𝜑 → Ord 𝑇 )
14 13 adantr ( ( 𝜑𝑁 ∈ ( 𝐴 ∖ ran 𝑂 ) ) → Ord 𝑇 )
15 ordsson ( Ord 𝑇𝑇 ⊆ On )
16 14 15 syl ( ( 𝜑𝑁 ∈ ( 𝐴 ∖ ran 𝑂 ) ) → 𝑇 ⊆ On )
17 12 16 sstrid ( ( 𝜑𝑁 ∈ ( 𝐴 ∖ ran 𝑂 ) ) → ( 𝑇 ∩ dom 𝐹 ) ⊆ On )
18 11 17 eqsstrd ( ( 𝜑𝑁 ∈ ( 𝐴 ∖ ran 𝑂 ) ) → dom 𝑂 ⊆ On )
19 18 sseld ( ( 𝜑𝑁 ∈ ( 𝐴 ∖ ran 𝑂 ) ) → ( 𝑀 ∈ dom 𝑂𝑀 ∈ On ) )
20 eleq1 ( 𝑎 = 𝑏 → ( 𝑎 ∈ dom 𝑂𝑏 ∈ dom 𝑂 ) )
21 fveq2 ( 𝑎 = 𝑏 → ( 𝑂𝑎 ) = ( 𝑂𝑏 ) )
22 21 breq1d ( 𝑎 = 𝑏 → ( ( 𝑂𝑎 ) 𝑅 𝑁 ↔ ( 𝑂𝑏 ) 𝑅 𝑁 ) )
23 20 22 imbi12d ( 𝑎 = 𝑏 → ( ( 𝑎 ∈ dom 𝑂 → ( 𝑂𝑎 ) 𝑅 𝑁 ) ↔ ( 𝑏 ∈ dom 𝑂 → ( 𝑂𝑏 ) 𝑅 𝑁 ) ) )
24 23 imbi2d ( 𝑎 = 𝑏 → ( ( ( 𝜑𝑁 ∈ ( 𝐴 ∖ ran 𝑂 ) ) → ( 𝑎 ∈ dom 𝑂 → ( 𝑂𝑎 ) 𝑅 𝑁 ) ) ↔ ( ( 𝜑𝑁 ∈ ( 𝐴 ∖ ran 𝑂 ) ) → ( 𝑏 ∈ dom 𝑂 → ( 𝑂𝑏 ) 𝑅 𝑁 ) ) ) )
25 eleq1 ( 𝑎 = 𝑀 → ( 𝑎 ∈ dom 𝑂𝑀 ∈ dom 𝑂 ) )
26 fveq2 ( 𝑎 = 𝑀 → ( 𝑂𝑎 ) = ( 𝑂𝑀 ) )
27 26 breq1d ( 𝑎 = 𝑀 → ( ( 𝑂𝑎 ) 𝑅 𝑁 ↔ ( 𝑂𝑀 ) 𝑅 𝑁 ) )
28 25 27 imbi12d ( 𝑎 = 𝑀 → ( ( 𝑎 ∈ dom 𝑂 → ( 𝑂𝑎 ) 𝑅 𝑁 ) ↔ ( 𝑀 ∈ dom 𝑂 → ( 𝑂𝑀 ) 𝑅 𝑁 ) ) )
29 28 imbi2d ( 𝑎 = 𝑀 → ( ( ( 𝜑𝑁 ∈ ( 𝐴 ∖ ran 𝑂 ) ) → ( 𝑎 ∈ dom 𝑂 → ( 𝑂𝑎 ) 𝑅 𝑁 ) ) ↔ ( ( 𝜑𝑁 ∈ ( 𝐴 ∖ ran 𝑂 ) ) → ( 𝑀 ∈ dom 𝑂 → ( 𝑂𝑀 ) 𝑅 𝑁 ) ) ) )
30 r19.21v ( ∀ 𝑏𝑎 ( ( 𝜑𝑁 ∈ ( 𝐴 ∖ ran 𝑂 ) ) → ( 𝑏 ∈ dom 𝑂 → ( 𝑂𝑏 ) 𝑅 𝑁 ) ) ↔ ( ( 𝜑𝑁 ∈ ( 𝐴 ∖ ran 𝑂 ) ) → ∀ 𝑏𝑎 ( 𝑏 ∈ dom 𝑂 → ( 𝑂𝑏 ) 𝑅 𝑁 ) ) )
31 1 tfr1a ( Fun 𝐹 ∧ Lim dom 𝐹 )
32 31 simpri Lim dom 𝐹
33 limord ( Lim dom 𝐹 → Ord dom 𝐹 )
34 32 33 ax-mp Ord dom 𝐹
35 ordin ( ( Ord 𝑇 ∧ Ord dom 𝐹 ) → Ord ( 𝑇 ∩ dom 𝐹 ) )
36 14 34 35 sylancl ( ( 𝜑𝑁 ∈ ( 𝐴 ∖ ran 𝑂 ) ) → Ord ( 𝑇 ∩ dom 𝐹 ) )
37 ordeq ( dom 𝑂 = ( 𝑇 ∩ dom 𝐹 ) → ( Ord dom 𝑂 ↔ Ord ( 𝑇 ∩ dom 𝐹 ) ) )
38 11 37 syl ( ( 𝜑𝑁 ∈ ( 𝐴 ∖ ran 𝑂 ) ) → ( Ord dom 𝑂 ↔ Ord ( 𝑇 ∩ dom 𝐹 ) ) )
39 36 38 mpbird ( ( 𝜑𝑁 ∈ ( 𝐴 ∖ ran 𝑂 ) ) → Ord dom 𝑂 )
40 ordelss ( ( Ord dom 𝑂𝑎 ∈ dom 𝑂 ) → 𝑎 ⊆ dom 𝑂 )
41 39 40 sylan ( ( ( 𝜑𝑁 ∈ ( 𝐴 ∖ ran 𝑂 ) ) ∧ 𝑎 ∈ dom 𝑂 ) → 𝑎 ⊆ dom 𝑂 )
42 41 sselda ( ( ( ( 𝜑𝑁 ∈ ( 𝐴 ∖ ran 𝑂 ) ) ∧ 𝑎 ∈ dom 𝑂 ) ∧ 𝑏𝑎 ) → 𝑏 ∈ dom 𝑂 )
43 pm5.5 ( 𝑏 ∈ dom 𝑂 → ( ( 𝑏 ∈ dom 𝑂 → ( 𝑂𝑏 ) 𝑅 𝑁 ) ↔ ( 𝑂𝑏 ) 𝑅 𝑁 ) )
44 42 43 syl ( ( ( ( 𝜑𝑁 ∈ ( 𝐴 ∖ ran 𝑂 ) ) ∧ 𝑎 ∈ dom 𝑂 ) ∧ 𝑏𝑎 ) → ( ( 𝑏 ∈ dom 𝑂 → ( 𝑂𝑏 ) 𝑅 𝑁 ) ↔ ( 𝑂𝑏 ) 𝑅 𝑁 ) )
45 44 ralbidva ( ( ( 𝜑𝑁 ∈ ( 𝐴 ∖ ran 𝑂 ) ) ∧ 𝑎 ∈ dom 𝑂 ) → ( ∀ 𝑏𝑎 ( 𝑏 ∈ dom 𝑂 → ( 𝑂𝑏 ) 𝑅 𝑁 ) ↔ ∀ 𝑏𝑎 ( 𝑂𝑏 ) 𝑅 𝑁 ) )
46 eldifn ( 𝑁 ∈ ( 𝐴 ∖ ran 𝑂 ) → ¬ 𝑁 ∈ ran 𝑂 )
47 46 ad2antlr ( ( ( 𝜑𝑁 ∈ ( 𝐴 ∖ ran 𝑂 ) ) ∧ ( 𝑎 ∈ dom 𝑂 ∧ ∀ 𝑏𝑎 ( 𝑂𝑏 ) 𝑅 𝑁 ) ) → ¬ 𝑁 ∈ ran 𝑂 )
48 9 ad2antrr ( ( ( 𝜑𝑁 ∈ ( 𝐴 ∖ ran 𝑂 ) ) ∧ ( 𝑎 ∈ dom 𝑂 ∧ ∀ 𝑏𝑎 ( 𝑂𝑏 ) 𝑅 𝑁 ) ) → 𝑂 : ( 𝑇 ∩ dom 𝐹 ) ⟶ 𝐴 )
49 48 ffnd ( ( ( 𝜑𝑁 ∈ ( 𝐴 ∖ ran 𝑂 ) ) ∧ ( 𝑎 ∈ dom 𝑂 ∧ ∀ 𝑏𝑎 ( 𝑂𝑏 ) 𝑅 𝑁 ) ) → 𝑂 Fn ( 𝑇 ∩ dom 𝐹 ) )
50 simprl ( ( ( 𝜑𝑁 ∈ ( 𝐴 ∖ ran 𝑂 ) ) ∧ ( 𝑎 ∈ dom 𝑂 ∧ ∀ 𝑏𝑎 ( 𝑂𝑏 ) 𝑅 𝑁 ) ) → 𝑎 ∈ dom 𝑂 )
51 48 fdmd ( ( ( 𝜑𝑁 ∈ ( 𝐴 ∖ ran 𝑂 ) ) ∧ ( 𝑎 ∈ dom 𝑂 ∧ ∀ 𝑏𝑎 ( 𝑂𝑏 ) 𝑅 𝑁 ) ) → dom 𝑂 = ( 𝑇 ∩ dom 𝐹 ) )
52 50 51 eleqtrd ( ( ( 𝜑𝑁 ∈ ( 𝐴 ∖ ran 𝑂 ) ) ∧ ( 𝑎 ∈ dom 𝑂 ∧ ∀ 𝑏𝑎 ( 𝑂𝑏 ) 𝑅 𝑁 ) ) → 𝑎 ∈ ( 𝑇 ∩ dom 𝐹 ) )
53 fnfvelrn ( ( 𝑂 Fn ( 𝑇 ∩ dom 𝐹 ) ∧ 𝑎 ∈ ( 𝑇 ∩ dom 𝐹 ) ) → ( 𝑂𝑎 ) ∈ ran 𝑂 )
54 49 52 53 syl2anc ( ( ( 𝜑𝑁 ∈ ( 𝐴 ∖ ran 𝑂 ) ) ∧ ( 𝑎 ∈ dom 𝑂 ∧ ∀ 𝑏𝑎 ( 𝑂𝑏 ) 𝑅 𝑁 ) ) → ( 𝑂𝑎 ) ∈ ran 𝑂 )
55 eleq1 ( ( 𝑂𝑎 ) = 𝑁 → ( ( 𝑂𝑎 ) ∈ ran 𝑂𝑁 ∈ ran 𝑂 ) )
56 54 55 syl5ibcom ( ( ( 𝜑𝑁 ∈ ( 𝐴 ∖ ran 𝑂 ) ) ∧ ( 𝑎 ∈ dom 𝑂 ∧ ∀ 𝑏𝑎 ( 𝑂𝑏 ) 𝑅 𝑁 ) ) → ( ( 𝑂𝑎 ) = 𝑁𝑁 ∈ ran 𝑂 ) )
57 47 56 mtod ( ( ( 𝜑𝑁 ∈ ( 𝐴 ∖ ran 𝑂 ) ) ∧ ( 𝑎 ∈ dom 𝑂 ∧ ∀ 𝑏𝑎 ( 𝑂𝑏 ) 𝑅 𝑁 ) ) → ¬ ( 𝑂𝑎 ) = 𝑁 )
58 breq1 ( 𝑢 = 𝑁 → ( 𝑢 𝑅 ( 𝑂𝑎 ) ↔ 𝑁 𝑅 ( 𝑂𝑎 ) ) )
59 58 notbid ( 𝑢 = 𝑁 → ( ¬ 𝑢 𝑅 ( 𝑂𝑎 ) ↔ ¬ 𝑁 𝑅 ( 𝑂𝑎 ) ) )
60 1 2 3 4 5 6 7 ordtypelem1 ( 𝜑𝑂 = ( 𝐹𝑇 ) )
61 60 ad2antrr ( ( ( 𝜑𝑁 ∈ ( 𝐴 ∖ ran 𝑂 ) ) ∧ ( 𝑎 ∈ dom 𝑂 ∧ ∀ 𝑏𝑎 ( 𝑂𝑏 ) 𝑅 𝑁 ) ) → 𝑂 = ( 𝐹𝑇 ) )
62 61 fveq1d ( ( ( 𝜑𝑁 ∈ ( 𝐴 ∖ ran 𝑂 ) ) ∧ ( 𝑎 ∈ dom 𝑂 ∧ ∀ 𝑏𝑎 ( 𝑂𝑏 ) 𝑅 𝑁 ) ) → ( 𝑂𝑎 ) = ( ( 𝐹𝑇 ) ‘ 𝑎 ) )
63 52 elin1d ( ( ( 𝜑𝑁 ∈ ( 𝐴 ∖ ran 𝑂 ) ) ∧ ( 𝑎 ∈ dom 𝑂 ∧ ∀ 𝑏𝑎 ( 𝑂𝑏 ) 𝑅 𝑁 ) ) → 𝑎𝑇 )
64 63 fvresd ( ( ( 𝜑𝑁 ∈ ( 𝐴 ∖ ran 𝑂 ) ) ∧ ( 𝑎 ∈ dom 𝑂 ∧ ∀ 𝑏𝑎 ( 𝑂𝑏 ) 𝑅 𝑁 ) ) → ( ( 𝐹𝑇 ) ‘ 𝑎 ) = ( 𝐹𝑎 ) )
65 62 64 eqtrd ( ( ( 𝜑𝑁 ∈ ( 𝐴 ∖ ran 𝑂 ) ) ∧ ( 𝑎 ∈ dom 𝑂 ∧ ∀ 𝑏𝑎 ( 𝑂𝑏 ) 𝑅 𝑁 ) ) → ( 𝑂𝑎 ) = ( 𝐹𝑎 ) )
66 simpll ( ( ( 𝜑𝑁 ∈ ( 𝐴 ∖ ran 𝑂 ) ) ∧ ( 𝑎 ∈ dom 𝑂 ∧ ∀ 𝑏𝑎 ( 𝑂𝑏 ) 𝑅 𝑁 ) ) → 𝜑 )
67 1 2 3 4 5 6 7 ordtypelem3 ( ( 𝜑𝑎 ∈ ( 𝑇 ∩ dom 𝐹 ) ) → ( 𝐹𝑎 ) ∈ { 𝑣 ∈ { 𝑤𝐴 ∣ ∀ 𝑗 ∈ ( 𝐹𝑎 ) 𝑗 𝑅 𝑤 } ∣ ∀ 𝑢 ∈ { 𝑤𝐴 ∣ ∀ 𝑗 ∈ ( 𝐹𝑎 ) 𝑗 𝑅 𝑤 } ¬ 𝑢 𝑅 𝑣 } )
68 66 52 67 syl2anc ( ( ( 𝜑𝑁 ∈ ( 𝐴 ∖ ran 𝑂 ) ) ∧ ( 𝑎 ∈ dom 𝑂 ∧ ∀ 𝑏𝑎 ( 𝑂𝑏 ) 𝑅 𝑁 ) ) → ( 𝐹𝑎 ) ∈ { 𝑣 ∈ { 𝑤𝐴 ∣ ∀ 𝑗 ∈ ( 𝐹𝑎 ) 𝑗 𝑅 𝑤 } ∣ ∀ 𝑢 ∈ { 𝑤𝐴 ∣ ∀ 𝑗 ∈ ( 𝐹𝑎 ) 𝑗 𝑅 𝑤 } ¬ 𝑢 𝑅 𝑣 } )
69 65 68 eqeltrd ( ( ( 𝜑𝑁 ∈ ( 𝐴 ∖ ran 𝑂 ) ) ∧ ( 𝑎 ∈ dom 𝑂 ∧ ∀ 𝑏𝑎 ( 𝑂𝑏 ) 𝑅 𝑁 ) ) → ( 𝑂𝑎 ) ∈ { 𝑣 ∈ { 𝑤𝐴 ∣ ∀ 𝑗 ∈ ( 𝐹𝑎 ) 𝑗 𝑅 𝑤 } ∣ ∀ 𝑢 ∈ { 𝑤𝐴 ∣ ∀ 𝑗 ∈ ( 𝐹𝑎 ) 𝑗 𝑅 𝑤 } ¬ 𝑢 𝑅 𝑣 } )
70 breq2 ( 𝑣 = ( 𝑂𝑎 ) → ( 𝑢 𝑅 𝑣𝑢 𝑅 ( 𝑂𝑎 ) ) )
71 70 notbid ( 𝑣 = ( 𝑂𝑎 ) → ( ¬ 𝑢 𝑅 𝑣 ↔ ¬ 𝑢 𝑅 ( 𝑂𝑎 ) ) )
72 71 ralbidv ( 𝑣 = ( 𝑂𝑎 ) → ( ∀ 𝑢 ∈ { 𝑤𝐴 ∣ ∀ 𝑗 ∈ ( 𝐹𝑎 ) 𝑗 𝑅 𝑤 } ¬ 𝑢 𝑅 𝑣 ↔ ∀ 𝑢 ∈ { 𝑤𝐴 ∣ ∀ 𝑗 ∈ ( 𝐹𝑎 ) 𝑗 𝑅 𝑤 } ¬ 𝑢 𝑅 ( 𝑂𝑎 ) ) )
73 72 elrab ( ( 𝑂𝑎 ) ∈ { 𝑣 ∈ { 𝑤𝐴 ∣ ∀ 𝑗 ∈ ( 𝐹𝑎 ) 𝑗 𝑅 𝑤 } ∣ ∀ 𝑢 ∈ { 𝑤𝐴 ∣ ∀ 𝑗 ∈ ( 𝐹𝑎 ) 𝑗 𝑅 𝑤 } ¬ 𝑢 𝑅 𝑣 } ↔ ( ( 𝑂𝑎 ) ∈ { 𝑤𝐴 ∣ ∀ 𝑗 ∈ ( 𝐹𝑎 ) 𝑗 𝑅 𝑤 } ∧ ∀ 𝑢 ∈ { 𝑤𝐴 ∣ ∀ 𝑗 ∈ ( 𝐹𝑎 ) 𝑗 𝑅 𝑤 } ¬ 𝑢 𝑅 ( 𝑂𝑎 ) ) )
74 73 simprbi ( ( 𝑂𝑎 ) ∈ { 𝑣 ∈ { 𝑤𝐴 ∣ ∀ 𝑗 ∈ ( 𝐹𝑎 ) 𝑗 𝑅 𝑤 } ∣ ∀ 𝑢 ∈ { 𝑤𝐴 ∣ ∀ 𝑗 ∈ ( 𝐹𝑎 ) 𝑗 𝑅 𝑤 } ¬ 𝑢 𝑅 𝑣 } → ∀ 𝑢 ∈ { 𝑤𝐴 ∣ ∀ 𝑗 ∈ ( 𝐹𝑎 ) 𝑗 𝑅 𝑤 } ¬ 𝑢 𝑅 ( 𝑂𝑎 ) )
75 69 74 syl ( ( ( 𝜑𝑁 ∈ ( 𝐴 ∖ ran 𝑂 ) ) ∧ ( 𝑎 ∈ dom 𝑂 ∧ ∀ 𝑏𝑎 ( 𝑂𝑏 ) 𝑅 𝑁 ) ) → ∀ 𝑢 ∈ { 𝑤𝐴 ∣ ∀ 𝑗 ∈ ( 𝐹𝑎 ) 𝑗 𝑅 𝑤 } ¬ 𝑢 𝑅 ( 𝑂𝑎 ) )
76 breq2 ( 𝑤 = 𝑁 → ( 𝑗 𝑅 𝑤𝑗 𝑅 𝑁 ) )
77 76 ralbidv ( 𝑤 = 𝑁 → ( ∀ 𝑗 ∈ ( 𝐹𝑎 ) 𝑗 𝑅 𝑤 ↔ ∀ 𝑗 ∈ ( 𝐹𝑎 ) 𝑗 𝑅 𝑁 ) )
78 eldifi ( 𝑁 ∈ ( 𝐴 ∖ ran 𝑂 ) → 𝑁𝐴 )
79 78 ad2antlr ( ( ( 𝜑𝑁 ∈ ( 𝐴 ∖ ran 𝑂 ) ) ∧ ( 𝑎 ∈ dom 𝑂 ∧ ∀ 𝑏𝑎 ( 𝑂𝑏 ) 𝑅 𝑁 ) ) → 𝑁𝐴 )
80 simprr ( ( ( 𝜑𝑁 ∈ ( 𝐴 ∖ ran 𝑂 ) ) ∧ ( 𝑎 ∈ dom 𝑂 ∧ ∀ 𝑏𝑎 ( 𝑂𝑏 ) 𝑅 𝑁 ) ) → ∀ 𝑏𝑎 ( 𝑂𝑏 ) 𝑅 𝑁 )
81 41 adantrr ( ( ( 𝜑𝑁 ∈ ( 𝐴 ∖ ran 𝑂 ) ) ∧ ( 𝑎 ∈ dom 𝑂 ∧ ∀ 𝑏𝑎 ( 𝑂𝑏 ) 𝑅 𝑁 ) ) → 𝑎 ⊆ dom 𝑂 )
82 48 81 fssdmd ( ( ( 𝜑𝑁 ∈ ( 𝐴 ∖ ran 𝑂 ) ) ∧ ( 𝑎 ∈ dom 𝑂 ∧ ∀ 𝑏𝑎 ( 𝑂𝑏 ) 𝑅 𝑁 ) ) → 𝑎 ⊆ ( 𝑇 ∩ dom 𝐹 ) )
83 82 12 sstrdi ( ( ( 𝜑𝑁 ∈ ( 𝐴 ∖ ran 𝑂 ) ) ∧ ( 𝑎 ∈ dom 𝑂 ∧ ∀ 𝑏𝑎 ( 𝑂𝑏 ) 𝑅 𝑁 ) ) → 𝑎𝑇 )
84 fveq1 ( 𝑂 = ( 𝐹𝑇 ) → ( 𝑂𝑏 ) = ( ( 𝐹𝑇 ) ‘ 𝑏 ) )
85 ssel2 ( ( 𝑎𝑇𝑏𝑎 ) → 𝑏𝑇 )
86 85 fvresd ( ( 𝑎𝑇𝑏𝑎 ) → ( ( 𝐹𝑇 ) ‘ 𝑏 ) = ( 𝐹𝑏 ) )
87 84 86 sylan9eq ( ( 𝑂 = ( 𝐹𝑇 ) ∧ ( 𝑎𝑇𝑏𝑎 ) ) → ( 𝑂𝑏 ) = ( 𝐹𝑏 ) )
88 87 anassrs ( ( ( 𝑂 = ( 𝐹𝑇 ) ∧ 𝑎𝑇 ) ∧ 𝑏𝑎 ) → ( 𝑂𝑏 ) = ( 𝐹𝑏 ) )
89 88 breq1d ( ( ( 𝑂 = ( 𝐹𝑇 ) ∧ 𝑎𝑇 ) ∧ 𝑏𝑎 ) → ( ( 𝑂𝑏 ) 𝑅 𝑁 ↔ ( 𝐹𝑏 ) 𝑅 𝑁 ) )
90 89 ralbidva ( ( 𝑂 = ( 𝐹𝑇 ) ∧ 𝑎𝑇 ) → ( ∀ 𝑏𝑎 ( 𝑂𝑏 ) 𝑅 𝑁 ↔ ∀ 𝑏𝑎 ( 𝐹𝑏 ) 𝑅 𝑁 ) )
91 61 83 90 syl2anc ( ( ( 𝜑𝑁 ∈ ( 𝐴 ∖ ran 𝑂 ) ) ∧ ( 𝑎 ∈ dom 𝑂 ∧ ∀ 𝑏𝑎 ( 𝑂𝑏 ) 𝑅 𝑁 ) ) → ( ∀ 𝑏𝑎 ( 𝑂𝑏 ) 𝑅 𝑁 ↔ ∀ 𝑏𝑎 ( 𝐹𝑏 ) 𝑅 𝑁 ) )
92 80 91 mpbid ( ( ( 𝜑𝑁 ∈ ( 𝐴 ∖ ran 𝑂 ) ) ∧ ( 𝑎 ∈ dom 𝑂 ∧ ∀ 𝑏𝑎 ( 𝑂𝑏 ) 𝑅 𝑁 ) ) → ∀ 𝑏𝑎 ( 𝐹𝑏 ) 𝑅 𝑁 )
93 31 simpli Fun 𝐹
94 funfn ( Fun 𝐹𝐹 Fn dom 𝐹 )
95 93 94 mpbi 𝐹 Fn dom 𝐹
96 inss2 ( 𝑇 ∩ dom 𝐹 ) ⊆ dom 𝐹
97 82 96 sstrdi ( ( ( 𝜑𝑁 ∈ ( 𝐴 ∖ ran 𝑂 ) ) ∧ ( 𝑎 ∈ dom 𝑂 ∧ ∀ 𝑏𝑎 ( 𝑂𝑏 ) 𝑅 𝑁 ) ) → 𝑎 ⊆ dom 𝐹 )
98 breq1 ( 𝑗 = ( 𝐹𝑏 ) → ( 𝑗 𝑅 𝑁 ↔ ( 𝐹𝑏 ) 𝑅 𝑁 ) )
99 98 ralima ( ( 𝐹 Fn dom 𝐹𝑎 ⊆ dom 𝐹 ) → ( ∀ 𝑗 ∈ ( 𝐹𝑎 ) 𝑗 𝑅 𝑁 ↔ ∀ 𝑏𝑎 ( 𝐹𝑏 ) 𝑅 𝑁 ) )
100 95 97 99 sylancr ( ( ( 𝜑𝑁 ∈ ( 𝐴 ∖ ran 𝑂 ) ) ∧ ( 𝑎 ∈ dom 𝑂 ∧ ∀ 𝑏𝑎 ( 𝑂𝑏 ) 𝑅 𝑁 ) ) → ( ∀ 𝑗 ∈ ( 𝐹𝑎 ) 𝑗 𝑅 𝑁 ↔ ∀ 𝑏𝑎 ( 𝐹𝑏 ) 𝑅 𝑁 ) )
101 92 100 mpbird ( ( ( 𝜑𝑁 ∈ ( 𝐴 ∖ ran 𝑂 ) ) ∧ ( 𝑎 ∈ dom 𝑂 ∧ ∀ 𝑏𝑎 ( 𝑂𝑏 ) 𝑅 𝑁 ) ) → ∀ 𝑗 ∈ ( 𝐹𝑎 ) 𝑗 𝑅 𝑁 )
102 77 79 101 elrabd ( ( ( 𝜑𝑁 ∈ ( 𝐴 ∖ ran 𝑂 ) ) ∧ ( 𝑎 ∈ dom 𝑂 ∧ ∀ 𝑏𝑎 ( 𝑂𝑏 ) 𝑅 𝑁 ) ) → 𝑁 ∈ { 𝑤𝐴 ∣ ∀ 𝑗 ∈ ( 𝐹𝑎 ) 𝑗 𝑅 𝑤 } )
103 59 75 102 rspcdva ( ( ( 𝜑𝑁 ∈ ( 𝐴 ∖ ran 𝑂 ) ) ∧ ( 𝑎 ∈ dom 𝑂 ∧ ∀ 𝑏𝑎 ( 𝑂𝑏 ) 𝑅 𝑁 ) ) → ¬ 𝑁 𝑅 ( 𝑂𝑎 ) )
104 weso ( 𝑅 We 𝐴𝑅 Or 𝐴 )
105 6 104 syl ( 𝜑𝑅 Or 𝐴 )
106 105 ad2antrr ( ( ( 𝜑𝑁 ∈ ( 𝐴 ∖ ran 𝑂 ) ) ∧ ( 𝑎 ∈ dom 𝑂 ∧ ∀ 𝑏𝑎 ( 𝑂𝑏 ) 𝑅 𝑁 ) ) → 𝑅 Or 𝐴 )
107 48 52 ffvelrnd ( ( ( 𝜑𝑁 ∈ ( 𝐴 ∖ ran 𝑂 ) ) ∧ ( 𝑎 ∈ dom 𝑂 ∧ ∀ 𝑏𝑎 ( 𝑂𝑏 ) 𝑅 𝑁 ) ) → ( 𝑂𝑎 ) ∈ 𝐴 )
108 sotric ( ( 𝑅 Or 𝐴 ∧ ( ( 𝑂𝑎 ) ∈ 𝐴𝑁𝐴 ) ) → ( ( 𝑂𝑎 ) 𝑅 𝑁 ↔ ¬ ( ( 𝑂𝑎 ) = 𝑁𝑁 𝑅 ( 𝑂𝑎 ) ) ) )
109 106 107 79 108 syl12anc ( ( ( 𝜑𝑁 ∈ ( 𝐴 ∖ ran 𝑂 ) ) ∧ ( 𝑎 ∈ dom 𝑂 ∧ ∀ 𝑏𝑎 ( 𝑂𝑏 ) 𝑅 𝑁 ) ) → ( ( 𝑂𝑎 ) 𝑅 𝑁 ↔ ¬ ( ( 𝑂𝑎 ) = 𝑁𝑁 𝑅 ( 𝑂𝑎 ) ) ) )
110 ioran ( ¬ ( ( 𝑂𝑎 ) = 𝑁𝑁 𝑅 ( 𝑂𝑎 ) ) ↔ ( ¬ ( 𝑂𝑎 ) = 𝑁 ∧ ¬ 𝑁 𝑅 ( 𝑂𝑎 ) ) )
111 109 110 bitrdi ( ( ( 𝜑𝑁 ∈ ( 𝐴 ∖ ran 𝑂 ) ) ∧ ( 𝑎 ∈ dom 𝑂 ∧ ∀ 𝑏𝑎 ( 𝑂𝑏 ) 𝑅 𝑁 ) ) → ( ( 𝑂𝑎 ) 𝑅 𝑁 ↔ ( ¬ ( 𝑂𝑎 ) = 𝑁 ∧ ¬ 𝑁 𝑅 ( 𝑂𝑎 ) ) ) )
112 57 103 111 mpbir2and ( ( ( 𝜑𝑁 ∈ ( 𝐴 ∖ ran 𝑂 ) ) ∧ ( 𝑎 ∈ dom 𝑂 ∧ ∀ 𝑏𝑎 ( 𝑂𝑏 ) 𝑅 𝑁 ) ) → ( 𝑂𝑎 ) 𝑅 𝑁 )
113 112 expr ( ( ( 𝜑𝑁 ∈ ( 𝐴 ∖ ran 𝑂 ) ) ∧ 𝑎 ∈ dom 𝑂 ) → ( ∀ 𝑏𝑎 ( 𝑂𝑏 ) 𝑅 𝑁 → ( 𝑂𝑎 ) 𝑅 𝑁 ) )
114 45 113 sylbid ( ( ( 𝜑𝑁 ∈ ( 𝐴 ∖ ran 𝑂 ) ) ∧ 𝑎 ∈ dom 𝑂 ) → ( ∀ 𝑏𝑎 ( 𝑏 ∈ dom 𝑂 → ( 𝑂𝑏 ) 𝑅 𝑁 ) → ( 𝑂𝑎 ) 𝑅 𝑁 ) )
115 114 ex ( ( 𝜑𝑁 ∈ ( 𝐴 ∖ ran 𝑂 ) ) → ( 𝑎 ∈ dom 𝑂 → ( ∀ 𝑏𝑎 ( 𝑏 ∈ dom 𝑂 → ( 𝑂𝑏 ) 𝑅 𝑁 ) → ( 𝑂𝑎 ) 𝑅 𝑁 ) ) )
116 115 com23 ( ( 𝜑𝑁 ∈ ( 𝐴 ∖ ran 𝑂 ) ) → ( ∀ 𝑏𝑎 ( 𝑏 ∈ dom 𝑂 → ( 𝑂𝑏 ) 𝑅 𝑁 ) → ( 𝑎 ∈ dom 𝑂 → ( 𝑂𝑎 ) 𝑅 𝑁 ) ) )
117 116 a2i ( ( ( 𝜑𝑁 ∈ ( 𝐴 ∖ ran 𝑂 ) ) → ∀ 𝑏𝑎 ( 𝑏 ∈ dom 𝑂 → ( 𝑂𝑏 ) 𝑅 𝑁 ) ) → ( ( 𝜑𝑁 ∈ ( 𝐴 ∖ ran 𝑂 ) ) → ( 𝑎 ∈ dom 𝑂 → ( 𝑂𝑎 ) 𝑅 𝑁 ) ) )
118 117 a1i ( 𝑎 ∈ On → ( ( ( 𝜑𝑁 ∈ ( 𝐴 ∖ ran 𝑂 ) ) → ∀ 𝑏𝑎 ( 𝑏 ∈ dom 𝑂 → ( 𝑂𝑏 ) 𝑅 𝑁 ) ) → ( ( 𝜑𝑁 ∈ ( 𝐴 ∖ ran 𝑂 ) ) → ( 𝑎 ∈ dom 𝑂 → ( 𝑂𝑎 ) 𝑅 𝑁 ) ) ) )
119 30 118 syl5bi ( 𝑎 ∈ On → ( ∀ 𝑏𝑎 ( ( 𝜑𝑁 ∈ ( 𝐴 ∖ ran 𝑂 ) ) → ( 𝑏 ∈ dom 𝑂 → ( 𝑂𝑏 ) 𝑅 𝑁 ) ) → ( ( 𝜑𝑁 ∈ ( 𝐴 ∖ ran 𝑂 ) ) → ( 𝑎 ∈ dom 𝑂 → ( 𝑂𝑎 ) 𝑅 𝑁 ) ) ) )
120 24 29 119 tfis3 ( 𝑀 ∈ On → ( ( 𝜑𝑁 ∈ ( 𝐴 ∖ ran 𝑂 ) ) → ( 𝑀 ∈ dom 𝑂 → ( 𝑂𝑀 ) 𝑅 𝑁 ) ) )
121 120 com3l ( ( 𝜑𝑁 ∈ ( 𝐴 ∖ ran 𝑂 ) ) → ( 𝑀 ∈ dom 𝑂 → ( 𝑀 ∈ On → ( 𝑂𝑀 ) 𝑅 𝑁 ) ) )
122 19 121 mpdd ( ( 𝜑𝑁 ∈ ( 𝐴 ∖ ran 𝑂 ) ) → ( 𝑀 ∈ dom 𝑂 → ( 𝑂𝑀 ) 𝑅 𝑁 ) )
123 8 122 sylan2br ( ( 𝜑 ∧ ( 𝑁𝐴 ∧ ¬ 𝑁 ∈ ran 𝑂 ) ) → ( 𝑀 ∈ dom 𝑂 → ( 𝑂𝑀 ) 𝑅 𝑁 ) )
124 123 anassrs ( ( ( 𝜑𝑁𝐴 ) ∧ ¬ 𝑁 ∈ ran 𝑂 ) → ( 𝑀 ∈ dom 𝑂 → ( 𝑂𝑀 ) 𝑅 𝑁 ) )
125 124 impancom ( ( ( 𝜑𝑁𝐴 ) ∧ 𝑀 ∈ dom 𝑂 ) → ( ¬ 𝑁 ∈ ran 𝑂 → ( 𝑂𝑀 ) 𝑅 𝑁 ) )
126 125 orrd ( ( ( 𝜑𝑁𝐴 ) ∧ 𝑀 ∈ dom 𝑂 ) → ( 𝑁 ∈ ran 𝑂 ∨ ( 𝑂𝑀 ) 𝑅 𝑁 ) )
127 126 orcomd ( ( ( 𝜑𝑁𝐴 ) ∧ 𝑀 ∈ dom 𝑂 ) → ( ( 𝑂𝑀 ) 𝑅 𝑁𝑁 ∈ ran 𝑂 ) )