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 33162
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 3496 . . . . 5 𝑤 ∈ V
21elpred 6158 . . . 4 (𝑧 ∈ V → (𝑤 ∈ Pred(𝑅, 𝐴, 𝑧) ↔ (𝑤𝐴𝑤𝑅𝑧)))
32elv 3498 . . 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 5483 . . . . . . . 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 3496 . . . . . . 7 𝑥 ∈ V
2019elpred 6158 . . . . . 6 (𝑤 ∈ V → (𝑥 ∈ Pred(𝑅, 𝐴, 𝑤) ↔ (𝑥𝐴𝑥𝑅𝑤)))
2120elv 3498 . . . . 5 (𝑥 ∈ Pred(𝑅, 𝐴, 𝑤) ↔ (𝑥𝐴𝑥𝑅𝑤))
2219elpred 6158 . . . . . 6 (𝑧 ∈ V → (𝑥 ∈ Pred(𝑅, 𝐴, 𝑧) ↔ (𝑥𝐴𝑥𝑅𝑧)))
2322elv 3498 . . . . 5 (𝑥 ∈ Pred(𝑅, 𝐴, 𝑧) ↔ (𝑥𝐴𝑥𝑅𝑧))
2418, 21, 233imtr4g 298 . . . 4 ((((𝑅 Fr 𝐴𝑅 Po 𝐴𝑅 Se 𝐴) ∧ 𝑧𝐴) ∧ (𝑤𝐴𝑤𝑅𝑧)) → (𝑥 ∈ Pred(𝑅, 𝐴, 𝑤) → 𝑥 ∈ Pred(𝑅, 𝐴, 𝑧)))
2524ssrdv 3970 . . 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 3493  wss 3933   class class class wbr 5063   Po wpo 5469   Fr wfr 5508   Se wse 5509  Predcpred 6144
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 5200  ax-nul 5207  ax-pr 5327
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 3495  df-sbc 3771  df-dif 3936  df-un 3938  df-in 3940  df-ss 3949  df-nul 4289  df-if 4465  df-sn 4565  df-pr 4567  df-op 4571  df-br 5064  df-opab 5126  df-po 5471  df-xp 5558  df-cnv 5560  df-dm 5562  df-rn 5563  df-res 5564  df-ima 5565  df-pred 6145
This theorem is referenced by:  fpr1  33163
  Copyright terms: Public domain W3C validator