ILE Home Intuitionistic Logic Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  ILE Home  >  Th. List  >  rdgivallem GIF version

Theorem rdgivallem 6349
Description: Value of the recursive definition generator. Lemma for rdgival 6350 which simplifies the value further. (Contributed by Jim Kingdon, 13-Jul-2019.) (New usage is discouraged.)
Assertion
Ref Expression
rdgivallem ((𝐹 Fn V ∧ 𝐴𝑉𝐵 ∈ On) → (rec(𝐹, 𝐴)‘𝐵) = (𝐴 𝑥𝐵 (𝐹‘((rec(𝐹, 𝐴) ↾ 𝐵)‘𝑥))))
Distinct variable groups:   𝑥,𝐴   𝑥,𝐵   𝑥,𝐹   𝑥,𝑉

Proof of Theorem rdgivallem
Dummy variables 𝑔 𝑦 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 df-irdg 6338 . . . 4 rec(𝐹, 𝐴) = recs((𝑔 ∈ V ↦ (𝐴 𝑥 ∈ dom 𝑔(𝐹‘(𝑔𝑥)))))
2 rdgruledefgg 6343 . . . . 5 ((𝐹 Fn V ∧ 𝐴𝑉) → (Fun (𝑔 ∈ V ↦ (𝐴 𝑥 ∈ dom 𝑔(𝐹‘(𝑔𝑥)))) ∧ ((𝑔 ∈ V ↦ (𝐴 𝑥 ∈ dom 𝑔(𝐹‘(𝑔𝑥))))‘𝑦) ∈ V))
32alrimiv 1862 . . . 4 ((𝐹 Fn V ∧ 𝐴𝑉) → ∀𝑦(Fun (𝑔 ∈ V ↦ (𝐴 𝑥 ∈ dom 𝑔(𝐹‘(𝑔𝑥)))) ∧ ((𝑔 ∈ V ↦ (𝐴 𝑥 ∈ dom 𝑔(𝐹‘(𝑔𝑥))))‘𝑦) ∈ V))
41, 3tfri2d 6304 . . 3 (((𝐹 Fn V ∧ 𝐴𝑉) ∧ 𝐵 ∈ On) → (rec(𝐹, 𝐴)‘𝐵) = ((𝑔 ∈ V ↦ (𝐴 𝑥 ∈ dom 𝑔(𝐹‘(𝑔𝑥))))‘(rec(𝐹, 𝐴) ↾ 𝐵)))
543impa 1184 . 2 ((𝐹 Fn V ∧ 𝐴𝑉𝐵 ∈ On) → (rec(𝐹, 𝐴)‘𝐵) = ((𝑔 ∈ V ↦ (𝐴 𝑥 ∈ dom 𝑔(𝐹‘(𝑔𝑥))))‘(rec(𝐹, 𝐴) ↾ 𝐵)))
6 eqidd 2166 . . 3 ((𝐹 Fn V ∧ 𝐴𝑉𝐵 ∈ On) → (𝑔 ∈ V ↦ (𝐴 𝑥 ∈ dom 𝑔(𝐹‘(𝑔𝑥)))) = (𝑔 ∈ V ↦ (𝐴 𝑥 ∈ dom 𝑔(𝐹‘(𝑔𝑥)))))
7 dmeq 4804 . . . . . 6 (𝑔 = (rec(𝐹, 𝐴) ↾ 𝐵) → dom 𝑔 = dom (rec(𝐹, 𝐴) ↾ 𝐵))
8 onss 4470 . . . . . . . . 9 (𝐵 ∈ On → 𝐵 ⊆ On)
983ad2ant3 1010 . . . . . . . 8 ((𝐹 Fn V ∧ 𝐴𝑉𝐵 ∈ On) → 𝐵 ⊆ On)
10 rdgifnon 6347 . . . . . . . . . 10 ((𝐹 Fn V ∧ 𝐴𝑉) → rec(𝐹, 𝐴) Fn On)
11 fndm 5287 . . . . . . . . . 10 (rec(𝐹, 𝐴) Fn On → dom rec(𝐹, 𝐴) = On)
1210, 11syl 14 . . . . . . . . 9 ((𝐹 Fn V ∧ 𝐴𝑉) → dom rec(𝐹, 𝐴) = On)
13123adant3 1007 . . . . . . . 8 ((𝐹 Fn V ∧ 𝐴𝑉𝐵 ∈ On) → dom rec(𝐹, 𝐴) = On)
149, 13sseqtrrd 3181 . . . . . . 7 ((𝐹 Fn V ∧ 𝐴𝑉𝐵 ∈ On) → 𝐵 ⊆ dom rec(𝐹, 𝐴))
15 ssdmres 4906 . . . . . . 7 (𝐵 ⊆ dom rec(𝐹, 𝐴) ↔ dom (rec(𝐹, 𝐴) ↾ 𝐵) = 𝐵)
1614, 15sylib 121 . . . . . 6 ((𝐹 Fn V ∧ 𝐴𝑉𝐵 ∈ On) → dom (rec(𝐹, 𝐴) ↾ 𝐵) = 𝐵)
177, 16sylan9eqr 2221 . . . . 5 (((𝐹 Fn V ∧ 𝐴𝑉𝐵 ∈ On) ∧ 𝑔 = (rec(𝐹, 𝐴) ↾ 𝐵)) → dom 𝑔 = 𝐵)
18 fveq1 5485 . . . . . . 7 (𝑔 = (rec(𝐹, 𝐴) ↾ 𝐵) → (𝑔𝑥) = ((rec(𝐹, 𝐴) ↾ 𝐵)‘𝑥))
1918fveq2d 5490 . . . . . 6 (𝑔 = (rec(𝐹, 𝐴) ↾ 𝐵) → (𝐹‘(𝑔𝑥)) = (𝐹‘((rec(𝐹, 𝐴) ↾ 𝐵)‘𝑥)))
2019adantl 275 . . . . 5 (((𝐹 Fn V ∧ 𝐴𝑉𝐵 ∈ On) ∧ 𝑔 = (rec(𝐹, 𝐴) ↾ 𝐵)) → (𝐹‘(𝑔𝑥)) = (𝐹‘((rec(𝐹, 𝐴) ↾ 𝐵)‘𝑥)))
2117, 20iuneq12d 3890 . . . 4 (((𝐹 Fn V ∧ 𝐴𝑉𝐵 ∈ On) ∧ 𝑔 = (rec(𝐹, 𝐴) ↾ 𝐵)) → 𝑥 ∈ dom 𝑔(𝐹‘(𝑔𝑥)) = 𝑥𝐵 (𝐹‘((rec(𝐹, 𝐴) ↾ 𝐵)‘𝑥)))
2221uneq2d 3276 . . 3 (((𝐹 Fn V ∧ 𝐴𝑉𝐵 ∈ On) ∧ 𝑔 = (rec(𝐹, 𝐴) ↾ 𝐵)) → (𝐴 𝑥 ∈ dom 𝑔(𝐹‘(𝑔𝑥))) = (𝐴 𝑥𝐵 (𝐹‘((rec(𝐹, 𝐴) ↾ 𝐵)‘𝑥))))
23 rdgfun 6341 . . . . 5 Fun rec(𝐹, 𝐴)
24 resfunexg 5706 . . . . 5 ((Fun rec(𝐹, 𝐴) ∧ 𝐵 ∈ On) → (rec(𝐹, 𝐴) ↾ 𝐵) ∈ V)
2523, 24mpan 421 . . . 4 (𝐵 ∈ On → (rec(𝐹, 𝐴) ↾ 𝐵) ∈ V)
26253ad2ant3 1010 . . 3 ((𝐹 Fn V ∧ 𝐴𝑉𝐵 ∈ On) → (rec(𝐹, 𝐴) ↾ 𝐵) ∈ V)
27 simpr 109 . . . . . 6 ((𝐹 Fn V ∧ 𝐵 ∈ On) → 𝐵 ∈ On)
28 vex 2729 . . . . . . . . . 10 𝑥 ∈ V
29 fvexg 5505 . . . . . . . . . 10 (((rec(𝐹, 𝐴) ↾ 𝐵) ∈ V ∧ 𝑥 ∈ V) → ((rec(𝐹, 𝐴) ↾ 𝐵)‘𝑥) ∈ V)
3025, 28, 29sylancl 410 . . . . . . . . 9 (𝐵 ∈ On → ((rec(𝐹, 𝐴) ↾ 𝐵)‘𝑥) ∈ V)
3130ralrimivw 2540 . . . . . . . 8 (𝐵 ∈ On → ∀𝑥𝐵 ((rec(𝐹, 𝐴) ↾ 𝐵)‘𝑥) ∈ V)
3231adantl 275 . . . . . . 7 ((𝐹 Fn V ∧ 𝐵 ∈ On) → ∀𝑥𝐵 ((rec(𝐹, 𝐴) ↾ 𝐵)‘𝑥) ∈ V)
33 funfvex 5503 . . . . . . . . . . 11 ((Fun 𝐹 ∧ ((rec(𝐹, 𝐴) ↾ 𝐵)‘𝑥) ∈ dom 𝐹) → (𝐹‘((rec(𝐹, 𝐴) ↾ 𝐵)‘𝑥)) ∈ V)
3433funfni 5288 . . . . . . . . . 10 ((𝐹 Fn V ∧ ((rec(𝐹, 𝐴) ↾ 𝐵)‘𝑥) ∈ V) → (𝐹‘((rec(𝐹, 𝐴) ↾ 𝐵)‘𝑥)) ∈ V)
3534ex 114 . . . . . . . . 9 (𝐹 Fn V → (((rec(𝐹, 𝐴) ↾ 𝐵)‘𝑥) ∈ V → (𝐹‘((rec(𝐹, 𝐴) ↾ 𝐵)‘𝑥)) ∈ V))
3635ralimdv 2534 . . . . . . . 8 (𝐹 Fn V → (∀𝑥𝐵 ((rec(𝐹, 𝐴) ↾ 𝐵)‘𝑥) ∈ V → ∀𝑥𝐵 (𝐹‘((rec(𝐹, 𝐴) ↾ 𝐵)‘𝑥)) ∈ V))
3736adantr 274 . . . . . . 7 ((𝐹 Fn V ∧ 𝐵 ∈ On) → (∀𝑥𝐵 ((rec(𝐹, 𝐴) ↾ 𝐵)‘𝑥) ∈ V → ∀𝑥𝐵 (𝐹‘((rec(𝐹, 𝐴) ↾ 𝐵)‘𝑥)) ∈ V))
3832, 37mpd 13 . . . . . 6 ((𝐹 Fn V ∧ 𝐵 ∈ On) → ∀𝑥𝐵 (𝐹‘((rec(𝐹, 𝐴) ↾ 𝐵)‘𝑥)) ∈ V)
39 iunexg 6087 . . . . . 6 ((𝐵 ∈ On ∧ ∀𝑥𝐵 (𝐹‘((rec(𝐹, 𝐴) ↾ 𝐵)‘𝑥)) ∈ V) → 𝑥𝐵 (𝐹‘((rec(𝐹, 𝐴) ↾ 𝐵)‘𝑥)) ∈ V)
4027, 38, 39syl2anc 409 . . . . 5 ((𝐹 Fn V ∧ 𝐵 ∈ On) → 𝑥𝐵 (𝐹‘((rec(𝐹, 𝐴) ↾ 𝐵)‘𝑥)) ∈ V)
41403adant2 1006 . . . 4 ((𝐹 Fn V ∧ 𝐴𝑉𝐵 ∈ On) → 𝑥𝐵 (𝐹‘((rec(𝐹, 𝐴) ↾ 𝐵)‘𝑥)) ∈ V)
42 unexg 4421 . . . . . 6 ((𝐴𝑉 𝑥𝐵 (𝐹‘((rec(𝐹, 𝐴) ↾ 𝐵)‘𝑥)) ∈ V) → (𝐴 𝑥𝐵 (𝐹‘((rec(𝐹, 𝐴) ↾ 𝐵)‘𝑥))) ∈ V)
4342ex 114 . . . . 5 (𝐴𝑉 → ( 𝑥𝐵 (𝐹‘((rec(𝐹, 𝐴) ↾ 𝐵)‘𝑥)) ∈ V → (𝐴 𝑥𝐵 (𝐹‘((rec(𝐹, 𝐴) ↾ 𝐵)‘𝑥))) ∈ V))
44433ad2ant2 1009 . . . 4 ((𝐹 Fn V ∧ 𝐴𝑉𝐵 ∈ On) → ( 𝑥𝐵 (𝐹‘((rec(𝐹, 𝐴) ↾ 𝐵)‘𝑥)) ∈ V → (𝐴 𝑥𝐵 (𝐹‘((rec(𝐹, 𝐴) ↾ 𝐵)‘𝑥))) ∈ V))
4541, 44mpd 13 . . 3 ((𝐹 Fn V ∧ 𝐴𝑉𝐵 ∈ On) → (𝐴 𝑥𝐵 (𝐹‘((rec(𝐹, 𝐴) ↾ 𝐵)‘𝑥))) ∈ V)
466, 22, 26, 45fvmptd 5567 . 2 ((𝐹 Fn V ∧ 𝐴𝑉𝐵 ∈ On) → ((𝑔 ∈ V ↦ (𝐴 𝑥 ∈ dom 𝑔(𝐹‘(𝑔𝑥))))‘(rec(𝐹, 𝐴) ↾ 𝐵)) = (𝐴 𝑥𝐵 (𝐹‘((rec(𝐹, 𝐴) ↾ 𝐵)‘𝑥))))
475, 46eqtrd 2198 1 ((𝐹 Fn V ∧ 𝐴𝑉𝐵 ∈ On) → (rec(𝐹, 𝐴)‘𝐵) = (𝐴 𝑥𝐵 (𝐹‘((rec(𝐹, 𝐴) ↾ 𝐵)‘𝑥))))
Colors of variables: wff set class
Syntax hints:  wi 4  wa 103  w3a 968   = wceq 1343  wcel 2136  wral 2444  Vcvv 2726  cun 3114  wss 3116   ciun 3866  cmpt 4043  Oncon0 4341  dom cdm 4604  cres 4606  Fun wfun 5182   Fn wfn 5183  cfv 5188  reccrdg 6337
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 105  ax-ia2 106  ax-ia3 107  ax-in1 604  ax-in2 605  ax-io 699  ax-5 1435  ax-7 1436  ax-gen 1437  ax-ie1 1481  ax-ie2 1482  ax-8 1492  ax-10 1493  ax-11 1494  ax-i12 1495  ax-bndl 1497  ax-4 1498  ax-17 1514  ax-i9 1518  ax-ial 1522  ax-i5r 1523  ax-13 2138  ax-14 2139  ax-ext 2147  ax-coll 4097  ax-sep 4100  ax-pow 4153  ax-pr 4187  ax-un 4411  ax-setind 4514
This theorem depends on definitions:  df-bi 116  df-3an 970  df-tru 1346  df-fal 1349  df-nf 1449  df-sb 1751  df-eu 2017  df-mo 2018  df-clab 2152  df-cleq 2158  df-clel 2161  df-nfc 2297  df-ne 2337  df-ral 2449  df-rex 2450  df-reu 2451  df-rab 2453  df-v 2728  df-sbc 2952  df-csb 3046  df-dif 3118  df-un 3120  df-in 3122  df-ss 3129  df-nul 3410  df-pw 3561  df-sn 3582  df-pr 3583  df-op 3585  df-uni 3790  df-iun 3868  df-br 3983  df-opab 4044  df-mpt 4045  df-tr 4081  df-id 4271  df-iord 4344  df-on 4346  df-suc 4349  df-xp 4610  df-rel 4611  df-cnv 4612  df-co 4613  df-dm 4614  df-rn 4615  df-res 4616  df-ima 4617  df-iota 5153  df-fun 5190  df-fn 5191  df-f 5192  df-f1 5193  df-fo 5194  df-f1o 5195  df-fv 5196  df-recs 6273  df-irdg 6338
This theorem is referenced by:  rdgival  6350
  Copyright terms: Public domain W3C validator