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

Theorem ordtypelem6 8375
Description: Lemma for ordtype 8384. (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 simprr 795 . . . 4 ((𝜑 ∧ (𝑀 ∈ dom 𝑂𝑁𝑀)) → 𝑁𝑀)
2 ssrab2 3668 . . . . . . . 8 {𝑣 ∈ {𝑤𝐴 ∣ ∀𝑗 ∈ (𝐹𝑀)𝑗𝑅𝑤} ∣ ∀𝑢 ∈ {𝑤𝐴 ∣ ∀𝑗 ∈ (𝐹𝑀)𝑗𝑅𝑤} ¬ 𝑢𝑅𝑣} ⊆ {𝑤𝐴 ∣ ∀𝑗 ∈ (𝐹𝑀)𝑗𝑅𝑤}
3 simpr 477 . . . . . . . . . 10 ((𝜑𝑀 ∈ dom 𝑂) → 𝑀 ∈ dom 𝑂)
4 ordtypelem.1 . . . . . . . . . . . . 13 𝐹 = recs(𝐺)
5 ordtypelem.2 . . . . . . . . . . . . 13 𝐶 = {𝑤𝐴 ∣ ∀𝑗 ∈ ran 𝑗𝑅𝑤}
6 ordtypelem.3 . . . . . . . . . . . . 13 𝐺 = ( ∈ V ↦ (𝑣𝐶𝑢𝐶 ¬ 𝑢𝑅𝑣))
7 ordtypelem.5 . . . . . . . . . . . . 13 𝑇 = {𝑥 ∈ On ∣ ∃𝑡𝐴𝑧 ∈ (𝐹𝑥)𝑧𝑅𝑡}
8 ordtypelem.6 . . . . . . . . . . . . 13 𝑂 = OrdIso(𝑅, 𝐴)
9 ordtypelem.7 . . . . . . . . . . . . 13 (𝜑𝑅 We 𝐴)
10 ordtypelem.8 . . . . . . . . . . . . 13 (𝜑𝑅 Se 𝐴)
114, 5, 6, 7, 8, 9, 10ordtypelem4 8373 . . . . . . . . . . . 12 (𝜑𝑂:(𝑇 ∩ dom 𝐹)⟶𝐴)
12 fdm 6010 . . . . . . . . . . . 12 (𝑂:(𝑇 ∩ dom 𝐹)⟶𝐴 → dom 𝑂 = (𝑇 ∩ dom 𝐹))
1311, 12syl 17 . . . . . . . . . . 11 (𝜑 → dom 𝑂 = (𝑇 ∩ dom 𝐹))
1413adantr 481 . . . . . . . . . 10 ((𝜑𝑀 ∈ dom 𝑂) → dom 𝑂 = (𝑇 ∩ dom 𝐹))
153, 14eleqtrd 2700 . . . . . . . . 9 ((𝜑𝑀 ∈ dom 𝑂) → 𝑀 ∈ (𝑇 ∩ dom 𝐹))
164, 5, 6, 7, 8, 9, 10ordtypelem3 8372 . . . . . . . . 9 ((𝜑𝑀 ∈ (𝑇 ∩ dom 𝐹)) → (𝐹𝑀) ∈ {𝑣 ∈ {𝑤𝐴 ∣ ∀𝑗 ∈ (𝐹𝑀)𝑗𝑅𝑤} ∣ ∀𝑢 ∈ {𝑤𝐴 ∣ ∀𝑗 ∈ (𝐹𝑀)𝑗𝑅𝑤} ¬ 𝑢𝑅𝑣})
1715, 16syldan 487 . . . . . . . 8 ((𝜑𝑀 ∈ dom 𝑂) → (𝐹𝑀) ∈ {𝑣 ∈ {𝑤𝐴 ∣ ∀𝑗 ∈ (𝐹𝑀)𝑗𝑅𝑤} ∣ ∀𝑢 ∈ {𝑤𝐴 ∣ ∀𝑗 ∈ (𝐹𝑀)𝑗𝑅𝑤} ¬ 𝑢𝑅𝑣})
182, 17sseldi 3582 . . . . . . 7 ((𝜑𝑀 ∈ dom 𝑂) → (𝐹𝑀) ∈ {𝑤𝐴 ∣ ∀𝑗 ∈ (𝐹𝑀)𝑗𝑅𝑤})
19 breq2 4619 . . . . . . . . . 10 (𝑤 = (𝐹𝑀) → (𝑗𝑅𝑤𝑗𝑅(𝐹𝑀)))
2019ralbidv 2980 . . . . . . . . 9 (𝑤 = (𝐹𝑀) → (∀𝑗 ∈ (𝐹𝑀)𝑗𝑅𝑤 ↔ ∀𝑗 ∈ (𝐹𝑀)𝑗𝑅(𝐹𝑀)))
2120elrab 3347 . . . . . . . 8 ((𝐹𝑀) ∈ {𝑤𝐴 ∣ ∀𝑗 ∈ (𝐹𝑀)𝑗𝑅𝑤} ↔ ((𝐹𝑀) ∈ 𝐴 ∧ ∀𝑗 ∈ (𝐹𝑀)𝑗𝑅(𝐹𝑀)))
2221simprbi 480 . . . . . . 7 ((𝐹𝑀) ∈ {𝑤𝐴 ∣ ∀𝑗 ∈ (𝐹𝑀)𝑗𝑅𝑤} → ∀𝑗 ∈ (𝐹𝑀)𝑗𝑅(𝐹𝑀))
2318, 22syl 17 . . . . . 6 ((𝜑𝑀 ∈ dom 𝑂) → ∀𝑗 ∈ (𝐹𝑀)𝑗𝑅(𝐹𝑀))
244tfr1a 7438 . . . . . . . . 9 (Fun 𝐹 ∧ Lim dom 𝐹)
2524simpli 474 . . . . . . . 8 Fun 𝐹
26 funfn 5879 . . . . . . . 8 (Fun 𝐹𝐹 Fn dom 𝐹)
2725, 26mpbi 220 . . . . . . 7 𝐹 Fn dom 𝐹
2824simpri 478 . . . . . . . . 9 Lim dom 𝐹
29 limord 5745 . . . . . . . . 9 (Lim dom 𝐹 → Ord dom 𝐹)
3028, 29ax-mp 5 . . . . . . . 8 Ord dom 𝐹
31 inss2 3814 . . . . . . . . . 10 (𝑇 ∩ dom 𝐹) ⊆ dom 𝐹
3213, 31syl6eqss 3636 . . . . . . . . 9 (𝜑 → dom 𝑂 ⊆ dom 𝐹)
3332sselda 3584 . . . . . . . 8 ((𝜑𝑀 ∈ dom 𝑂) → 𝑀 ∈ dom 𝐹)
34 ordelss 5700 . . . . . . . 8 ((Ord dom 𝐹𝑀 ∈ dom 𝐹) → 𝑀 ⊆ dom 𝐹)
3530, 33, 34sylancr 694 . . . . . . 7 ((𝜑𝑀 ∈ dom 𝑂) → 𝑀 ⊆ dom 𝐹)
36 breq1 4618 . . . . . . . 8 (𝑗 = (𝐹𝑎) → (𝑗𝑅(𝐹𝑀) ↔ (𝐹𝑎)𝑅(𝐹𝑀)))
3736ralima 6455 . . . . . . 7 ((𝐹 Fn dom 𝐹𝑀 ⊆ dom 𝐹) → (∀𝑗 ∈ (𝐹𝑀)𝑗𝑅(𝐹𝑀) ↔ ∀𝑎𝑀 (𝐹𝑎)𝑅(𝐹𝑀)))
3827, 35, 37sylancr 694 . . . . . 6 ((𝜑𝑀 ∈ dom 𝑂) → (∀𝑗 ∈ (𝐹𝑀)𝑗𝑅(𝐹𝑀) ↔ ∀𝑎𝑀 (𝐹𝑎)𝑅(𝐹𝑀)))
3923, 38mpbid 222 . . . . 5 ((𝜑𝑀 ∈ dom 𝑂) → ∀𝑎𝑀 (𝐹𝑎)𝑅(𝐹𝑀))
4039adantrr 752 . . . 4 ((𝜑 ∧ (𝑀 ∈ dom 𝑂𝑁𝑀)) → ∀𝑎𝑀 (𝐹𝑎)𝑅(𝐹𝑀))
41 fveq2 6150 . . . . . 6 (𝑎 = 𝑁 → (𝐹𝑎) = (𝐹𝑁))
4241breq1d 4625 . . . . 5 (𝑎 = 𝑁 → ((𝐹𝑎)𝑅(𝐹𝑀) ↔ (𝐹𝑁)𝑅(𝐹𝑀)))
4342rspcv 3291 . . . 4 (𝑁𝑀 → (∀𝑎𝑀 (𝐹𝑎)𝑅(𝐹𝑀) → (𝐹𝑁)𝑅(𝐹𝑀)))
441, 40, 43sylc 65 . . 3 ((𝜑 ∧ (𝑀 ∈ dom 𝑂𝑁𝑀)) → (𝐹𝑁)𝑅(𝐹𝑀))
454, 5, 6, 7, 8, 9, 10ordtypelem1 8370 . . . . . 6 (𝜑𝑂 = (𝐹𝑇))
4645adantr 481 . . . . 5 ((𝜑 ∧ (𝑀 ∈ dom 𝑂𝑁𝑀)) → 𝑂 = (𝐹𝑇))
4746fveq1d 6152 . . . 4 ((𝜑 ∧ (𝑀 ∈ dom 𝑂𝑁𝑀)) → (𝑂𝑁) = ((𝐹𝑇)‘𝑁))
484, 5, 6, 7, 8, 9, 10ordtypelem2 8371 . . . . . . . 8 (𝜑 → Ord 𝑇)
4948adantr 481 . . . . . . 7 ((𝜑 ∧ (𝑀 ∈ dom 𝑂𝑁𝑀)) → Ord 𝑇)
50 inss1 3813 . . . . . . . . . 10 (𝑇 ∩ dom 𝐹) ⊆ 𝑇
5113, 50syl6eqss 3636 . . . . . . . . 9 (𝜑 → dom 𝑂𝑇)
5251sselda 3584 . . . . . . . 8 ((𝜑𝑀 ∈ dom 𝑂) → 𝑀𝑇)
5352adantrr 752 . . . . . . 7 ((𝜑 ∧ (𝑀 ∈ dom 𝑂𝑁𝑀)) → 𝑀𝑇)
54 ordelss 5700 . . . . . . 7 ((Ord 𝑇𝑀𝑇) → 𝑀𝑇)
5549, 53, 54syl2anc 692 . . . . . 6 ((𝜑 ∧ (𝑀 ∈ dom 𝑂𝑁𝑀)) → 𝑀𝑇)
5655, 1sseldd 3585 . . . . 5 ((𝜑 ∧ (𝑀 ∈ dom 𝑂𝑁𝑀)) → 𝑁𝑇)
57 fvres 6166 . . . . 5 (𝑁𝑇 → ((𝐹𝑇)‘𝑁) = (𝐹𝑁))
5856, 57syl 17 . . . 4 ((𝜑 ∧ (𝑀 ∈ dom 𝑂𝑁𝑀)) → ((𝐹𝑇)‘𝑁) = (𝐹𝑁))
5947, 58eqtrd 2655 . . 3 ((𝜑 ∧ (𝑀 ∈ dom 𝑂𝑁𝑀)) → (𝑂𝑁) = (𝐹𝑁))
6046fveq1d 6152 . . . 4 ((𝜑 ∧ (𝑀 ∈ dom 𝑂𝑁𝑀)) → (𝑂𝑀) = ((𝐹𝑇)‘𝑀))
61 fvres 6166 . . . . 5 (𝑀𝑇 → ((𝐹𝑇)‘𝑀) = (𝐹𝑀))
6253, 61syl 17 . . . 4 ((𝜑 ∧ (𝑀 ∈ dom 𝑂𝑁𝑀)) → ((𝐹𝑇)‘𝑀) = (𝐹𝑀))
6360, 62eqtrd 2655 . . 3 ((𝜑 ∧ (𝑀 ∈ dom 𝑂𝑁𝑀)) → (𝑂𝑀) = (𝐹𝑀))
6444, 59, 633brtr4d 4647 . 2 ((𝜑 ∧ (𝑀 ∈ dom 𝑂𝑁𝑀)) → (𝑂𝑁)𝑅(𝑂𝑀))
6564expr 642 1 ((𝜑𝑀 ∈ dom 𝑂) → (𝑁𝑀 → (𝑂𝑁)𝑅(𝑂𝑀)))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 196  wa 384   = wceq 1480  wcel 1987  wral 2907  wrex 2908  {crab 2911  Vcvv 3186  cin 3555  wss 3556   class class class wbr 4615  cmpt 4675   Se wse 5033   We wwe 5034  dom cdm 5076  ran crn 5077  cres 5078  cima 5079  Ord word 5683  Oncon0 5684  Lim wlim 5685  Fun wfun 5843   Fn wfn 5844  wf 5845  cfv 5849  crio 6567  recscrecs 7415  OrdIsocoi 8361
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-sep 4743  ax-nul 4751  ax-pow 4805  ax-pr 4869  ax-un 6905
This theorem depends on definitions:  df-bi 197  df-or 385  df-an 386  df-3or 1037  df-3an 1038  df-tru 1483  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 3419  df-csb 3516  df-dif 3559  df-un 3561  df-in 3563  df-ss 3570  df-pss 3572  df-nul 3894  df-if 4061  df-pw 4134  df-sn 4151  df-pr 4153  df-tp 4155  df-op 4157  df-uni 4405  df-iun 4489  df-br 4616  df-opab 4676  df-mpt 4677  df-tr 4715  df-eprel 4987  df-id 4991  df-po 4997  df-so 4998  df-fr 5035  df-se 5036  df-we 5037  df-xp 5082  df-rel 5083  df-cnv 5084  df-co 5085  df-dm 5086  df-rn 5087  df-res 5088  df-ima 5089  df-pred 5641  df-ord 5687  df-on 5688  df-lim 5689  df-suc 5690  df-iota 5812  df-fun 5851  df-fn 5852  df-f 5853  df-f1 5854  df-fo 5855  df-f1o 5856  df-fv 5857  df-riota 6568  df-wrecs 7355  df-recs 7416  df-oi 8362
This theorem is referenced by:  ordtypelem8  8377
  Copyright terms: Public domain W3C validator