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

Theorem oav2 6367
Description: Value of ordinal addition. (Contributed by Mario Carneiro and Jim Kingdon, 12-Aug-2019.)
Assertion
Ref Expression
oav2 ((𝐴 ∈ On ∧ 𝐵 ∈ On) → (𝐴 +o 𝐵) = (𝐴 𝑥𝐵 suc (𝐴 +o 𝑥)))
Distinct variable groups:   𝑥,𝐴   𝑥,𝐵

Proof of Theorem oav2
Dummy variable 𝑦 is distinct from all other variables.
StepHypRef Expression
1 oafnex 6348 . . 3 (𝑦 ∈ V ↦ suc 𝑦) Fn V
2 rdgival 6287 . . 3 (((𝑦 ∈ V ↦ suc 𝑦) Fn V ∧ 𝐴 ∈ On ∧ 𝐵 ∈ On) → (rec((𝑦 ∈ V ↦ suc 𝑦), 𝐴)‘𝐵) = (𝐴 𝑥𝐵 ((𝑦 ∈ V ↦ suc 𝑦)‘(rec((𝑦 ∈ V ↦ suc 𝑦), 𝐴)‘𝑥))))
31, 2mp3an1 1303 . 2 ((𝐴 ∈ On ∧ 𝐵 ∈ On) → (rec((𝑦 ∈ V ↦ suc 𝑦), 𝐴)‘𝐵) = (𝐴 𝑥𝐵 ((𝑦 ∈ V ↦ suc 𝑦)‘(rec((𝑦 ∈ V ↦ suc 𝑦), 𝐴)‘𝑥))))
4 oav 6358 . 2 ((𝐴 ∈ On ∧ 𝐵 ∈ On) → (𝐴 +o 𝐵) = (rec((𝑦 ∈ V ↦ suc 𝑦), 𝐴)‘𝐵))
5 onelon 4314 . . . . . 6 ((𝐵 ∈ On ∧ 𝑥𝐵) → 𝑥 ∈ On)
6 vex 2692 . . . . . . . . . 10 𝑥 ∈ V
7 oaexg 6352 . . . . . . . . . 10 ((𝐴 ∈ On ∧ 𝑥 ∈ V) → (𝐴 +o 𝑥) ∈ V)
86, 7mpan2 422 . . . . . . . . 9 (𝐴 ∈ On → (𝐴 +o 𝑥) ∈ V)
9 sucexg 4422 . . . . . . . . . 10 ((𝐴 +o 𝑥) ∈ V → suc (𝐴 +o 𝑥) ∈ V)
108, 9syl 14 . . . . . . . . 9 (𝐴 ∈ On → suc (𝐴 +o 𝑥) ∈ V)
11 suceq 4332 . . . . . . . . . 10 (𝑦 = (𝐴 +o 𝑥) → suc 𝑦 = suc (𝐴 +o 𝑥))
12 eqid 2140 . . . . . . . . . 10 (𝑦 ∈ V ↦ suc 𝑦) = (𝑦 ∈ V ↦ suc 𝑦)
1311, 12fvmptg 5505 . . . . . . . . 9 (((𝐴 +o 𝑥) ∈ V ∧ suc (𝐴 +o 𝑥) ∈ V) → ((𝑦 ∈ V ↦ suc 𝑦)‘(𝐴 +o 𝑥)) = suc (𝐴 +o 𝑥))
148, 10, 13syl2anc 409 . . . . . . . 8 (𝐴 ∈ On → ((𝑦 ∈ V ↦ suc 𝑦)‘(𝐴 +o 𝑥)) = suc (𝐴 +o 𝑥))
1514adantr 274 . . . . . . 7 ((𝐴 ∈ On ∧ 𝑥 ∈ On) → ((𝑦 ∈ V ↦ suc 𝑦)‘(𝐴 +o 𝑥)) = suc (𝐴 +o 𝑥))
16 oav 6358 . . . . . . . 8 ((𝐴 ∈ On ∧ 𝑥 ∈ On) → (𝐴 +o 𝑥) = (rec((𝑦 ∈ V ↦ suc 𝑦), 𝐴)‘𝑥))
1716fveq2d 5433 . . . . . . 7 ((𝐴 ∈ On ∧ 𝑥 ∈ On) → ((𝑦 ∈ V ↦ suc 𝑦)‘(𝐴 +o 𝑥)) = ((𝑦 ∈ V ↦ suc 𝑦)‘(rec((𝑦 ∈ V ↦ suc 𝑦), 𝐴)‘𝑥)))
1815, 17eqtr3d 2175 . . . . . 6 ((𝐴 ∈ On ∧ 𝑥 ∈ On) → suc (𝐴 +o 𝑥) = ((𝑦 ∈ V ↦ suc 𝑦)‘(rec((𝑦 ∈ V ↦ suc 𝑦), 𝐴)‘𝑥)))
195, 18sylan2 284 . . . . 5 ((𝐴 ∈ On ∧ (𝐵 ∈ On ∧ 𝑥𝐵)) → suc (𝐴 +o 𝑥) = ((𝑦 ∈ V ↦ suc 𝑦)‘(rec((𝑦 ∈ V ↦ suc 𝑦), 𝐴)‘𝑥)))
2019anassrs 398 . . . 4 (((𝐴 ∈ On ∧ 𝐵 ∈ On) ∧ 𝑥𝐵) → suc (𝐴 +o 𝑥) = ((𝑦 ∈ V ↦ suc 𝑦)‘(rec((𝑦 ∈ V ↦ suc 𝑦), 𝐴)‘𝑥)))
2120iuneq2dv 3842 . . 3 ((𝐴 ∈ On ∧ 𝐵 ∈ On) → 𝑥𝐵 suc (𝐴 +o 𝑥) = 𝑥𝐵 ((𝑦 ∈ V ↦ suc 𝑦)‘(rec((𝑦 ∈ V ↦ suc 𝑦), 𝐴)‘𝑥)))
2221uneq2d 3235 . 2 ((𝐴 ∈ On ∧ 𝐵 ∈ On) → (𝐴 𝑥𝐵 suc (𝐴 +o 𝑥)) = (𝐴 𝑥𝐵 ((𝑦 ∈ V ↦ suc 𝑦)‘(rec((𝑦 ∈ V ↦ suc 𝑦), 𝐴)‘𝑥))))
233, 4, 223eqtr4d 2183 1 ((𝐴 ∈ On ∧ 𝐵 ∈ On) → (𝐴 +o 𝐵) = (𝐴 𝑥𝐵 suc (𝐴 +o 𝑥)))
Colors of variables: wff set class
Syntax hints:  wi 4  wa 103   = wceq 1332  wcel 1481  Vcvv 2689  cun 3074   ciun 3821  cmpt 3997  Oncon0 4293  suc csuc 4295   Fn wfn 5126  cfv 5131  (class class class)co 5782  reccrdg 6274   +o coa 6318
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-ov 5785  df-oprab 5786  df-mpo 5787  df-1st 6046  df-2nd 6047  df-recs 6210  df-irdg 6275  df-oadd 6325
This theorem is referenced by:  oasuc  6368
  Copyright terms: Public domain W3C validator