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

Theorem bnj1145 32973
Description: Technical lemma for bnj69 32990. 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
bnj1145.1 (𝜑 ↔ (𝑓‘∅) = pred(𝑋, 𝐴, 𝑅))
bnj1145.2 (𝜓 ↔ ∀𝑖 ∈ ω (suc 𝑖𝑛 → (𝑓‘suc 𝑖) = 𝑦 ∈ (𝑓𝑖) pred(𝑦, 𝐴, 𝑅)))
bnj1145.3 𝐷 = (ω ∖ {∅})
bnj1145.4 𝐵 = {𝑓 ∣ ∃𝑛𝐷 (𝑓 Fn 𝑛𝜑𝜓)}
bnj1145.5 (𝜒 ↔ (𝑛𝐷𝑓 Fn 𝑛𝜑𝜓))
bnj1145.6 (𝜃 ↔ ((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) ∧ (𝑗𝑛𝑖 = suc 𝑗)))
Assertion
Ref Expression
bnj1145 trCl(𝑋, 𝐴, 𝑅) ⊆ 𝐴
Distinct variable groups:   𝐴,𝑓,𝑖,𝑗,𝑛,𝑦   𝐷,𝑖,𝑗   𝑅,𝑓,𝑖,𝑗,𝑛,𝑦   𝑓,𝑋,𝑖,𝑛,𝑦   𝜒,𝑗   𝜑,𝑖
Allowed substitution hints:   𝜑(𝑦,𝑓,𝑗,𝑛)   𝜓(𝑦,𝑓,𝑖,𝑗,𝑛)   𝜒(𝑦,𝑓,𝑖,𝑛)   𝜃(𝑦,𝑓,𝑖,𝑗,𝑛)   𝐵(𝑦,𝑓,𝑖,𝑗,𝑛)   𝐷(𝑦,𝑓,𝑛)   𝑋(𝑗)

Proof of Theorem bnj1145
Dummy variable 𝑤 is distinct from all other variables.
StepHypRef Expression
1 bnj1145.1 . . 3 (𝜑 ↔ (𝑓‘∅) = pred(𝑋, 𝐴, 𝑅))
2 bnj1145.2 . . 3 (𝜓 ↔ ∀𝑖 ∈ ω (suc 𝑖𝑛 → (𝑓‘suc 𝑖) = 𝑦 ∈ (𝑓𝑖) pred(𝑦, 𝐴, 𝑅)))
3 bnj1145.3 . . 3 𝐷 = (ω ∖ {∅})
4 bnj1145.4 . . 3 𝐵 = {𝑓 ∣ ∃𝑛𝐷 (𝑓 Fn 𝑛𝜑𝜓)}
51, 2, 3, 4bnj882 32906 . 2 trCl(𝑋, 𝐴, 𝑅) = 𝑓𝐵 𝑖 ∈ dom 𝑓(𝑓𝑖)
6 ss2iun 4942 . . . 4 (∀𝑓𝐵 𝑖 ∈ dom 𝑓(𝑓𝑖) ⊆ 𝐴 𝑓𝐵 𝑖 ∈ dom 𝑓(𝑓𝑖) ⊆ 𝑓𝐵 𝐴)
7 bnj1145.5 . . . . . . 7 (𝜒 ↔ (𝑛𝐷𝑓 Fn 𝑛𝜑𝜓))
87, 4bnj1083 32958 . . . . . 6 (𝑓𝐵 ↔ ∃𝑛𝜒)
92bnj1095 32761 . . . . . . . . 9 (𝜓 → ∀𝑖𝜓)
109, 7bnj1096 32762 . . . . . . . 8 (𝜒 → ∀𝑖𝜒)
113bnj1098 32763 . . . . . . . . . . . . . . . . 17 𝑗((𝑖 ≠ ∅ ∧ 𝑖𝑛𝑛𝐷) → (𝑗𝑛𝑖 = suc 𝑗))
127bnj1232 32783 . . . . . . . . . . . . . . . . . 18 (𝜒𝑛𝐷)
13123anim3i 1153 . . . . . . . . . . . . . . . . 17 ((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) → (𝑖 ≠ ∅ ∧ 𝑖𝑛𝑛𝐷))
1411, 13bnj1101 32764 . . . . . . . . . . . . . . . 16 𝑗((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) → (𝑗𝑛𝑖 = suc 𝑗))
15 ancl 545 . . . . . . . . . . . . . . . 16 (((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) → (𝑗𝑛𝑖 = suc 𝑗)) → ((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) → ((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) ∧ (𝑗𝑛𝑖 = suc 𝑗))))
1614, 15bnj101 32702 . . . . . . . . . . . . . . 15 𝑗((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) → ((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) ∧ (𝑗𝑛𝑖 = suc 𝑗)))
17 bnj1145.6 . . . . . . . . . . . . . . . . 17 (𝜃 ↔ ((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) ∧ (𝑗𝑛𝑖 = suc 𝑗)))
1817imbi2i 336 . . . . . . . . . . . . . . . 16 (((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) → 𝜃) ↔ ((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) → ((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) ∧ (𝑗𝑛𝑖 = suc 𝑗))))
1918exbii 1850 . . . . . . . . . . . . . . 15 (∃𝑗((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) → 𝜃) ↔ ∃𝑗((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) → ((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) ∧ (𝑗𝑛𝑖 = suc 𝑗))))
2016, 19mpbir 230 . . . . . . . . . . . . . 14 𝑗((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) → 𝜃)
21 bnj213 32862 . . . . . . . . . . . . . . . 16 pred(𝑦, 𝐴, 𝑅) ⊆ 𝐴
2221bnj226 32713 . . . . . . . . . . . . . . 15 𝑦 ∈ (𝑓𝑗) pred(𝑦, 𝐴, 𝑅) ⊆ 𝐴
23 simpr 485 . . . . . . . . . . . . . . . . . . 19 ((𝑗𝑛𝑖 = suc 𝑗) → 𝑖 = suc 𝑗)
2417, 23simplbiim 505 . . . . . . . . . . . . . . . . . 18 (𝜃𝑖 = suc 𝑗)
25 simp2 1136 . . . . . . . . . . . . . . . . . . . 20 ((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) → 𝑖𝑛)
26123ad2ant3 1134 . . . . . . . . . . . . . . . . . . . 20 ((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) → 𝑛𝐷)
273bnj923 32748 . . . . . . . . . . . . . . . . . . . . 21 (𝑛𝐷𝑛 ∈ ω)
28 elnn 7723 . . . . . . . . . . . . . . . . . . . . 21 ((𝑖𝑛𝑛 ∈ ω) → 𝑖 ∈ ω)
2927, 28sylan2 593 . . . . . . . . . . . . . . . . . . . 20 ((𝑖𝑛𝑛𝐷) → 𝑖 ∈ ω)
3025, 26, 29syl2anc 584 . . . . . . . . . . . . . . . . . . 19 ((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) → 𝑖 ∈ ω)
3117, 30bnj832 32738 . . . . . . . . . . . . . . . . . 18 (𝜃𝑖 ∈ ω)
32 vex 3436 . . . . . . . . . . . . . . . . . . . 20 𝑗 ∈ V
3332bnj216 32711 . . . . . . . . . . . . . . . . . . 19 (𝑖 = suc 𝑗𝑗𝑖)
34 elnn 7723 . . . . . . . . . . . . . . . . . . 19 ((𝑗𝑖𝑖 ∈ ω) → 𝑗 ∈ ω)
3533, 34sylan 580 . . . . . . . . . . . . . . . . . 18 ((𝑖 = suc 𝑗𝑖 ∈ ω) → 𝑗 ∈ ω)
3624, 31, 35syl2anc 584 . . . . . . . . . . . . . . . . 17 (𝜃𝑗 ∈ ω)
3717, 25bnj832 32738 . . . . . . . . . . . . . . . . . 18 (𝜃𝑖𝑛)
3824, 37eqeltrrd 2840 . . . . . . . . . . . . . . . . 17 (𝜃 → suc 𝑗𝑛)
392bnj589 32889 . . . . . . . . . . . . . . . . . . . . . . 23 (𝜓 ↔ ∀𝑗 ∈ ω (suc 𝑗𝑛 → (𝑓‘suc 𝑗) = 𝑦 ∈ (𝑓𝑗) pred(𝑦, 𝐴, 𝑅)))
4039biimpi 215 . . . . . . . . . . . . . . . . . . . . . 22 (𝜓 → ∀𝑗 ∈ ω (suc 𝑗𝑛 → (𝑓‘suc 𝑗) = 𝑦 ∈ (𝑓𝑗) pred(𝑦, 𝐴, 𝑅)))
4140bnj708 32736 . . . . . . . . . . . . . . . . . . . . 21 ((𝑛𝐷𝑓 Fn 𝑛𝜑𝜓) → ∀𝑗 ∈ ω (suc 𝑗𝑛 → (𝑓‘suc 𝑗) = 𝑦 ∈ (𝑓𝑗) pred(𝑦, 𝐴, 𝑅)))
42 rsp 3131 . . . . . . . . . . . . . . . . . . . . 21 (∀𝑗 ∈ ω (suc 𝑗𝑛 → (𝑓‘suc 𝑗) = 𝑦 ∈ (𝑓𝑗) pred(𝑦, 𝐴, 𝑅)) → (𝑗 ∈ ω → (suc 𝑗𝑛 → (𝑓‘suc 𝑗) = 𝑦 ∈ (𝑓𝑗) pred(𝑦, 𝐴, 𝑅))))
4341, 42syl 17 . . . . . . . . . . . . . . . . . . . 20 ((𝑛𝐷𝑓 Fn 𝑛𝜑𝜓) → (𝑗 ∈ ω → (suc 𝑗𝑛 → (𝑓‘suc 𝑗) = 𝑦 ∈ (𝑓𝑗) pred(𝑦, 𝐴, 𝑅))))
447, 43sylbi 216 . . . . . . . . . . . . . . . . . . 19 (𝜒 → (𝑗 ∈ ω → (suc 𝑗𝑛 → (𝑓‘suc 𝑗) = 𝑦 ∈ (𝑓𝑗) pred(𝑦, 𝐴, 𝑅))))
45443ad2ant3 1134 . . . . . . . . . . . . . . . . . 18 ((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) → (𝑗 ∈ ω → (suc 𝑗𝑛 → (𝑓‘suc 𝑗) = 𝑦 ∈ (𝑓𝑗) pred(𝑦, 𝐴, 𝑅))))
4617, 45bnj832 32738 . . . . . . . . . . . . . . . . 17 (𝜃 → (𝑗 ∈ ω → (suc 𝑗𝑛 → (𝑓‘suc 𝑗) = 𝑦 ∈ (𝑓𝑗) pred(𝑦, 𝐴, 𝑅))))
4736, 38, 46mp2d 49 . . . . . . . . . . . . . . . 16 (𝜃 → (𝑓‘suc 𝑗) = 𝑦 ∈ (𝑓𝑗) pred(𝑦, 𝐴, 𝑅))
48 fveqeq2 6783 . . . . . . . . . . . . . . . . 17 (𝑖 = suc 𝑗 → ((𝑓𝑖) = 𝑦 ∈ (𝑓𝑗) pred(𝑦, 𝐴, 𝑅) ↔ (𝑓‘suc 𝑗) = 𝑦 ∈ (𝑓𝑗) pred(𝑦, 𝐴, 𝑅)))
4924, 48syl 17 . . . . . . . . . . . . . . . 16 (𝜃 → ((𝑓𝑖) = 𝑦 ∈ (𝑓𝑗) pred(𝑦, 𝐴, 𝑅) ↔ (𝑓‘suc 𝑗) = 𝑦 ∈ (𝑓𝑗) pred(𝑦, 𝐴, 𝑅)))
5047, 49mpbird 256 . . . . . . . . . . . . . . 15 (𝜃 → (𝑓𝑖) = 𝑦 ∈ (𝑓𝑗) pred(𝑦, 𝐴, 𝑅))
5122, 50bnj1262 32790 . . . . . . . . . . . . . 14 (𝜃 → (𝑓𝑖) ⊆ 𝐴)
5220, 51bnj1023 32760 . . . . . . . . . . . . 13 𝑗((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) → (𝑓𝑖) ⊆ 𝐴)
53 3anass 1094 . . . . . . . . . . . . . . 15 ((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) ↔ (𝑖 ≠ ∅ ∧ (𝑖𝑛𝜒)))
5453imbi1i 350 . . . . . . . . . . . . . 14 (((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) → (𝑓𝑖) ⊆ 𝐴) ↔ ((𝑖 ≠ ∅ ∧ (𝑖𝑛𝜒)) → (𝑓𝑖) ⊆ 𝐴))
5554exbii 1850 . . . . . . . . . . . . 13 (∃𝑗((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) → (𝑓𝑖) ⊆ 𝐴) ↔ ∃𝑗((𝑖 ≠ ∅ ∧ (𝑖𝑛𝜒)) → (𝑓𝑖) ⊆ 𝐴))
5652, 55mpbi 229 . . . . . . . . . . . 12 𝑗((𝑖 ≠ ∅ ∧ (𝑖𝑛𝜒)) → (𝑓𝑖) ⊆ 𝐴)
571biimpi 215 . . . . . . . . . . . . . . 15 (𝜑 → (𝑓‘∅) = pred(𝑋, 𝐴, 𝑅))
587, 57bnj771 32744 . . . . . . . . . . . . . 14 (𝜒 → (𝑓‘∅) = pred(𝑋, 𝐴, 𝑅))
59 fveq2 6774 . . . . . . . . . . . . . . 15 (𝑖 = ∅ → (𝑓𝑖) = (𝑓‘∅))
60 bnj213 32862 . . . . . . . . . . . . . . . 16 pred(𝑋, 𝐴, 𝑅) ⊆ 𝐴
61 sseq1 3946 . . . . . . . . . . . . . . . 16 ((𝑓‘∅) = pred(𝑋, 𝐴, 𝑅) → ((𝑓‘∅) ⊆ 𝐴 ↔ pred(𝑋, 𝐴, 𝑅) ⊆ 𝐴))
6260, 61mpbiri 257 . . . . . . . . . . . . . . 15 ((𝑓‘∅) = pred(𝑋, 𝐴, 𝑅) → (𝑓‘∅) ⊆ 𝐴)
63 sseq1 3946 . . . . . . . . . . . . . . . 16 ((𝑓𝑖) = (𝑓‘∅) → ((𝑓𝑖) ⊆ 𝐴 ↔ (𝑓‘∅) ⊆ 𝐴))
6463biimpar 478 . . . . . . . . . . . . . . 15 (((𝑓𝑖) = (𝑓‘∅) ∧ (𝑓‘∅) ⊆ 𝐴) → (𝑓𝑖) ⊆ 𝐴)
6559, 62, 64syl2an 596 . . . . . . . . . . . . . 14 ((𝑖 = ∅ ∧ (𝑓‘∅) = pred(𝑋, 𝐴, 𝑅)) → (𝑓𝑖) ⊆ 𝐴)
6658, 65sylan2 593 . . . . . . . . . . . . 13 ((𝑖 = ∅ ∧ 𝜒) → (𝑓𝑖) ⊆ 𝐴)
6766adantrl 713 . . . . . . . . . . . 12 ((𝑖 = ∅ ∧ (𝑖𝑛𝜒)) → (𝑓𝑖) ⊆ 𝐴)
6856, 67bnj1109 32766 . . . . . . . . . . 11 𝑗((𝑖𝑛𝜒) → (𝑓𝑖) ⊆ 𝐴)
69 19.9v 1987 . . . . . . . . . . 11 (∃𝑗((𝑖𝑛𝜒) → (𝑓𝑖) ⊆ 𝐴) ↔ ((𝑖𝑛𝜒) → (𝑓𝑖) ⊆ 𝐴))
7068, 69mpbi 229 . . . . . . . . . 10 ((𝑖𝑛𝜒) → (𝑓𝑖) ⊆ 𝐴)
7170expcom 414 . . . . . . . . 9 (𝜒 → (𝑖𝑛 → (𝑓𝑖) ⊆ 𝐴))
72 fndm 6536 . . . . . . . . . . 11 (𝑓 Fn 𝑛 → dom 𝑓 = 𝑛)
737, 72bnj770 32743 . . . . . . . . . 10 (𝜒 → dom 𝑓 = 𝑛)
74 eleq2 2827 . . . . . . . . . . 11 (dom 𝑓 = 𝑛 → (𝑖 ∈ dom 𝑓𝑖𝑛))
7574imbi1d 342 . . . . . . . . . 10 (dom 𝑓 = 𝑛 → ((𝑖 ∈ dom 𝑓 → (𝑓𝑖) ⊆ 𝐴) ↔ (𝑖𝑛 → (𝑓𝑖) ⊆ 𝐴)))
7673, 75syl 17 . . . . . . . . 9 (𝜒 → ((𝑖 ∈ dom 𝑓 → (𝑓𝑖) ⊆ 𝐴) ↔ (𝑖𝑛 → (𝑓𝑖) ⊆ 𝐴)))
7771, 76mpbird 256 . . . . . . . 8 (𝜒 → (𝑖 ∈ dom 𝑓 → (𝑓𝑖) ⊆ 𝐴))
7810, 77hbralrimi 3101 . . . . . . 7 (𝜒 → ∀𝑖 ∈ dom 𝑓(𝑓𝑖) ⊆ 𝐴)
7978exlimiv 1933 . . . . . 6 (∃𝑛𝜒 → ∀𝑖 ∈ dom 𝑓(𝑓𝑖) ⊆ 𝐴)
808, 79sylbi 216 . . . . 5 (𝑓𝐵 → ∀𝑖 ∈ dom 𝑓(𝑓𝑖) ⊆ 𝐴)
81 ss2iun 4942 . . . . . 6 (∀𝑖 ∈ dom 𝑓(𝑓𝑖) ⊆ 𝐴 𝑖 ∈ dom 𝑓(𝑓𝑖) ⊆ 𝑖 ∈ dom 𝑓 𝐴)
82 bnj1143 32770 . . . . . 6 𝑖 ∈ dom 𝑓 𝐴𝐴
8381, 82sstrdi 3933 . . . . 5 (∀𝑖 ∈ dom 𝑓(𝑓𝑖) ⊆ 𝐴 𝑖 ∈ dom 𝑓(𝑓𝑖) ⊆ 𝐴)
8480, 83syl 17 . . . 4 (𝑓𝐵 𝑖 ∈ dom 𝑓(𝑓𝑖) ⊆ 𝐴)
856, 84mprg 3078 . . 3 𝑓𝐵 𝑖 ∈ dom 𝑓(𝑓𝑖) ⊆ 𝑓𝐵 𝐴
864bnj1317 32801 . . . 4 (𝑤𝐵 → ∀𝑓 𝑤𝐵)
8786bnj1146 32771 . . 3 𝑓𝐵 𝐴𝐴
8885, 87sstri 3930 . 2 𝑓𝐵 𝑖 ∈ dom 𝑓(𝑓𝑖) ⊆ 𝐴
895, 88eqsstri 3955 1 trCl(𝑋, 𝐴, 𝑅) ⊆ 𝐴
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 205  wa 396  w3a 1086   = wceq 1539  wex 1782  wcel 2106  {cab 2715  wne 2943  wral 3064  wrex 3065  cdif 3884  wss 3887  c0 4256  {csn 4561   ciun 4924  dom cdm 5589  suc csuc 6268   Fn wfn 6428  cfv 6433  ωcom 7712  w-bnj17 32665   predc-bnj14 32667   trClc-bnj18 32673
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1798  ax-4 1812  ax-5 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2709  ax-sep 5223  ax-nul 5230  ax-pr 5352  ax-un 7588
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 845  df-3or 1087  df-3an 1088  df-tru 1542  df-fal 1552  df-ex 1783  df-nf 1787  df-sb 2068  df-clab 2716  df-cleq 2730  df-clel 2816  df-nfc 2889  df-ne 2944  df-ral 3069  df-rex 3070  df-rab 3073  df-v 3434  df-dif 3890  df-un 3892  df-in 3894  df-ss 3904  df-pss 3906  df-nul 4257  df-if 4460  df-pw 4535  df-sn 4562  df-pr 4564  df-op 4568  df-uni 4840  df-iun 4926  df-br 5075  df-opab 5137  df-tr 5192  df-eprel 5495  df-po 5503  df-so 5504  df-fr 5544  df-we 5546  df-ord 6269  df-on 6270  df-lim 6271  df-suc 6272  df-iota 6391  df-fn 6436  df-fv 6441  df-om 7713  df-bnj17 32666  df-bnj14 32668  df-bnj18 32674
This theorem is referenced by:  bnj1147  32974
  Copyright terms: Public domain W3C validator