Users' Mathboxes Mathbox for Jonathan Ben-Naim < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  bnj1296 Structured version   Visualization version   GIF version

Theorem bnj1296 32714
Description: Technical lemma for bnj60 32755. This lemma may no longer be used or have become an indirect lemma of the theorem in question (i.e. a lemma of a lemma... of the theorem). (Contributed by Jonathan Ben-Naim, 3-Jun-2011.) (New usage is discouraged.)
Hypotheses
Ref Expression
bnj1296.1 𝐵 = {𝑑 ∣ (𝑑𝐴 ∧ ∀𝑥𝑑 pred(𝑥, 𝐴, 𝑅) ⊆ 𝑑)}
bnj1296.2 𝑌 = ⟨𝑥, (𝑓 ↾ pred(𝑥, 𝐴, 𝑅))⟩
bnj1296.3 𝐶 = {𝑓 ∣ ∃𝑑𝐵 (𝑓 Fn 𝑑 ∧ ∀𝑥𝑑 (𝑓𝑥) = (𝐺𝑌))}
bnj1296.4 𝐷 = (dom 𝑔 ∩ dom )
bnj1296.5 𝐸 = {𝑥𝐷 ∣ (𝑔𝑥) ≠ (𝑥)}
bnj1296.6 (𝜑 ↔ (𝑅 FrSe 𝐴𝑔𝐶𝐶 ∧ (𝑔𝐷) ≠ (𝐷)))
bnj1296.7 (𝜓 ↔ (𝜑𝑥𝐸 ∧ ∀𝑦𝐸 ¬ 𝑦𝑅𝑥))
bnj1296.18 (𝜓 → (𝑔 ↾ pred(𝑥, 𝐴, 𝑅)) = ( ↾ pred(𝑥, 𝐴, 𝑅)))
bnj1296.9 𝑍 = ⟨𝑥, (𝑔 ↾ pred(𝑥, 𝐴, 𝑅))⟩
bnj1296.10 𝐾 = {𝑔 ∣ ∃𝑑𝐵 (𝑔 Fn 𝑑 ∧ ∀𝑥𝑑 (𝑔𝑥) = (𝐺𝑍))}
bnj1296.11 𝑊 = ⟨𝑥, ( ↾ pred(𝑥, 𝐴, 𝑅))⟩
bnj1296.12 𝐿 = { ∣ ∃𝑑𝐵 ( Fn 𝑑 ∧ ∀𝑥𝑑 (𝑥) = (𝐺𝑊))}
Assertion
Ref Expression
bnj1296 (𝜓 → (𝑔𝑥) = (𝑥))
Distinct variable groups:   𝐵,𝑓,𝑔   𝐵,,𝑓   𝑥,𝐷   𝐺,𝑑,𝑓,𝑔   ,𝐺,𝑑   𝑊,𝑑,𝑓   𝑔,𝑌   ,𝑌   𝑍,𝑑,𝑓   𝑥,𝑑,𝑓,𝑔   𝑥,
Allowed substitution hints:   𝜑(𝑥,𝑦,𝑓,𝑔,,𝑑)   𝜓(𝑥,𝑦,𝑓,𝑔,,𝑑)   𝐴(𝑥,𝑦,𝑓,𝑔,,𝑑)   𝐵(𝑥,𝑦,𝑑)   𝐶(𝑥,𝑦,𝑓,𝑔,,𝑑)   𝐷(𝑦,𝑓,𝑔,,𝑑)   𝑅(𝑥,𝑦,𝑓,𝑔,,𝑑)   𝐸(𝑥,𝑦,𝑓,𝑔,,𝑑)   𝐺(𝑥,𝑦)   𝐾(𝑥,𝑦,𝑓,𝑔,,𝑑)   𝐿(𝑥,𝑦,𝑓,𝑔,,𝑑)   𝑊(𝑥,𝑦,𝑔,)   𝑌(𝑥,𝑦,𝑓,𝑑)   𝑍(𝑥,𝑦,𝑔,)

Proof of Theorem bnj1296
StepHypRef Expression
1 bnj1296.18 . . . . 5 (𝜓 → (𝑔 ↾ pred(𝑥, 𝐴, 𝑅)) = ( ↾ pred(𝑥, 𝐴, 𝑅)))
21opeq2d 4791 . . . 4 (𝜓 → ⟨𝑥, (𝑔 ↾ pred(𝑥, 𝐴, 𝑅))⟩ = ⟨𝑥, ( ↾ pred(𝑥, 𝐴, 𝑅))⟩)
3 bnj1296.9 . . . 4 𝑍 = ⟨𝑥, (𝑔 ↾ pred(𝑥, 𝐴, 𝑅))⟩
4 bnj1296.11 . . . 4 𝑊 = ⟨𝑥, ( ↾ pred(𝑥, 𝐴, 𝑅))⟩
52, 3, 43eqtr4g 2803 . . 3 (𝜓𝑍 = 𝑊)
65fveq2d 6721 . 2 (𝜓 → (𝐺𝑍) = (𝐺𝑊))
7 bnj1296.7 . . . 4 (𝜓 ↔ (𝜑𝑥𝐸 ∧ ∀𝑦𝐸 ¬ 𝑦𝑅𝑥))
8 bnj1296.6 . . . . 5 (𝜑 ↔ (𝑅 FrSe 𝐴𝑔𝐶𝐶 ∧ (𝑔𝐷) ≠ (𝐷)))
9 bnj1296.10 . . . . . . . . . . 11 𝐾 = {𝑔 ∣ ∃𝑑𝐵 (𝑔 Fn 𝑑 ∧ ∀𝑥𝑑 (𝑔𝑥) = (𝐺𝑍))}
109bnj1436 32532 . . . . . . . . . 10 (𝑔𝐾 → ∃𝑑𝐵 (𝑔 Fn 𝑑 ∧ ∀𝑥𝑑 (𝑔𝑥) = (𝐺𝑍)))
11 fndm 6481 . . . . . . . . . . 11 (𝑔 Fn 𝑑 → dom 𝑔 = 𝑑)
1211anim1i 618 . . . . . . . . . 10 ((𝑔 Fn 𝑑 ∧ ∀𝑥𝑑 (𝑔𝑥) = (𝐺𝑍)) → (dom 𝑔 = 𝑑 ∧ ∀𝑥𝑑 (𝑔𝑥) = (𝐺𝑍)))
1310, 12bnj31 32410 . . . . . . . . 9 (𝑔𝐾 → ∃𝑑𝐵 (dom 𝑔 = 𝑑 ∧ ∀𝑥𝑑 (𝑔𝑥) = (𝐺𝑍)))
14 raleq 3319 . . . . . . . . . . 11 (dom 𝑔 = 𝑑 → (∀𝑥 ∈ dom 𝑔(𝑔𝑥) = (𝐺𝑍) ↔ ∀𝑥𝑑 (𝑔𝑥) = (𝐺𝑍)))
1514pm5.32i 578 . . . . . . . . . 10 ((dom 𝑔 = 𝑑 ∧ ∀𝑥 ∈ dom 𝑔(𝑔𝑥) = (𝐺𝑍)) ↔ (dom 𝑔 = 𝑑 ∧ ∀𝑥𝑑 (𝑔𝑥) = (𝐺𝑍)))
1615rexbii 3170 . . . . . . . . 9 (∃𝑑𝐵 (dom 𝑔 = 𝑑 ∧ ∀𝑥 ∈ dom 𝑔(𝑔𝑥) = (𝐺𝑍)) ↔ ∃𝑑𝐵 (dom 𝑔 = 𝑑 ∧ ∀𝑥𝑑 (𝑔𝑥) = (𝐺𝑍)))
1713, 16sylibr 237 . . . . . . . 8 (𝑔𝐾 → ∃𝑑𝐵 (dom 𝑔 = 𝑑 ∧ ∀𝑥 ∈ dom 𝑔(𝑔𝑥) = (𝐺𝑍)))
18 simpr 488 . . . . . . . 8 ((dom 𝑔 = 𝑑 ∧ ∀𝑥 ∈ dom 𝑔(𝑔𝑥) = (𝐺𝑍)) → ∀𝑥 ∈ dom 𝑔(𝑔𝑥) = (𝐺𝑍))
1917, 18bnj31 32410 . . . . . . 7 (𝑔𝐾 → ∃𝑑𝐵𝑥 ∈ dom 𝑔(𝑔𝑥) = (𝐺𝑍))
2019bnj1265 32505 . . . . . 6 (𝑔𝐾 → ∀𝑥 ∈ dom 𝑔(𝑔𝑥) = (𝐺𝑍))
21 bnj1296.2 . . . . . . 7 𝑌 = ⟨𝑥, (𝑓 ↾ pred(𝑥, 𝐴, 𝑅))⟩
22 bnj1296.3 . . . . . . 7 𝐶 = {𝑓 ∣ ∃𝑑𝐵 (𝑓 Fn 𝑑 ∧ ∀𝑥𝑑 (𝑓𝑥) = (𝐺𝑌))}
2321, 22, 3, 9bnj1234 32706 . . . . . 6 𝐶 = 𝐾
2420, 23eleq2s 2856 . . . . 5 (𝑔𝐶 → ∀𝑥 ∈ dom 𝑔(𝑔𝑥) = (𝐺𝑍))
258, 24bnj770 32455 . . . 4 (𝜑 → ∀𝑥 ∈ dom 𝑔(𝑔𝑥) = (𝐺𝑍))
267, 25bnj835 32451 . . 3 (𝜓 → ∀𝑥 ∈ dom 𝑔(𝑔𝑥) = (𝐺𝑍))
27 bnj1296.4 . . . . 5 𝐷 = (dom 𝑔 ∩ dom )
2827bnj1292 32508 . . . 4 𝐷 ⊆ dom 𝑔
29 bnj1296.5 . . . . 5 𝐸 = {𝑥𝐷 ∣ (𝑔𝑥) ≠ (𝑥)}
3029, 7bnj1212 32492 . . . 4 (𝜓𝑥𝐷)
3128, 30bnj1213 32491 . . 3 (𝜓𝑥 ∈ dom 𝑔)
3226, 31bnj1294 32510 . 2 (𝜓 → (𝑔𝑥) = (𝐺𝑍))
33 bnj1296.12 . . . . . . . . . . 11 𝐿 = { ∣ ∃𝑑𝐵 ( Fn 𝑑 ∧ ∀𝑥𝑑 (𝑥) = (𝐺𝑊))}
3433bnj1436 32532 . . . . . . . . . 10 (𝐿 → ∃𝑑𝐵 ( Fn 𝑑 ∧ ∀𝑥𝑑 (𝑥) = (𝐺𝑊)))
35 fndm 6481 . . . . . . . . . . 11 ( Fn 𝑑 → dom = 𝑑)
3635anim1i 618 . . . . . . . . . 10 (( Fn 𝑑 ∧ ∀𝑥𝑑 (𝑥) = (𝐺𝑊)) → (dom = 𝑑 ∧ ∀𝑥𝑑 (𝑥) = (𝐺𝑊)))
3734, 36bnj31 32410 . . . . . . . . 9 (𝐿 → ∃𝑑𝐵 (dom = 𝑑 ∧ ∀𝑥𝑑 (𝑥) = (𝐺𝑊)))
38 raleq 3319 . . . . . . . . . . 11 (dom = 𝑑 → (∀𝑥 ∈ dom (𝑥) = (𝐺𝑊) ↔ ∀𝑥𝑑 (𝑥) = (𝐺𝑊)))
3938pm5.32i 578 . . . . . . . . . 10 ((dom = 𝑑 ∧ ∀𝑥 ∈ dom (𝑥) = (𝐺𝑊)) ↔ (dom = 𝑑 ∧ ∀𝑥𝑑 (𝑥) = (𝐺𝑊)))
4039rexbii 3170 . . . . . . . . 9 (∃𝑑𝐵 (dom = 𝑑 ∧ ∀𝑥 ∈ dom (𝑥) = (𝐺𝑊)) ↔ ∃𝑑𝐵 (dom = 𝑑 ∧ ∀𝑥𝑑 (𝑥) = (𝐺𝑊)))
4137, 40sylibr 237 . . . . . . . 8 (𝐿 → ∃𝑑𝐵 (dom = 𝑑 ∧ ∀𝑥 ∈ dom (𝑥) = (𝐺𝑊)))
42 simpr 488 . . . . . . . 8 ((dom = 𝑑 ∧ ∀𝑥 ∈ dom (𝑥) = (𝐺𝑊)) → ∀𝑥 ∈ dom (𝑥) = (𝐺𝑊))
4341, 42bnj31 32410 . . . . . . 7 (𝐿 → ∃𝑑𝐵𝑥 ∈ dom (𝑥) = (𝐺𝑊))
4443bnj1265 32505 . . . . . 6 (𝐿 → ∀𝑥 ∈ dom (𝑥) = (𝐺𝑊))
4521, 22, 4, 33bnj1234 32706 . . . . . 6 𝐶 = 𝐿
4644, 45eleq2s 2856 . . . . 5 (𝐶 → ∀𝑥 ∈ dom (𝑥) = (𝐺𝑊))
478, 46bnj771 32456 . . . 4 (𝜑 → ∀𝑥 ∈ dom (𝑥) = (𝐺𝑊))
487, 47bnj835 32451 . . 3 (𝜓 → ∀𝑥 ∈ dom (𝑥) = (𝐺𝑊))
4927bnj1293 32509 . . . 4 𝐷 ⊆ dom
5049, 30bnj1213 32491 . . 3 (𝜓𝑥 ∈ dom )
5148, 50bnj1294 32510 . 2 (𝜓 → (𝑥) = (𝐺𝑊))
526, 32, 513eqtr4d 2787 1 (𝜓 → (𝑔𝑥) = (𝑥))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 209  wa 399  w3a 1089   = wceq 1543  wcel 2110  {cab 2714  wne 2940  wral 3061  wrex 3062  {crab 3065  cin 3865  wss 3866  cop 4547   class class class wbr 5053  dom cdm 5551  cres 5553   Fn wfn 6375  cfv 6380  w-bnj17 32377   predc-bnj14 32379   FrSe w-bnj15 32383
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1803  ax-4 1817  ax-5 1918  ax-6 1976  ax-7 2016  ax-8 2112  ax-9 2120  ax-12 2175  ax-ext 2708
This theorem depends on definitions:  df-bi 210  df-an 400  df-or 848  df-3an 1091  df-tru 1546  df-fal 1556  df-ex 1788  df-sb 2071  df-clab 2715  df-cleq 2729  df-clel 2816  df-ral 3066  df-rex 3067  df-rab 3070  df-v 3410  df-dif 3869  df-un 3871  df-in 3873  df-ss 3883  df-nul 4238  df-if 4440  df-sn 4542  df-pr 4544  df-op 4548  df-uni 4820  df-br 5054  df-opab 5116  df-rel 5558  df-cnv 5559  df-co 5560  df-dm 5561  df-res 5563  df-iota 6338  df-fun 6382  df-fn 6383  df-fv 6388  df-bnj17 32378
This theorem is referenced by:  bnj1311  32717
  Copyright terms: Public domain W3C validator