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

Theorem ordtypelem6 9561
Description: Lemma for ordtype 9570. (Contributed by Mario Carneiro, 24-Jun-2015.)
Hypotheses
Ref Expression
ordtypelem.1 𝐹 = recs(𝐺)
ordtypelem.2 𝐶 = {𝑤𝐴 ∣ ∀𝑗 ∈ ran 𝑗𝑅𝑤}
ordtypelem.3 𝐺 = ( ∈ V ↦ (𝑣𝐶𝑢𝐶 ¬ 𝑢𝑅𝑣))
ordtypelem.5 𝑇 = {𝑥 ∈ On ∣ ∃𝑡𝐴𝑧 ∈ (𝐹𝑥)𝑧𝑅𝑡}
ordtypelem.6 𝑂 = OrdIso(𝑅, 𝐴)
ordtypelem.7 (𝜑𝑅 We 𝐴)
ordtypelem.8 (𝜑𝑅 Se 𝐴)
Assertion
Ref Expression
ordtypelem6 ((𝜑𝑀 ∈ dom 𝑂) → (𝑁𝑀 → (𝑂𝑁)𝑅(𝑂𝑀)))
Distinct variable groups:   𝑣,𝑢,𝐶   ,𝑗,𝑡,𝑢,𝑣,𝑤,𝑥,𝑧,𝑀   𝑗,𝑁,𝑢,𝑤   𝑅,,𝑗,𝑡,𝑢,𝑣,𝑤,𝑥,𝑧   𝐴,,𝑗,𝑡,𝑢,𝑣,𝑤,𝑥,𝑧   𝑡,𝑂,𝑢,𝑣,𝑥   𝜑,𝑡,𝑥   ,𝐹,𝑗,𝑡,𝑢,𝑣,𝑤,𝑥,𝑧
Allowed substitution hints:   𝜑(𝑧,𝑤,𝑣,𝑢,,𝑗)   𝐶(𝑥,𝑧,𝑤,𝑡,,𝑗)   𝑇(𝑥,𝑧,𝑤,𝑣,𝑢,𝑡,,𝑗)   𝐺(𝑥,𝑧,𝑤,𝑣,𝑢,𝑡,,𝑗)   𝑁(𝑥,𝑧,𝑣,𝑡,)   𝑂(𝑧,𝑤,,𝑗)

Proof of Theorem ordtypelem6
Dummy variable 𝑎 is distinct from all other variables.
StepHypRef Expression
1 fveq2 6907 . . . . 5 (𝑎 = 𝑁 → (𝐹𝑎) = (𝐹𝑁))
21breq1d 5158 . . . 4 (𝑎 = 𝑁 → ((𝐹𝑎)𝑅(𝐹𝑀) ↔ (𝐹𝑁)𝑅(𝐹𝑀)))
3 ssrab2 4090 . . . . . . . 8 {𝑣 ∈ {𝑤𝐴 ∣ ∀𝑗 ∈ (𝐹𝑀)𝑗𝑅𝑤} ∣ ∀𝑢 ∈ {𝑤𝐴 ∣ ∀𝑗 ∈ (𝐹𝑀)𝑗𝑅𝑤} ¬ 𝑢𝑅𝑣} ⊆ {𝑤𝐴 ∣ ∀𝑗 ∈ (𝐹𝑀)𝑗𝑅𝑤}
4 simpr 484 . . . . . . . . . 10 ((𝜑𝑀 ∈ dom 𝑂) → 𝑀 ∈ dom 𝑂)
5 ordtypelem.1 . . . . . . . . . . . . 13 𝐹 = recs(𝐺)
6 ordtypelem.2 . . . . . . . . . . . . 13 𝐶 = {𝑤𝐴 ∣ ∀𝑗 ∈ ran 𝑗𝑅𝑤}
7 ordtypelem.3 . . . . . . . . . . . . 13 𝐺 = ( ∈ V ↦ (𝑣𝐶𝑢𝐶 ¬ 𝑢𝑅𝑣))
8 ordtypelem.5 . . . . . . . . . . . . 13 𝑇 = {𝑥 ∈ On ∣ ∃𝑡𝐴𝑧 ∈ (𝐹𝑥)𝑧𝑅𝑡}
9 ordtypelem.6 . . . . . . . . . . . . 13 𝑂 = OrdIso(𝑅, 𝐴)
10 ordtypelem.7 . . . . . . . . . . . . 13 (𝜑𝑅 We 𝐴)
11 ordtypelem.8 . . . . . . . . . . . . 13 (𝜑𝑅 Se 𝐴)
125, 6, 7, 8, 9, 10, 11ordtypelem4 9559 . . . . . . . . . . . 12 (𝜑𝑂:(𝑇 ∩ dom 𝐹)⟶𝐴)
1312fdmd 6747 . . . . . . . . . . 11 (𝜑 → dom 𝑂 = (𝑇 ∩ dom 𝐹))
1413adantr 480 . . . . . . . . . 10 ((𝜑𝑀 ∈ dom 𝑂) → dom 𝑂 = (𝑇 ∩ dom 𝐹))
154, 14eleqtrd 2841 . . . . . . . . 9 ((𝜑𝑀 ∈ dom 𝑂) → 𝑀 ∈ (𝑇 ∩ dom 𝐹))
165, 6, 7, 8, 9, 10, 11ordtypelem3 9558 . . . . . . . . 9 ((𝜑𝑀 ∈ (𝑇 ∩ dom 𝐹)) → (𝐹𝑀) ∈ {𝑣 ∈ {𝑤𝐴 ∣ ∀𝑗 ∈ (𝐹𝑀)𝑗𝑅𝑤} ∣ ∀𝑢 ∈ {𝑤𝐴 ∣ ∀𝑗 ∈ (𝐹𝑀)𝑗𝑅𝑤} ¬ 𝑢𝑅𝑣})
1715, 16syldan 591 . . . . . . . 8 ((𝜑𝑀 ∈ dom 𝑂) → (𝐹𝑀) ∈ {𝑣 ∈ {𝑤𝐴 ∣ ∀𝑗 ∈ (𝐹𝑀)𝑗𝑅𝑤} ∣ ∀𝑢 ∈ {𝑤𝐴 ∣ ∀𝑗 ∈ (𝐹𝑀)𝑗𝑅𝑤} ¬ 𝑢𝑅𝑣})
183, 17sselid 3993 . . . . . . 7 ((𝜑𝑀 ∈ dom 𝑂) → (𝐹𝑀) ∈ {𝑤𝐴 ∣ ∀𝑗 ∈ (𝐹𝑀)𝑗𝑅𝑤})
19 breq2 5152 . . . . . . . . . 10 (𝑤 = (𝐹𝑀) → (𝑗𝑅𝑤𝑗𝑅(𝐹𝑀)))
2019ralbidv 3176 . . . . . . . . 9 (𝑤 = (𝐹𝑀) → (∀𝑗 ∈ (𝐹𝑀)𝑗𝑅𝑤 ↔ ∀𝑗 ∈ (𝐹𝑀)𝑗𝑅(𝐹𝑀)))
2120elrab 3695 . . . . . . . 8 ((𝐹𝑀) ∈ {𝑤𝐴 ∣ ∀𝑗 ∈ (𝐹𝑀)𝑗𝑅𝑤} ↔ ((𝐹𝑀) ∈ 𝐴 ∧ ∀𝑗 ∈ (𝐹𝑀)𝑗𝑅(𝐹𝑀)))
2221simprbi 496 . . . . . . 7 ((𝐹𝑀) ∈ {𝑤𝐴 ∣ ∀𝑗 ∈ (𝐹𝑀)𝑗𝑅𝑤} → ∀𝑗 ∈ (𝐹𝑀)𝑗𝑅(𝐹𝑀))
2318, 22syl 17 . . . . . 6 ((𝜑𝑀 ∈ dom 𝑂) → ∀𝑗 ∈ (𝐹𝑀)𝑗𝑅(𝐹𝑀))
245tfr1a 8433 . . . . . . . . 9 (Fun 𝐹 ∧ Lim dom 𝐹)
2524simpli 483 . . . . . . . 8 Fun 𝐹
26 funfn 6598 . . . . . . . 8 (Fun 𝐹𝐹 Fn dom 𝐹)
2725, 26mpbi 230 . . . . . . 7 𝐹 Fn dom 𝐹
2824simpri 485 . . . . . . . . 9 Lim dom 𝐹
29 limord 6446 . . . . . . . . 9 (Lim dom 𝐹 → Ord dom 𝐹)
3028, 29ax-mp 5 . . . . . . . 8 Ord dom 𝐹
31 inss2 4246 . . . . . . . . . 10 (𝑇 ∩ dom 𝐹) ⊆ dom 𝐹
3213, 31eqsstrdi 4050 . . . . . . . . 9 (𝜑 → dom 𝑂 ⊆ dom 𝐹)
3332sselda 3995 . . . . . . . 8 ((𝜑𝑀 ∈ dom 𝑂) → 𝑀 ∈ dom 𝐹)
34 ordelss 6402 . . . . . . . 8 ((Ord dom 𝐹𝑀 ∈ dom 𝐹) → 𝑀 ⊆ dom 𝐹)
3530, 33, 34sylancr 587 . . . . . . 7 ((𝜑𝑀 ∈ dom 𝑂) → 𝑀 ⊆ dom 𝐹)
36 breq1 5151 . . . . . . . 8 (𝑗 = (𝐹𝑎) → (𝑗𝑅(𝐹𝑀) ↔ (𝐹𝑎)𝑅(𝐹𝑀)))
3736ralima 7257 . . . . . . 7 ((𝐹 Fn dom 𝐹𝑀 ⊆ dom 𝐹) → (∀𝑗 ∈ (𝐹𝑀)𝑗𝑅(𝐹𝑀) ↔ ∀𝑎𝑀 (𝐹𝑎)𝑅(𝐹𝑀)))
3827, 35, 37sylancr 587 . . . . . 6 ((𝜑𝑀 ∈ dom 𝑂) → (∀𝑗 ∈ (𝐹𝑀)𝑗𝑅(𝐹𝑀) ↔ ∀𝑎𝑀 (𝐹𝑎)𝑅(𝐹𝑀)))
3923, 38mpbid 232 . . . . 5 ((𝜑𝑀 ∈ dom 𝑂) → ∀𝑎𝑀 (𝐹𝑎)𝑅(𝐹𝑀))
4039adantrr 717 . . . 4 ((𝜑 ∧ (𝑀 ∈ dom 𝑂𝑁𝑀)) → ∀𝑎𝑀 (𝐹𝑎)𝑅(𝐹𝑀))
41 simprr 773 . . . 4 ((𝜑 ∧ (𝑀 ∈ dom 𝑂𝑁𝑀)) → 𝑁𝑀)
422, 40, 41rspcdva 3623 . . 3 ((𝜑 ∧ (𝑀 ∈ dom 𝑂𝑁𝑀)) → (𝐹𝑁)𝑅(𝐹𝑀))
435, 6, 7, 8, 9, 10, 11ordtypelem1 9556 . . . . . 6 (𝜑𝑂 = (𝐹𝑇))
4443adantr 480 . . . . 5 ((𝜑 ∧ (𝑀 ∈ dom 𝑂𝑁𝑀)) → 𝑂 = (𝐹𝑇))
4544fveq1d 6909 . . . 4 ((𝜑 ∧ (𝑀 ∈ dom 𝑂𝑁𝑀)) → (𝑂𝑁) = ((𝐹𝑇)‘𝑁))
465, 6, 7, 8, 9, 10, 11ordtypelem2 9557 . . . . . . 7 (𝜑 → Ord 𝑇)
47 inss1 4245 . . . . . . . . . 10 (𝑇 ∩ dom 𝐹) ⊆ 𝑇
4813, 47eqsstrdi 4050 . . . . . . . . 9 (𝜑 → dom 𝑂𝑇)
4948sselda 3995 . . . . . . . 8 ((𝜑𝑀 ∈ dom 𝑂) → 𝑀𝑇)
5049adantrr 717 . . . . . . 7 ((𝜑 ∧ (𝑀 ∈ dom 𝑂𝑁𝑀)) → 𝑀𝑇)
51 ordelss 6402 . . . . . . 7 ((Ord 𝑇𝑀𝑇) → 𝑀𝑇)
5246, 50, 51syl2an2r 685 . . . . . 6 ((𝜑 ∧ (𝑀 ∈ dom 𝑂𝑁𝑀)) → 𝑀𝑇)
5352, 41sseldd 3996 . . . . 5 ((𝜑 ∧ (𝑀 ∈ dom 𝑂𝑁𝑀)) → 𝑁𝑇)
5453fvresd 6927 . . . 4 ((𝜑 ∧ (𝑀 ∈ dom 𝑂𝑁𝑀)) → ((𝐹𝑇)‘𝑁) = (𝐹𝑁))
5545, 54eqtrd 2775 . . 3 ((𝜑 ∧ (𝑀 ∈ dom 𝑂𝑁𝑀)) → (𝑂𝑁) = (𝐹𝑁))
5644fveq1d 6909 . . . 4 ((𝜑 ∧ (𝑀 ∈ dom 𝑂𝑁𝑀)) → (𝑂𝑀) = ((𝐹𝑇)‘𝑀))
5750fvresd 6927 . . . 4 ((𝜑 ∧ (𝑀 ∈ dom 𝑂𝑁𝑀)) → ((𝐹𝑇)‘𝑀) = (𝐹𝑀))
5856, 57eqtrd 2775 . . 3 ((𝜑 ∧ (𝑀 ∈ dom 𝑂𝑁𝑀)) → (𝑂𝑀) = (𝐹𝑀))
5942, 55, 583brtr4d 5180 . 2 ((𝜑 ∧ (𝑀 ∈ dom 𝑂𝑁𝑀)) → (𝑂𝑁)𝑅(𝑂𝑀))
6059expr 456 1 ((𝜑𝑀 ∈ dom 𝑂) → (𝑁𝑀 → (𝑂𝑁)𝑅(𝑂𝑀)))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 206  wa 395   = wceq 1537  wcel 2106  wral 3059  wrex 3068  {crab 3433  Vcvv 3478  cin 3962  wss 3963   class class class wbr 5148  cmpt 5231   Se wse 5639   We wwe 5640  dom cdm 5689  ran crn 5690  cres 5691  cima 5692  Ord word 6385  Oncon0 6386  Lim wlim 6387  Fun wfun 6557   Fn wfn 6558  cfv 6563  crio 7387  recscrecs 8409  OrdIsocoi 9547
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-sep 5302  ax-nul 5312  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-rmo 3378  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-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-2nd 8014  df-frecs 8305  df-wrecs 8336  df-recs 8410  df-oi 9548
This theorem is referenced by:  ordtypelem8  9563
  Copyright terms: Public domain W3C validator