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

Theorem rdgivallem 6286
Description: Value of the recursive definition generator. Lemma for rdgival 6287 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 6275 . . . 4 rec(𝐹, 𝐴) = recs((𝑔 ∈ V ↦ (𝐴 𝑥 ∈ dom 𝑔(𝐹‘(𝑔𝑥)))))
2 rdgruledefgg 6280 . . . . 5 ((𝐹 Fn V ∧ 𝐴𝑉) → (Fun (𝑔 ∈ V ↦ (𝐴 𝑥 ∈ dom 𝑔(𝐹‘(𝑔𝑥)))) ∧ ((𝑔 ∈ V ↦ (𝐴 𝑥 ∈ dom 𝑔(𝐹‘(𝑔𝑥))))‘𝑦) ∈ V))
32alrimiv 1847 . . . 4 ((𝐹 Fn V ∧ 𝐴𝑉) → ∀𝑦(Fun (𝑔 ∈ V ↦ (𝐴 𝑥 ∈ dom 𝑔(𝐹‘(𝑔𝑥)))) ∧ ((𝑔 ∈ V ↦ (𝐴 𝑥 ∈ dom 𝑔(𝐹‘(𝑔𝑥))))‘𝑦) ∈ V))
41, 3tfri2d 6241 . . 3 (((𝐹 Fn V ∧ 𝐴𝑉) ∧ 𝐵 ∈ On) → (rec(𝐹, 𝐴)‘𝐵) = ((𝑔 ∈ V ↦ (𝐴 𝑥 ∈ dom 𝑔(𝐹‘(𝑔𝑥))))‘(rec(𝐹, 𝐴) ↾ 𝐵)))
543impa 1177 . 2 ((𝐹 Fn V ∧ 𝐴𝑉𝐵 ∈ On) → (rec(𝐹, 𝐴)‘𝐵) = ((𝑔 ∈ V ↦ (𝐴 𝑥 ∈ dom 𝑔(𝐹‘(𝑔𝑥))))‘(rec(𝐹, 𝐴) ↾ 𝐵)))
6 eqidd 2141 . . 3 ((𝐹 Fn V ∧ 𝐴𝑉𝐵 ∈ On) → (𝑔 ∈ V ↦ (𝐴 𝑥 ∈ dom 𝑔(𝐹‘(𝑔𝑥)))) = (𝑔 ∈ V ↦ (𝐴 𝑥 ∈ dom 𝑔(𝐹‘(𝑔𝑥)))))
7 dmeq 4747 . . . . . 6 (𝑔 = (rec(𝐹, 𝐴) ↾ 𝐵) → dom 𝑔 = dom (rec(𝐹, 𝐴) ↾ 𝐵))
8 onss 4417 . . . . . . . . 9 (𝐵 ∈ On → 𝐵 ⊆ On)
983ad2ant3 1005 . . . . . . . 8 ((𝐹 Fn V ∧ 𝐴𝑉𝐵 ∈ On) → 𝐵 ⊆ On)
10 rdgifnon 6284 . . . . . . . . . 10 ((𝐹 Fn V ∧ 𝐴𝑉) → rec(𝐹, 𝐴) Fn On)
11 fndm 5230 . . . . . . . . . 10 (rec(𝐹, 𝐴) Fn On → dom rec(𝐹, 𝐴) = On)
1210, 11syl 14 . . . . . . . . 9 ((𝐹 Fn V ∧ 𝐴𝑉) → dom rec(𝐹, 𝐴) = On)
13123adant3 1002 . . . . . . . 8 ((𝐹 Fn V ∧ 𝐴𝑉𝐵 ∈ On) → dom rec(𝐹, 𝐴) = On)
149, 13sseqtrrd 3141 . . . . . . 7 ((𝐹 Fn V ∧ 𝐴𝑉𝐵 ∈ On) → 𝐵 ⊆ dom rec(𝐹, 𝐴))
15 ssdmres 4849 . . . . . . 7 (𝐵 ⊆ dom rec(𝐹, 𝐴) ↔ dom (rec(𝐹, 𝐴) ↾ 𝐵) = 𝐵)
1614, 15sylib 121 . . . . . 6 ((𝐹 Fn V ∧ 𝐴𝑉𝐵 ∈ On) → dom (rec(𝐹, 𝐴) ↾ 𝐵) = 𝐵)
177, 16sylan9eqr 2195 . . . . 5 (((𝐹 Fn V ∧ 𝐴𝑉𝐵 ∈ On) ∧ 𝑔 = (rec(𝐹, 𝐴) ↾ 𝐵)) → dom 𝑔 = 𝐵)
18 fveq1 5428 . . . . . . 7 (𝑔 = (rec(𝐹, 𝐴) ↾ 𝐵) → (𝑔𝑥) = ((rec(𝐹, 𝐴) ↾ 𝐵)‘𝑥))
1918fveq2d 5433 . . . . . 6 (𝑔 = (rec(𝐹, 𝐴) ↾ 𝐵) → (𝐹‘(𝑔𝑥)) = (𝐹‘((rec(𝐹, 𝐴) ↾ 𝐵)‘𝑥)))
2019adantl 275 . . . . 5 (((𝐹 Fn V ∧ 𝐴𝑉𝐵 ∈ On) ∧ 𝑔 = (rec(𝐹, 𝐴) ↾ 𝐵)) → (𝐹‘(𝑔𝑥)) = (𝐹‘((rec(𝐹, 𝐴) ↾ 𝐵)‘𝑥)))
2117, 20iuneq12d 3845 . . . 4 (((𝐹 Fn V ∧ 𝐴𝑉𝐵 ∈ On) ∧ 𝑔 = (rec(𝐹, 𝐴) ↾ 𝐵)) → 𝑥 ∈ dom 𝑔(𝐹‘(𝑔𝑥)) = 𝑥𝐵 (𝐹‘((rec(𝐹, 𝐴) ↾ 𝐵)‘𝑥)))
2221uneq2d 3235 . . 3 (((𝐹 Fn V ∧ 𝐴𝑉𝐵 ∈ On) ∧ 𝑔 = (rec(𝐹, 𝐴) ↾ 𝐵)) → (𝐴 𝑥 ∈ dom 𝑔(𝐹‘(𝑔𝑥))) = (𝐴 𝑥𝐵 (𝐹‘((rec(𝐹, 𝐴) ↾ 𝐵)‘𝑥))))
23 rdgfun 6278 . . . . 5 Fun rec(𝐹, 𝐴)
24 resfunexg 5649 . . . . 5 ((Fun rec(𝐹, 𝐴) ∧ 𝐵 ∈ On) → (rec(𝐹, 𝐴) ↾ 𝐵) ∈ V)
2523, 24mpan 421 . . . 4 (𝐵 ∈ On → (rec(𝐹, 𝐴) ↾ 𝐵) ∈ V)
26253ad2ant3 1005 . . 3 ((𝐹 Fn V ∧ 𝐴𝑉𝐵 ∈ On) → (rec(𝐹, 𝐴) ↾ 𝐵) ∈ V)
27 simpr 109 . . . . . 6 ((𝐹 Fn V ∧ 𝐵 ∈ On) → 𝐵 ∈ On)
28 vex 2692 . . . . . . . . . 10 𝑥 ∈ V
29 fvexg 5448 . . . . . . . . . 10 (((rec(𝐹, 𝐴) ↾ 𝐵) ∈ V ∧ 𝑥 ∈ V) → ((rec(𝐹, 𝐴) ↾ 𝐵)‘𝑥) ∈ V)
3025, 28, 29sylancl 410 . . . . . . . . 9 (𝐵 ∈ On → ((rec(𝐹, 𝐴) ↾ 𝐵)‘𝑥) ∈ V)
3130ralrimivw 2509 . . . . . . . 8 (𝐵 ∈ On → ∀𝑥𝐵 ((rec(𝐹, 𝐴) ↾ 𝐵)‘𝑥) ∈ V)
3231adantl 275 . . . . . . 7 ((𝐹 Fn V ∧ 𝐵 ∈ On) → ∀𝑥𝐵 ((rec(𝐹, 𝐴) ↾ 𝐵)‘𝑥) ∈ V)
33 funfvex 5446 . . . . . . . . . . 11 ((Fun 𝐹 ∧ ((rec(𝐹, 𝐴) ↾ 𝐵)‘𝑥) ∈ dom 𝐹) → (𝐹‘((rec(𝐹, 𝐴) ↾ 𝐵)‘𝑥)) ∈ V)
3433funfni 5231 . . . . . . . . . 10 ((𝐹 Fn V ∧ ((rec(𝐹, 𝐴) ↾ 𝐵)‘𝑥) ∈ V) → (𝐹‘((rec(𝐹, 𝐴) ↾ 𝐵)‘𝑥)) ∈ V)
3534ex 114 . . . . . . . . 9 (𝐹 Fn V → (((rec(𝐹, 𝐴) ↾ 𝐵)‘𝑥) ∈ V → (𝐹‘((rec(𝐹, 𝐴) ↾ 𝐵)‘𝑥)) ∈ V))
3635ralimdv 2503 . . . . . . . 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 6025 . . . . . 6 ((𝐵 ∈ On ∧ ∀𝑥𝐵 (𝐹‘((rec(𝐹, 𝐴) ↾ 𝐵)‘𝑥)) ∈ V) → 𝑥𝐵 (𝐹‘((rec(𝐹, 𝐴) ↾ 𝐵)‘𝑥)) ∈ V)
4027, 38, 39syl2anc 409 . . . . 5 ((𝐹 Fn V ∧ 𝐵 ∈ On) → 𝑥𝐵 (𝐹‘((rec(𝐹, 𝐴) ↾ 𝐵)‘𝑥)) ∈ V)
41403adant2 1001 . . . 4 ((𝐹 Fn V ∧ 𝐴𝑉𝐵 ∈ On) → 𝑥𝐵 (𝐹‘((rec(𝐹, 𝐴) ↾ 𝐵)‘𝑥)) ∈ V)
42 unexg 4372 . . . . . 6 ((𝐴𝑉 𝑥𝐵 (𝐹‘((rec(𝐹, 𝐴) ↾ 𝐵)‘𝑥)) ∈ V) → (𝐴 𝑥𝐵 (𝐹‘((rec(𝐹, 𝐴) ↾ 𝐵)‘𝑥))) ∈ V)
4342ex 114 . . . . 5 (𝐴𝑉 → ( 𝑥𝐵 (𝐹‘((rec(𝐹, 𝐴) ↾ 𝐵)‘𝑥)) ∈ V → (𝐴 𝑥𝐵 (𝐹‘((rec(𝐹, 𝐴) ↾ 𝐵)‘𝑥))) ∈ V))
44433ad2ant2 1004 . . . 4 ((𝐹 Fn V ∧ 𝐴𝑉𝐵 ∈ On) → ( 𝑥𝐵 (𝐹‘((rec(𝐹, 𝐴) ↾ 𝐵)‘𝑥)) ∈ V → (𝐴 𝑥𝐵 (𝐹‘((rec(𝐹, 𝐴) ↾ 𝐵)‘𝑥))) ∈ V))
4541, 44mpd 13 . . 3 ((𝐹 Fn V ∧ 𝐴𝑉𝐵 ∈ On) → (𝐴 𝑥𝐵 (𝐹‘((rec(𝐹, 𝐴) ↾ 𝐵)‘𝑥))) ∈ V)
466, 22, 26, 45fvmptd 5510 . 2 ((𝐹 Fn V ∧ 𝐴𝑉𝐵 ∈ On) → ((𝑔 ∈ V ↦ (𝐴 𝑥 ∈ dom 𝑔(𝐹‘(𝑔𝑥))))‘(rec(𝐹, 𝐴) ↾ 𝐵)) = (𝐴 𝑥𝐵 (𝐹‘((rec(𝐹, 𝐴) ↾ 𝐵)‘𝑥))))
475, 46eqtrd 2173 1 ((𝐹 Fn V ∧ 𝐴𝑉𝐵 ∈ On) → (rec(𝐹, 𝐴)‘𝐵) = (𝐴 𝑥𝐵 (𝐹‘((rec(𝐹, 𝐴) ↾ 𝐵)‘𝑥))))
Colors of variables: wff set class
Syntax hints:  wi 4  wa 103  w3a 963   = wceq 1332  wcel 1481  wral 2417  Vcvv 2689  cun 3074  wss 3076   ciun 3821  cmpt 3997  Oncon0 4293  dom cdm 4547  cres 4549  Fun wfun 5125   Fn wfn 5126  cfv 5131  reccrdg 6274
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 1424  ax-7 1425  ax-gen 1426  ax-ie1 1470  ax-ie2 1471  ax-8 1483  ax-10 1484  ax-11 1485  ax-i12 1486  ax-bndl 1487  ax-4 1488  ax-13 1492  ax-14 1493  ax-17 1507  ax-i9 1511  ax-ial 1515  ax-i5r 1516  ax-ext 2122  ax-coll 4051  ax-sep 4054  ax-pow 4106  ax-pr 4139  ax-un 4363  ax-setind 4460
This theorem depends on definitions:  df-bi 116  df-3an 965  df-tru 1335  df-fal 1338  df-nf 1438  df-sb 1737  df-eu 2003  df-mo 2004  df-clab 2127  df-cleq 2133  df-clel 2136  df-nfc 2271  df-ne 2310  df-ral 2422  df-rex 2423  df-reu 2424  df-rab 2426  df-v 2691  df-sbc 2914  df-csb 3008  df-dif 3078  df-un 3080  df-in 3082  df-ss 3089  df-nul 3369  df-pw 3517  df-sn 3538  df-pr 3539  df-op 3541  df-uni 3745  df-iun 3823  df-br 3938  df-opab 3998  df-mpt 3999  df-tr 4035  df-id 4223  df-iord 4296  df-on 4298  df-suc 4301  df-xp 4553  df-rel 4554  df-cnv 4555  df-co 4556  df-dm 4557  df-rn 4558  df-res 4559  df-ima 4560  df-iota 5096  df-fun 5133  df-fn 5134  df-f 5135  df-f1 5136  df-fo 5137  df-f1o 5138  df-fv 5139  df-recs 6210  df-irdg 6275
This theorem is referenced by:  rdgival  6287
  Copyright terms: Public domain W3C validator