Users' Mathboxes Mathbox for Scott Fenton < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  fprlem2 Structured version   Visualization version   GIF version

Theorem fprlem2 33157
Description: Lemma for founded partial recursion. Establish a subset relationship. (Contributed by Scott Fenton, 11-Sep-2023.)
Assertion
Ref Expression
fprlem2 (((𝑅 Fr 𝐴𝑅 Po 𝐴𝑅 Se 𝐴) ∧ 𝑧𝐴) → ∀𝑤 ∈ Pred (𝑅, 𝐴, 𝑧)Pred(𝑅, 𝐴, 𝑤) ⊆ Pred(𝑅, 𝐴, 𝑧))
Distinct variable groups:   𝑤,𝑅,𝑧   𝑤,𝐴,𝑧

Proof of Theorem fprlem2
Dummy variable 𝑥 is distinct from all other variables.
StepHypRef Expression
1 vex 3494 . . . . 5 𝑤 ∈ V
21elpred 6154 . . . 4 (𝑧 ∈ V → (𝑤 ∈ Pred(𝑅, 𝐴, 𝑧) ↔ (𝑤𝐴𝑤𝑅𝑧)))
32elv 3496 . . 3 (𝑤 ∈ Pred(𝑅, 𝐴, 𝑧) ↔ (𝑤𝐴𝑤𝑅𝑧))
4 simprl 769 . . . . . . 7 (((((𝑅 Fr 𝐴𝑅 Po 𝐴𝑅 Se 𝐴) ∧ 𝑧𝐴) ∧ (𝑤𝐴𝑤𝑅𝑧)) ∧ (𝑥𝐴𝑥𝑅𝑤)) → 𝑥𝐴)
5 simpll2 1208 . . . . . . . . . 10 ((((𝑅 Fr 𝐴𝑅 Po 𝐴𝑅 Se 𝐴) ∧ 𝑧𝐴) ∧ (𝑤𝐴𝑤𝑅𝑧)) → 𝑅 Po 𝐴)
65adantr 483 . . . . . . . . 9 (((((𝑅 Fr 𝐴𝑅 Po 𝐴𝑅 Se 𝐴) ∧ 𝑧𝐴) ∧ (𝑤𝐴𝑤𝑅𝑧)) ∧ (𝑥𝐴𝑥𝑅𝑤)) → 𝑅 Po 𝐴)
7 simprl 769 . . . . . . . . . . 11 ((((𝑅 Fr 𝐴𝑅 Po 𝐴𝑅 Se 𝐴) ∧ 𝑧𝐴) ∧ (𝑤𝐴𝑤𝑅𝑧)) → 𝑤𝐴)
87adantr 483 . . . . . . . . . 10 (((((𝑅 Fr 𝐴𝑅 Po 𝐴𝑅 Se 𝐴) ∧ 𝑧𝐴) ∧ (𝑤𝐴𝑤𝑅𝑧)) ∧ (𝑥𝐴𝑥𝑅𝑤)) → 𝑤𝐴)
9 simpllr 774 . . . . . . . . . 10 (((((𝑅 Fr 𝐴𝑅 Po 𝐴𝑅 Se 𝐴) ∧ 𝑧𝐴) ∧ (𝑤𝐴𝑤𝑅𝑧)) ∧ (𝑥𝐴𝑥𝑅𝑤)) → 𝑧𝐴)
104, 8, 93jca 1123 . . . . . . . . 9 (((((𝑅 Fr 𝐴𝑅 Po 𝐴𝑅 Se 𝐴) ∧ 𝑧𝐴) ∧ (𝑤𝐴𝑤𝑅𝑧)) ∧ (𝑥𝐴𝑥𝑅𝑤)) → (𝑥𝐴𝑤𝐴𝑧𝐴))
116, 10jca 514 . . . . . . . 8 (((((𝑅 Fr 𝐴𝑅 Po 𝐴𝑅 Se 𝐴) ∧ 𝑧𝐴) ∧ (𝑤𝐴𝑤𝑅𝑧)) ∧ (𝑥𝐴𝑥𝑅𝑤)) → (𝑅 Po 𝐴 ∧ (𝑥𝐴𝑤𝐴𝑧𝐴)))
12 simprr 771 . . . . . . . . 9 (((((𝑅 Fr 𝐴𝑅 Po 𝐴𝑅 Se 𝐴) ∧ 𝑧𝐴) ∧ (𝑤𝐴𝑤𝑅𝑧)) ∧ (𝑥𝐴𝑥𝑅𝑤)) → 𝑥𝑅𝑤)
13 simplrr 776 . . . . . . . . 9 (((((𝑅 Fr 𝐴𝑅 Po 𝐴𝑅 Se 𝐴) ∧ 𝑧𝐴) ∧ (𝑤𝐴𝑤𝑅𝑧)) ∧ (𝑥𝐴𝑥𝑅𝑤)) → 𝑤𝑅𝑧)
1412, 13jca 514 . . . . . . . 8 (((((𝑅 Fr 𝐴𝑅 Po 𝐴𝑅 Se 𝐴) ∧ 𝑧𝐴) ∧ (𝑤𝐴𝑤𝑅𝑧)) ∧ (𝑥𝐴𝑥𝑅𝑤)) → (𝑥𝑅𝑤𝑤𝑅𝑧))
15 potr 5479 . . . . . . . 8 ((𝑅 Po 𝐴 ∧ (𝑥𝐴𝑤𝐴𝑧𝐴)) → ((𝑥𝑅𝑤𝑤𝑅𝑧) → 𝑥𝑅𝑧))
1611, 14, 15sylc 65 . . . . . . 7 (((((𝑅 Fr 𝐴𝑅 Po 𝐴𝑅 Se 𝐴) ∧ 𝑧𝐴) ∧ (𝑤𝐴𝑤𝑅𝑧)) ∧ (𝑥𝐴𝑥𝑅𝑤)) → 𝑥𝑅𝑧)
174, 16jca 514 . . . . . 6 (((((𝑅 Fr 𝐴𝑅 Po 𝐴𝑅 Se 𝐴) ∧ 𝑧𝐴) ∧ (𝑤𝐴𝑤𝑅𝑧)) ∧ (𝑥𝐴𝑥𝑅𝑤)) → (𝑥𝐴𝑥𝑅𝑧))
1817ex 415 . . . . 5 ((((𝑅 Fr 𝐴𝑅 Po 𝐴𝑅 Se 𝐴) ∧ 𝑧𝐴) ∧ (𝑤𝐴𝑤𝑅𝑧)) → ((𝑥𝐴𝑥𝑅𝑤) → (𝑥𝐴𝑥𝑅𝑧)))
19 vex 3494 . . . . . . 7 𝑥 ∈ V
2019elpred 6154 . . . . . 6 (𝑤 ∈ V → (𝑥 ∈ Pred(𝑅, 𝐴, 𝑤) ↔ (𝑥𝐴𝑥𝑅𝑤)))
2120elv 3496 . . . . 5 (𝑥 ∈ Pred(𝑅, 𝐴, 𝑤) ↔ (𝑥𝐴𝑥𝑅𝑤))
2219elpred 6154 . . . . . 6 (𝑧 ∈ V → (𝑥 ∈ Pred(𝑅, 𝐴, 𝑧) ↔ (𝑥𝐴𝑥𝑅𝑧)))
2322elv 3496 . . . . 5 (𝑥 ∈ Pred(𝑅, 𝐴, 𝑧) ↔ (𝑥𝐴𝑥𝑅𝑧))
2418, 21, 233imtr4g 298 . . . 4 ((((𝑅 Fr 𝐴𝑅 Po 𝐴𝑅 Se 𝐴) ∧ 𝑧𝐴) ∧ (𝑤𝐴𝑤𝑅𝑧)) → (𝑥 ∈ Pred(𝑅, 𝐴, 𝑤) → 𝑥 ∈ Pred(𝑅, 𝐴, 𝑧)))
2524ssrdv 3966 . . 3 ((((𝑅 Fr 𝐴𝑅 Po 𝐴𝑅 Se 𝐴) ∧ 𝑧𝐴) ∧ (𝑤𝐴𝑤𝑅𝑧)) → Pred(𝑅, 𝐴, 𝑤) ⊆ Pred(𝑅, 𝐴, 𝑧))
263, 25sylan2b 595 . 2 ((((𝑅 Fr 𝐴𝑅 Po 𝐴𝑅 Se 𝐴) ∧ 𝑧𝐴) ∧ 𝑤 ∈ Pred(𝑅, 𝐴, 𝑧)) → Pred(𝑅, 𝐴, 𝑤) ⊆ Pred(𝑅, 𝐴, 𝑧))
2726ralrimiva 3181 1 (((𝑅 Fr 𝐴𝑅 Po 𝐴𝑅 Se 𝐴) ∧ 𝑧𝐴) → ∀𝑤 ∈ Pred (𝑅, 𝐴, 𝑧)Pred(𝑅, 𝐴, 𝑤) ⊆ Pred(𝑅, 𝐴, 𝑧))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 208  wa 398  w3a 1082  wcel 2113  wral 3137  Vcvv 3491  wss 3929   class class class wbr 5059   Po wpo 5465   Fr wfr 5504   Se wse 5505  Predcpred 6140
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1969  ax-7 2014  ax-8 2115  ax-9 2123  ax-10 2144  ax-11 2160  ax-12 2176  ax-ext 2792  ax-sep 5196  ax-nul 5203  ax-pr 5323
This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-3an 1084  df-tru 1539  df-ex 1780  df-nf 1784  df-sb 2069  df-mo 2621  df-eu 2653  df-clab 2799  df-cleq 2813  df-clel 2892  df-nfc 2962  df-ral 3142  df-rex 3143  df-rab 3146  df-v 3493  df-sbc 3769  df-dif 3932  df-un 3934  df-in 3936  df-ss 3945  df-nul 4285  df-if 4461  df-sn 4561  df-pr 4563  df-op 4567  df-br 5060  df-opab 5122  df-po 5467  df-xp 5554  df-cnv 5556  df-dm 5558  df-rn 5559  df-res 5560  df-ima 5561  df-pred 6141
This theorem is referenced by:  fpr1  33158
  Copyright terms: Public domain W3C validator