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

Theorem frrlem9 8319
Description: Lemma for well-founded recursion. Show that the well-founded recursive generator produces a function. Hypothesis three will be eliminated using different induction rules depending on if we use partial orders or the axiom of infinity. (Contributed by Scott Fenton, 27-Aug-2022.)
Hypotheses
Ref Expression
frrlem9.1 𝐵 = {𝑓 ∣ ∃𝑥(𝑓 Fn 𝑥 ∧ (𝑥𝐴 ∧ ∀𝑦𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ∧ ∀𝑦𝑥 (𝑓𝑦) = (𝑦𝐺(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦))))}
frrlem9.2 𝐹 = frecs(𝑅, 𝐴, 𝐺)
frrlem9.3 ((𝜑 ∧ (𝑔𝐵𝐵)) → ((𝑥𝑔𝑢𝑥𝑣) → 𝑢 = 𝑣))
Assertion
Ref Expression
frrlem9 (𝜑 → Fun 𝐹)
Distinct variable groups:   𝐴,𝑓,𝑥,𝑦   𝑓,𝐺,𝑥,𝑦   𝑅,𝑓,𝑥,𝑦   𝐵,𝑔,   𝑥,𝐹,𝑢,𝑣   𝜑,𝑓   𝑓,𝐹   𝜑,𝑔,,𝑥,𝑢,𝑣
Allowed substitution hints:   𝜑(𝑦)   𝐴(𝑣,𝑢,𝑔,)   𝐵(𝑥,𝑦,𝑣,𝑢,𝑓)   𝑅(𝑣,𝑢,𝑔,)   𝐹(𝑦,𝑔,)   𝐺(𝑣,𝑢,𝑔,)

Proof of Theorem frrlem9
StepHypRef Expression
1 eluni2 4911 . . . . . . . 8 (⟨𝑥, 𝑢⟩ ∈ 𝐵 ↔ ∃𝑔𝐵𝑥, 𝑢⟩ ∈ 𝑔)
2 df-br 5144 . . . . . . . . 9 (𝑥𝐹𝑢 ↔ ⟨𝑥, 𝑢⟩ ∈ 𝐹)
3 frrlem9.1 . . . . . . . . . . 11 𝐵 = {𝑓 ∣ ∃𝑥(𝑓 Fn 𝑥 ∧ (𝑥𝐴 ∧ ∀𝑦𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ∧ ∀𝑦𝑥 (𝑓𝑦) = (𝑦𝐺(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦))))}
4 frrlem9.2 . . . . . . . . . . 11 𝐹 = frecs(𝑅, 𝐴, 𝐺)
53, 4frrlem5 8315 . . . . . . . . . 10 𝐹 = 𝐵
65eleq2i 2833 . . . . . . . . 9 (⟨𝑥, 𝑢⟩ ∈ 𝐹 ↔ ⟨𝑥, 𝑢⟩ ∈ 𝐵)
72, 6bitri 275 . . . . . . . 8 (𝑥𝐹𝑢 ↔ ⟨𝑥, 𝑢⟩ ∈ 𝐵)
8 df-br 5144 . . . . . . . . 9 (𝑥𝑔𝑢 ↔ ⟨𝑥, 𝑢⟩ ∈ 𝑔)
98rexbii 3094 . . . . . . . 8 (∃𝑔𝐵 𝑥𝑔𝑢 ↔ ∃𝑔𝐵𝑥, 𝑢⟩ ∈ 𝑔)
101, 7, 93bitr4i 303 . . . . . . 7 (𝑥𝐹𝑢 ↔ ∃𝑔𝐵 𝑥𝑔𝑢)
11 eluni2 4911 . . . . . . . 8 (⟨𝑥, 𝑣⟩ ∈ 𝐵 ↔ ∃𝐵𝑥, 𝑣⟩ ∈ )
12 df-br 5144 . . . . . . . . 9 (𝑥𝐹𝑣 ↔ ⟨𝑥, 𝑣⟩ ∈ 𝐹)
135eleq2i 2833 . . . . . . . . 9 (⟨𝑥, 𝑣⟩ ∈ 𝐹 ↔ ⟨𝑥, 𝑣⟩ ∈ 𝐵)
1412, 13bitri 275 . . . . . . . 8 (𝑥𝐹𝑣 ↔ ⟨𝑥, 𝑣⟩ ∈ 𝐵)
15 df-br 5144 . . . . . . . . 9 (𝑥𝑣 ↔ ⟨𝑥, 𝑣⟩ ∈ )
1615rexbii 3094 . . . . . . . 8 (∃𝐵 𝑥𝑣 ↔ ∃𝐵𝑥, 𝑣⟩ ∈ )
1711, 14, 163bitr4i 303 . . . . . . 7 (𝑥𝐹𝑣 ↔ ∃𝐵 𝑥𝑣)
1810, 17anbi12i 628 . . . . . 6 ((𝑥𝐹𝑢𝑥𝐹𝑣) ↔ (∃𝑔𝐵 𝑥𝑔𝑢 ∧ ∃𝐵 𝑥𝑣))
19 reeanv 3229 . . . . . 6 (∃𝑔𝐵𝐵 (𝑥𝑔𝑢𝑥𝑣) ↔ (∃𝑔𝐵 𝑥𝑔𝑢 ∧ ∃𝐵 𝑥𝑣))
2018, 19bitr4i 278 . . . . 5 ((𝑥𝐹𝑢𝑥𝐹𝑣) ↔ ∃𝑔𝐵𝐵 (𝑥𝑔𝑢𝑥𝑣))
21 frrlem9.3 . . . . . 6 ((𝜑 ∧ (𝑔𝐵𝐵)) → ((𝑥𝑔𝑢𝑥𝑣) → 𝑢 = 𝑣))
2221rexlimdvva 3213 . . . . 5 (𝜑 → (∃𝑔𝐵𝐵 (𝑥𝑔𝑢𝑥𝑣) → 𝑢 = 𝑣))
2320, 22biimtrid 242 . . . 4 (𝜑 → ((𝑥𝐹𝑢𝑥𝐹𝑣) → 𝑢 = 𝑣))
2423alrimiv 1927 . . 3 (𝜑 → ∀𝑣((𝑥𝐹𝑢𝑥𝐹𝑣) → 𝑢 = 𝑣))
2524alrimivv 1928 . 2 (𝜑 → ∀𝑥𝑢𝑣((𝑥𝐹𝑢𝑥𝐹𝑣) → 𝑢 = 𝑣))
263, 4frrlem6 8316 . . 3 Rel 𝐹
27 dffun2 6571 . . 3 (Fun 𝐹 ↔ (Rel 𝐹 ∧ ∀𝑥𝑢𝑣((𝑥𝐹𝑢𝑥𝐹𝑣) → 𝑢 = 𝑣)))
2826, 27mpbiran 709 . 2 (Fun 𝐹 ↔ ∀𝑥𝑢𝑣((𝑥𝐹𝑢𝑥𝐹𝑣) → 𝑢 = 𝑣))
2925, 28sylibr 234 1 (𝜑 → Fun 𝐹)
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 395  w3a 1087  wal 1538   = wceq 1540  wex 1779  wcel 2108  {cab 2714  wral 3061  wrex 3070  wss 3951  cop 4632   cuni 4907   class class class wbr 5143  cres 5687  Rel wrel 5690  Predcpred 6320  Fun wfun 6555   Fn wfn 6556  cfv 6561  (class class class)co 7431  frecscfrecs 8305
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 1967  ax-7 2007  ax-8 2110  ax-9 2118  ax-10 2141  ax-11 2157  ax-12 2177  ax-ext 2708  ax-sep 5296  ax-nul 5306  ax-pr 5432
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3an 1089  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2065  df-clab 2715  df-cleq 2729  df-clel 2816  df-nfc 2892  df-ral 3062  df-rex 3071  df-rab 3437  df-v 3482  df-dif 3954  df-un 3956  df-in 3958  df-ss 3968  df-nul 4334  df-if 4526  df-sn 4627  df-pr 4629  df-op 4633  df-uni 4908  df-iun 4993  df-br 5144  df-opab 5206  df-id 5578  df-xp 5691  df-rel 5692  df-cnv 5693  df-co 5694  df-dm 5695  df-rn 5696  df-res 5697  df-ima 5698  df-pred 6321  df-iota 6514  df-fun 6563  df-fn 6564  df-fv 6569  df-ov 7434  df-frecs 8306
This theorem is referenced by:  frrlem10  8320  frrlem11  8321  frrlem12  8322  frrlem13  8323  fpr1  8328  fprfung  8334  frr1  9799
  Copyright terms: Public domain W3C validator