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

Theorem fpwwe2cbv 10041
Description: Lemma for fpwwe2 10054. (Contributed by Mario Carneiro, 3-Jun-2015.)
Hypothesis
Ref Expression
fpwwe2.1 𝑊 = {⟨𝑥, 𝑟⟩ ∣ ((𝑥𝐴𝑟 ⊆ (𝑥 × 𝑥)) ∧ (𝑟 We 𝑥 ∧ ∀𝑦𝑥 [(𝑟 “ {𝑦}) / 𝑢](𝑢𝐹(𝑟 ∩ (𝑢 × 𝑢))) = 𝑦))}
Assertion
Ref Expression
fpwwe2cbv 𝑊 = {⟨𝑎, 𝑠⟩ ∣ ((𝑎𝐴𝑠 ⊆ (𝑎 × 𝑎)) ∧ (𝑠 We 𝑎 ∧ ∀𝑧𝑎 [(𝑠 “ {𝑧}) / 𝑣](𝑣𝐹(𝑠 ∩ (𝑣 × 𝑣))) = 𝑧))}
Distinct variable groups:   𝑦,𝑢   𝑟,𝑎,𝑠,𝑢,𝑣,𝑥,𝑦,𝑧,𝐹   𝐴,𝑎,𝑟,𝑠,𝑥,𝑧
Allowed substitution hints:   𝐴(𝑦,𝑣,𝑢)   𝑊(𝑥,𝑦,𝑧,𝑣,𝑢,𝑠,𝑟,𝑎)

Proof of Theorem fpwwe2cbv
StepHypRef Expression
1 fpwwe2.1 . 2 𝑊 = {⟨𝑥, 𝑟⟩ ∣ ((𝑥𝐴𝑟 ⊆ (𝑥 × 𝑥)) ∧ (𝑟 We 𝑥 ∧ ∀𝑦𝑥 [(𝑟 “ {𝑦}) / 𝑢](𝑢𝐹(𝑟 ∩ (𝑢 × 𝑢))) = 𝑦))}
2 simpl 486 . . . . . 6 ((𝑥 = 𝑎𝑟 = 𝑠) → 𝑥 = 𝑎)
32sseq1d 3946 . . . . 5 ((𝑥 = 𝑎𝑟 = 𝑠) → (𝑥𝐴𝑎𝐴))
4 simpr 488 . . . . . 6 ((𝑥 = 𝑎𝑟 = 𝑠) → 𝑟 = 𝑠)
52sqxpeqd 5551 . . . . . 6 ((𝑥 = 𝑎𝑟 = 𝑠) → (𝑥 × 𝑥) = (𝑎 × 𝑎))
64, 5sseq12d 3948 . . . . 5 ((𝑥 = 𝑎𝑟 = 𝑠) → (𝑟 ⊆ (𝑥 × 𝑥) ↔ 𝑠 ⊆ (𝑎 × 𝑎)))
73, 6anbi12d 633 . . . 4 ((𝑥 = 𝑎𝑟 = 𝑠) → ((𝑥𝐴𝑟 ⊆ (𝑥 × 𝑥)) ↔ (𝑎𝐴𝑠 ⊆ (𝑎 × 𝑎))))
8 weeq2 5508 . . . . . 6 (𝑥 = 𝑎 → (𝑟 We 𝑥𝑟 We 𝑎))
9 weeq1 5507 . . . . . 6 (𝑟 = 𝑠 → (𝑟 We 𝑎𝑠 We 𝑎))
108, 9sylan9bb 513 . . . . 5 ((𝑥 = 𝑎𝑟 = 𝑠) → (𝑟 We 𝑥𝑠 We 𝑎))
11 id 22 . . . . . . . . . . 11 (𝑢 = 𝑣𝑢 = 𝑣)
1211sqxpeqd 5551 . . . . . . . . . . . 12 (𝑢 = 𝑣 → (𝑢 × 𝑢) = (𝑣 × 𝑣))
1312ineq2d 4139 . . . . . . . . . . 11 (𝑢 = 𝑣 → (𝑟 ∩ (𝑢 × 𝑢)) = (𝑟 ∩ (𝑣 × 𝑣)))
1411, 13oveq12d 7153 . . . . . . . . . 10 (𝑢 = 𝑣 → (𝑢𝐹(𝑟 ∩ (𝑢 × 𝑢))) = (𝑣𝐹(𝑟 ∩ (𝑣 × 𝑣))))
1514eqeq1d 2800 . . . . . . . . 9 (𝑢 = 𝑣 → ((𝑢𝐹(𝑟 ∩ (𝑢 × 𝑢))) = 𝑦 ↔ (𝑣𝐹(𝑟 ∩ (𝑣 × 𝑣))) = 𝑦))
1615cbvsbcvw 3753 . . . . . . . 8 ([(𝑟 “ {𝑦}) / 𝑢](𝑢𝐹(𝑟 ∩ (𝑢 × 𝑢))) = 𝑦[(𝑟 “ {𝑦}) / 𝑣](𝑣𝐹(𝑟 ∩ (𝑣 × 𝑣))) = 𝑦)
17 sneq 4535 . . . . . . . . . 10 (𝑦 = 𝑧 → {𝑦} = {𝑧})
1817imaeq2d 5896 . . . . . . . . 9 (𝑦 = 𝑧 → (𝑟 “ {𝑦}) = (𝑟 “ {𝑧}))
19 eqeq2 2810 . . . . . . . . 9 (𝑦 = 𝑧 → ((𝑣𝐹(𝑟 ∩ (𝑣 × 𝑣))) = 𝑦 ↔ (𝑣𝐹(𝑟 ∩ (𝑣 × 𝑣))) = 𝑧))
2018, 19sbceqbid 3727 . . . . . . . 8 (𝑦 = 𝑧 → ([(𝑟 “ {𝑦}) / 𝑣](𝑣𝐹(𝑟 ∩ (𝑣 × 𝑣))) = 𝑦[(𝑟 “ {𝑧}) / 𝑣](𝑣𝐹(𝑟 ∩ (𝑣 × 𝑣))) = 𝑧))
2116, 20syl5bb 286 . . . . . . 7 (𝑦 = 𝑧 → ([(𝑟 “ {𝑦}) / 𝑢](𝑢𝐹(𝑟 ∩ (𝑢 × 𝑢))) = 𝑦[(𝑟 “ {𝑧}) / 𝑣](𝑣𝐹(𝑟 ∩ (𝑣 × 𝑣))) = 𝑧))
2221cbvralvw 3396 . . . . . 6 (∀𝑦𝑥 [(𝑟 “ {𝑦}) / 𝑢](𝑢𝐹(𝑟 ∩ (𝑢 × 𝑢))) = 𝑦 ↔ ∀𝑧𝑥 [(𝑟 “ {𝑧}) / 𝑣](𝑣𝐹(𝑟 ∩ (𝑣 × 𝑣))) = 𝑧)
234cnveqd 5710 . . . . . . . . 9 ((𝑥 = 𝑎𝑟 = 𝑠) → 𝑟 = 𝑠)
2423imaeq1d 5895 . . . . . . . 8 ((𝑥 = 𝑎𝑟 = 𝑠) → (𝑟 “ {𝑧}) = (𝑠 “ {𝑧}))
254ineq1d 4138 . . . . . . . . . 10 ((𝑥 = 𝑎𝑟 = 𝑠) → (𝑟 ∩ (𝑣 × 𝑣)) = (𝑠 ∩ (𝑣 × 𝑣)))
2625oveq2d 7151 . . . . . . . . 9 ((𝑥 = 𝑎𝑟 = 𝑠) → (𝑣𝐹(𝑟 ∩ (𝑣 × 𝑣))) = (𝑣𝐹(𝑠 ∩ (𝑣 × 𝑣))))
2726eqeq1d 2800 . . . . . . . 8 ((𝑥 = 𝑎𝑟 = 𝑠) → ((𝑣𝐹(𝑟 ∩ (𝑣 × 𝑣))) = 𝑧 ↔ (𝑣𝐹(𝑠 ∩ (𝑣 × 𝑣))) = 𝑧))
2824, 27sbceqbid 3727 . . . . . . 7 ((𝑥 = 𝑎𝑟 = 𝑠) → ([(𝑟 “ {𝑧}) / 𝑣](𝑣𝐹(𝑟 ∩ (𝑣 × 𝑣))) = 𝑧[(𝑠 “ {𝑧}) / 𝑣](𝑣𝐹(𝑠 ∩ (𝑣 × 𝑣))) = 𝑧))
292, 28raleqbidv 3354 . . . . . 6 ((𝑥 = 𝑎𝑟 = 𝑠) → (∀𝑧𝑥 [(𝑟 “ {𝑧}) / 𝑣](𝑣𝐹(𝑟 ∩ (𝑣 × 𝑣))) = 𝑧 ↔ ∀𝑧𝑎 [(𝑠 “ {𝑧}) / 𝑣](𝑣𝐹(𝑠 ∩ (𝑣 × 𝑣))) = 𝑧))
3022, 29syl5bb 286 . . . . 5 ((𝑥 = 𝑎𝑟 = 𝑠) → (∀𝑦𝑥 [(𝑟 “ {𝑦}) / 𝑢](𝑢𝐹(𝑟 ∩ (𝑢 × 𝑢))) = 𝑦 ↔ ∀𝑧𝑎 [(𝑠 “ {𝑧}) / 𝑣](𝑣𝐹(𝑠 ∩ (𝑣 × 𝑣))) = 𝑧))
3110, 30anbi12d 633 . . . 4 ((𝑥 = 𝑎𝑟 = 𝑠) → ((𝑟 We 𝑥 ∧ ∀𝑦𝑥 [(𝑟 “ {𝑦}) / 𝑢](𝑢𝐹(𝑟 ∩ (𝑢 × 𝑢))) = 𝑦) ↔ (𝑠 We 𝑎 ∧ ∀𝑧𝑎 [(𝑠 “ {𝑧}) / 𝑣](𝑣𝐹(𝑠 ∩ (𝑣 × 𝑣))) = 𝑧)))
327, 31anbi12d 633 . . 3 ((𝑥 = 𝑎𝑟 = 𝑠) → (((𝑥𝐴𝑟 ⊆ (𝑥 × 𝑥)) ∧ (𝑟 We 𝑥 ∧ ∀𝑦𝑥 [(𝑟 “ {𝑦}) / 𝑢](𝑢𝐹(𝑟 ∩ (𝑢 × 𝑢))) = 𝑦)) ↔ ((𝑎𝐴𝑠 ⊆ (𝑎 × 𝑎)) ∧ (𝑠 We 𝑎 ∧ ∀𝑧𝑎 [(𝑠 “ {𝑧}) / 𝑣](𝑣𝐹(𝑠 ∩ (𝑣 × 𝑣))) = 𝑧))))
3332cbvopabv 5102 . 2 {⟨𝑥, 𝑟⟩ ∣ ((𝑥𝐴𝑟 ⊆ (𝑥 × 𝑥)) ∧ (𝑟 We 𝑥 ∧ ∀𝑦𝑥 [(𝑟 “ {𝑦}) / 𝑢](𝑢𝐹(𝑟 ∩ (𝑢 × 𝑢))) = 𝑦))} = {⟨𝑎, 𝑠⟩ ∣ ((𝑎𝐴𝑠 ⊆ (𝑎 × 𝑎)) ∧ (𝑠 We 𝑎 ∧ ∀𝑧𝑎 [(𝑠 “ {𝑧}) / 𝑣](𝑣𝐹(𝑠 ∩ (𝑣 × 𝑣))) = 𝑧))}
341, 33eqtri 2821 1 𝑊 = {⟨𝑎, 𝑠⟩ ∣ ((𝑎𝐴𝑠 ⊆ (𝑎 × 𝑎)) ∧ (𝑠 We 𝑎 ∧ ∀𝑧𝑎 [(𝑠 “ {𝑧}) / 𝑣](𝑣𝐹(𝑠 ∩ (𝑣 × 𝑣))) = 𝑧))}
Colors of variables: wff setvar class
Syntax hints:  wa 399   = wceq 1538  wral 3106  [wsbc 3720  cin 3880  wss 3881  {csn 4525  {copab 5092   We wwe 5477   × cxp 5517  ccnv 5518  cima 5522  (class class class)co 7135
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1911  ax-6 1970  ax-7 2015  ax-8 2113  ax-9 2121  ax-10 2142  ax-11 2158  ax-12 2175  ax-ext 2770
This theorem depends on definitions:  df-bi 210  df-an 400  df-or 845  df-3or 1085  df-3an 1086  df-tru 1541  df-ex 1782  df-nf 1786  df-sb 2070  df-clab 2777  df-cleq 2791  df-clel 2870  df-nfc 2938  df-ral 3111  df-rex 3112  df-rab 3115  df-v 3443  df-sbc 3721  df-un 3886  df-in 3888  df-ss 3898  df-sn 4526  df-pr 4528  df-op 4532  df-uni 4801  df-br 5031  df-opab 5093  df-po 5438  df-so 5439  df-fr 5478  df-we 5480  df-xp 5525  df-cnv 5527  df-dm 5529  df-rn 5530  df-res 5531  df-ima 5532  df-iota 6283  df-fv 6332  df-ov 7138
This theorem is referenced by:  fpwwe2lem12  10052  fpwwe2lem13  10053  canthwe  10062  pwfseqlem5  10074
  Copyright terms: Public domain W3C validator