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 32267
Description: Technical lemma for bnj69 32284. 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 32200 . 2 trCl(𝑋, 𝐴, 𝑅) = 𝑓𝐵 𝑖 ∈ dom 𝑓(𝑓𝑖)
6 ss2iun 4939 . . . 4 (∀𝑓𝐵 𝑖 ∈ dom 𝑓(𝑓𝑖) ⊆ 𝐴 𝑓𝐵 𝑖 ∈ dom 𝑓(𝑓𝑖) ⊆ 𝑓𝐵 𝐴)
7 bnj1145.5 . . . . . . 7 (𝜒 ↔ (𝑛𝐷𝑓 Fn 𝑛𝜑𝜓))
87, 4bnj1083 32252 . . . . . 6 (𝑓𝐵 ↔ ∃𝑛𝜒)
92bnj1095 32055 . . . . . . . . 9 (𝜓 → ∀𝑖𝜓)
109, 7bnj1096 32056 . . . . . . . 8 (𝜒 → ∀𝑖𝜒)
113bnj1098 32057 . . . . . . . . . . . . . . . . 17 𝑗((𝑖 ≠ ∅ ∧ 𝑖𝑛𝑛𝐷) → (𝑗𝑛𝑖 = suc 𝑗))
127bnj1232 32077 . . . . . . . . . . . . . . . . . 18 (𝜒𝑛𝐷)
13123anim3i 1150 . . . . . . . . . . . . . . . . 17 ((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) → (𝑖 ≠ ∅ ∧ 𝑖𝑛𝑛𝐷))
1411, 13bnj1101 32058 . . . . . . . . . . . . . . . 16 𝑗((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) → (𝑗𝑛𝑖 = suc 𝑗))
15 ancl 547 . . . . . . . . . . . . . . . 16 (((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) → (𝑗𝑛𝑖 = suc 𝑗)) → ((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) → ((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) ∧ (𝑗𝑛𝑖 = suc 𝑗))))
1614, 15bnj101 31995 . . . . . . . . . . . . . . 15 𝑗((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) → ((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) ∧ (𝑗𝑛𝑖 = suc 𝑗)))
17 bnj1145.6 . . . . . . . . . . . . . . . . 17 (𝜃 ↔ ((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) ∧ (𝑗𝑛𝑖 = suc 𝑗)))
1817imbi2i 338 . . . . . . . . . . . . . . . 16 (((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) → 𝜃) ↔ ((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) → ((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) ∧ (𝑗𝑛𝑖 = suc 𝑗))))
1918exbii 1848 . . . . . . . . . . . . . . 15 (∃𝑗((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) → 𝜃) ↔ ∃𝑗((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) → ((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) ∧ (𝑗𝑛𝑖 = suc 𝑗))))
2016, 19mpbir 233 . . . . . . . . . . . . . 14 𝑗((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) → 𝜃)
21 bnj213 32156 . . . . . . . . . . . . . . . 16 pred(𝑦, 𝐴, 𝑅) ⊆ 𝐴
2221bnj226 32006 . . . . . . . . . . . . . . 15 𝑦 ∈ (𝑓𝑗) pred(𝑦, 𝐴, 𝑅) ⊆ 𝐴
23 simpr 487 . . . . . . . . . . . . . . . . . . 19 ((𝑗𝑛𝑖 = suc 𝑗) → 𝑖 = suc 𝑗)
2417, 23simplbiim 507 . . . . . . . . . . . . . . . . . 18 (𝜃𝑖 = suc 𝑗)
25 simp2 1133 . . . . . . . . . . . . . . . . . . . 20 ((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) → 𝑖𝑛)
26123ad2ant3 1131 . . . . . . . . . . . . . . . . . . . 20 ((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) → 𝑛𝐷)
273bnj923 32041 . . . . . . . . . . . . . . . . . . . . 21 (𝑛𝐷𝑛 ∈ ω)
28 elnn 7592 . . . . . . . . . . . . . . . . . . . . 21 ((𝑖𝑛𝑛 ∈ ω) → 𝑖 ∈ ω)
2927, 28sylan2 594 . . . . . . . . . . . . . . . . . . . 20 ((𝑖𝑛𝑛𝐷) → 𝑖 ∈ ω)
3025, 26, 29syl2anc 586 . . . . . . . . . . . . . . . . . . 19 ((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) → 𝑖 ∈ ω)
3117, 30bnj832 32031 . . . . . . . . . . . . . . . . . 18 (𝜃𝑖 ∈ ω)
32 vex 3499 . . . . . . . . . . . . . . . . . . . 20 𝑗 ∈ V
3332bnj216 32004 . . . . . . . . . . . . . . . . . . 19 (𝑖 = suc 𝑗𝑗𝑖)
34 elnn 7592 . . . . . . . . . . . . . . . . . . 19 ((𝑗𝑖𝑖 ∈ ω) → 𝑗 ∈ ω)
3533, 34sylan 582 . . . . . . . . . . . . . . . . . 18 ((𝑖 = suc 𝑗𝑖 ∈ ω) → 𝑗 ∈ ω)
3624, 31, 35syl2anc 586 . . . . . . . . . . . . . . . . 17 (𝜃𝑗 ∈ ω)
3717, 25bnj832 32031 . . . . . . . . . . . . . . . . . 18 (𝜃𝑖𝑛)
3824, 37eqeltrrd 2916 . . . . . . . . . . . . . . . . 17 (𝜃 → suc 𝑗𝑛)
392bnj589 32183 . . . . . . . . . . . . . . . . . . . . . . 23 (𝜓 ↔ ∀𝑗 ∈ ω (suc 𝑗𝑛 → (𝑓‘suc 𝑗) = 𝑦 ∈ (𝑓𝑗) pred(𝑦, 𝐴, 𝑅)))
4039biimpi 218 . . . . . . . . . . . . . . . . . . . . . 22 (𝜓 → ∀𝑗 ∈ ω (suc 𝑗𝑛 → (𝑓‘suc 𝑗) = 𝑦 ∈ (𝑓𝑗) pred(𝑦, 𝐴, 𝑅)))
4140bnj708 32029 . . . . . . . . . . . . . . . . . . . . 21 ((𝑛𝐷𝑓 Fn 𝑛𝜑𝜓) → ∀𝑗 ∈ ω (suc 𝑗𝑛 → (𝑓‘suc 𝑗) = 𝑦 ∈ (𝑓𝑗) pred(𝑦, 𝐴, 𝑅)))
42 rsp 3207 . . . . . . . . . . . . . . . . . . . . 21 (∀𝑗 ∈ ω (suc 𝑗𝑛 → (𝑓‘suc 𝑗) = 𝑦 ∈ (𝑓𝑗) pred(𝑦, 𝐴, 𝑅)) → (𝑗 ∈ ω → (suc 𝑗𝑛 → (𝑓‘suc 𝑗) = 𝑦 ∈ (𝑓𝑗) pred(𝑦, 𝐴, 𝑅))))
4341, 42syl 17 . . . . . . . . . . . . . . . . . . . 20 ((𝑛𝐷𝑓 Fn 𝑛𝜑𝜓) → (𝑗 ∈ ω → (suc 𝑗𝑛 → (𝑓‘suc 𝑗) = 𝑦 ∈ (𝑓𝑗) pred(𝑦, 𝐴, 𝑅))))
447, 43sylbi 219 . . . . . . . . . . . . . . . . . . 19 (𝜒 → (𝑗 ∈ ω → (suc 𝑗𝑛 → (𝑓‘suc 𝑗) = 𝑦 ∈ (𝑓𝑗) pred(𝑦, 𝐴, 𝑅))))
45443ad2ant3 1131 . . . . . . . . . . . . . . . . . 18 ((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) → (𝑗 ∈ ω → (suc 𝑗𝑛 → (𝑓‘suc 𝑗) = 𝑦 ∈ (𝑓𝑗) pred(𝑦, 𝐴, 𝑅))))
4617, 45bnj832 32031 . . . . . . . . . . . . . . . . 17 (𝜃 → (𝑗 ∈ ω → (suc 𝑗𝑛 → (𝑓‘suc 𝑗) = 𝑦 ∈ (𝑓𝑗) pred(𝑦, 𝐴, 𝑅))))
4736, 38, 46mp2d 49 . . . . . . . . . . . . . . . 16 (𝜃 → (𝑓‘suc 𝑗) = 𝑦 ∈ (𝑓𝑗) pred(𝑦, 𝐴, 𝑅))
48 fveqeq2 6681 . . . . . . . . . . . . . . . . 17 (𝑖 = suc 𝑗 → ((𝑓𝑖) = 𝑦 ∈ (𝑓𝑗) pred(𝑦, 𝐴, 𝑅) ↔ (𝑓‘suc 𝑗) = 𝑦 ∈ (𝑓𝑗) pred(𝑦, 𝐴, 𝑅)))
4924, 48syl 17 . . . . . . . . . . . . . . . 16 (𝜃 → ((𝑓𝑖) = 𝑦 ∈ (𝑓𝑗) pred(𝑦, 𝐴, 𝑅) ↔ (𝑓‘suc 𝑗) = 𝑦 ∈ (𝑓𝑗) pred(𝑦, 𝐴, 𝑅)))
5047, 49mpbird 259 . . . . . . . . . . . . . . 15 (𝜃 → (𝑓𝑖) = 𝑦 ∈ (𝑓𝑗) pred(𝑦, 𝐴, 𝑅))
5122, 50bnj1262 32084 . . . . . . . . . . . . . 14 (𝜃 → (𝑓𝑖) ⊆ 𝐴)
5220, 51bnj1023 32054 . . . . . . . . . . . . 13 𝑗((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) → (𝑓𝑖) ⊆ 𝐴)
53 3anass 1091 . . . . . . . . . . . . . . 15 ((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) ↔ (𝑖 ≠ ∅ ∧ (𝑖𝑛𝜒)))
5453imbi1i 352 . . . . . . . . . . . . . 14 (((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) → (𝑓𝑖) ⊆ 𝐴) ↔ ((𝑖 ≠ ∅ ∧ (𝑖𝑛𝜒)) → (𝑓𝑖) ⊆ 𝐴))
5554exbii 1848 . . . . . . . . . . . . 13 (∃𝑗((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) → (𝑓𝑖) ⊆ 𝐴) ↔ ∃𝑗((𝑖 ≠ ∅ ∧ (𝑖𝑛𝜒)) → (𝑓𝑖) ⊆ 𝐴))
5652, 55mpbi 232 . . . . . . . . . . . 12 𝑗((𝑖 ≠ ∅ ∧ (𝑖𝑛𝜒)) → (𝑓𝑖) ⊆ 𝐴)
571biimpi 218 . . . . . . . . . . . . . . 15 (𝜑 → (𝑓‘∅) = pred(𝑋, 𝐴, 𝑅))
587, 57bnj771 32037 . . . . . . . . . . . . . 14 (𝜒 → (𝑓‘∅) = pred(𝑋, 𝐴, 𝑅))
59 fveq2 6672 . . . . . . . . . . . . . . 15 (𝑖 = ∅ → (𝑓𝑖) = (𝑓‘∅))
60 bnj213 32156 . . . . . . . . . . . . . . . 16 pred(𝑋, 𝐴, 𝑅) ⊆ 𝐴
61 sseq1 3994 . . . . . . . . . . . . . . . 16 ((𝑓‘∅) = pred(𝑋, 𝐴, 𝑅) → ((𝑓‘∅) ⊆ 𝐴 ↔ pred(𝑋, 𝐴, 𝑅) ⊆ 𝐴))
6260, 61mpbiri 260 . . . . . . . . . . . . . . 15 ((𝑓‘∅) = pred(𝑋, 𝐴, 𝑅) → (𝑓‘∅) ⊆ 𝐴)
63 sseq1 3994 . . . . . . . . . . . . . . . 16 ((𝑓𝑖) = (𝑓‘∅) → ((𝑓𝑖) ⊆ 𝐴 ↔ (𝑓‘∅) ⊆ 𝐴))
6463biimpar 480 . . . . . . . . . . . . . . 15 (((𝑓𝑖) = (𝑓‘∅) ∧ (𝑓‘∅) ⊆ 𝐴) → (𝑓𝑖) ⊆ 𝐴)
6559, 62, 64syl2an 597 . . . . . . . . . . . . . 14 ((𝑖 = ∅ ∧ (𝑓‘∅) = pred(𝑋, 𝐴, 𝑅)) → (𝑓𝑖) ⊆ 𝐴)
6658, 65sylan2 594 . . . . . . . . . . . . 13 ((𝑖 = ∅ ∧ 𝜒) → (𝑓𝑖) ⊆ 𝐴)
6766adantrl 714 . . . . . . . . . . . 12 ((𝑖 = ∅ ∧ (𝑖𝑛𝜒)) → (𝑓𝑖) ⊆ 𝐴)
6856, 67bnj1109 32060 . . . . . . . . . . 11 𝑗((𝑖𝑛𝜒) → (𝑓𝑖) ⊆ 𝐴)
69 19.9v 1988 . . . . . . . . . . 11 (∃𝑗((𝑖𝑛𝜒) → (𝑓𝑖) ⊆ 𝐴) ↔ ((𝑖𝑛𝜒) → (𝑓𝑖) ⊆ 𝐴))
7068, 69mpbi 232 . . . . . . . . . 10 ((𝑖𝑛𝜒) → (𝑓𝑖) ⊆ 𝐴)
7170expcom 416 . . . . . . . . 9 (𝜒 → (𝑖𝑛 → (𝑓𝑖) ⊆ 𝐴))
72 fndm 6457 . . . . . . . . . . 11 (𝑓 Fn 𝑛 → dom 𝑓 = 𝑛)
737, 72bnj770 32036 . . . . . . . . . 10 (𝜒 → dom 𝑓 = 𝑛)
74 eleq2 2903 . . . . . . . . . . 11 (dom 𝑓 = 𝑛 → (𝑖 ∈ dom 𝑓𝑖𝑛))
7574imbi1d 344 . . . . . . . . . 10 (dom 𝑓 = 𝑛 → ((𝑖 ∈ dom 𝑓 → (𝑓𝑖) ⊆ 𝐴) ↔ (𝑖𝑛 → (𝑓𝑖) ⊆ 𝐴)))
7673, 75syl 17 . . . . . . . . 9 (𝜒 → ((𝑖 ∈ dom 𝑓 → (𝑓𝑖) ⊆ 𝐴) ↔ (𝑖𝑛 → (𝑓𝑖) ⊆ 𝐴)))
7771, 76mpbird 259 . . . . . . . 8 (𝜒 → (𝑖 ∈ dom 𝑓 → (𝑓𝑖) ⊆ 𝐴))
7810, 77hbralrimi 3182 . . . . . . 7 (𝜒 → ∀𝑖 ∈ dom 𝑓(𝑓𝑖) ⊆ 𝐴)
7978exlimiv 1931 . . . . . 6 (∃𝑛𝜒 → ∀𝑖 ∈ dom 𝑓(𝑓𝑖) ⊆ 𝐴)
808, 79sylbi 219 . . . . 5 (𝑓𝐵 → ∀𝑖 ∈ dom 𝑓(𝑓𝑖) ⊆ 𝐴)
81 ss2iun 4939 . . . . . 6 (∀𝑖 ∈ dom 𝑓(𝑓𝑖) ⊆ 𝐴 𝑖 ∈ dom 𝑓(𝑓𝑖) ⊆ 𝑖 ∈ dom 𝑓 𝐴)
82 bnj1143 32064 . . . . . 6 𝑖 ∈ dom 𝑓 𝐴𝐴
8381, 82sstrdi 3981 . . . . 5 (∀𝑖 ∈ dom 𝑓(𝑓𝑖) ⊆ 𝐴 𝑖 ∈ dom 𝑓(𝑓𝑖) ⊆ 𝐴)
8480, 83syl 17 . . . 4 (𝑓𝐵 𝑖 ∈ dom 𝑓(𝑓𝑖) ⊆ 𝐴)
856, 84mprg 3154 . . 3 𝑓𝐵 𝑖 ∈ dom 𝑓(𝑓𝑖) ⊆ 𝑓𝐵 𝐴
864bnj1317 32095 . . . 4 (𝑤𝐵 → ∀𝑓 𝑤𝐵)
8786bnj1146 32065 . . 3 𝑓𝐵 𝐴𝐴
8885, 87sstri 3978 . 2 𝑓𝐵 𝑖 ∈ dom 𝑓(𝑓𝑖) ⊆ 𝐴
895, 88eqsstri 4003 1 trCl(𝑋, 𝐴, 𝑅) ⊆ 𝐴
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 208  wa 398  w3a 1083   = wceq 1537  wex 1780  wcel 2114  {cab 2801  wne 3018  wral 3140  wrex 3141  cdif 3935  wss 3938  c0 4293  {csn 4569   ciun 4921  dom cdm 5557  suc csuc 6195   Fn wfn 6352  cfv 6357  ωcom 7582  w-bnj17 31958   predc-bnj14 31960   trClc-bnj18 31966
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1911  ax-6 1970  ax-7 2015  ax-8 2116  ax-9 2124  ax-10 2145  ax-11 2161  ax-12 2177  ax-ext 2795  ax-sep 5205  ax-nul 5212  ax-pr 5332  ax-un 7463
This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-3or 1084  df-3an 1085  df-tru 1540  df-ex 1781  df-nf 1785  df-sb 2070  df-mo 2622  df-eu 2654  df-clab 2802  df-cleq 2816  df-clel 2895  df-nfc 2965  df-ne 3019  df-ral 3145  df-rex 3146  df-rab 3149  df-v 3498  df-sbc 3775  df-dif 3941  df-un 3943  df-in 3945  df-ss 3954  df-pss 3956  df-nul 4294  df-if 4470  df-pw 4543  df-sn 4570  df-pr 4572  df-tp 4574  df-op 4576  df-uni 4841  df-iun 4923  df-br 5069  df-opab 5131  df-tr 5175  df-eprel 5467  df-po 5476  df-so 5477  df-fr 5516  df-we 5518  df-ord 6196  df-on 6197  df-lim 6198  df-suc 6199  df-iota 6316  df-fn 6360  df-fv 6365  df-om 7583  df-bnj17 31959  df-bnj14 31961  df-bnj18 31967
This theorem is referenced by:  bnj1147  32268
  Copyright terms: Public domain W3C validator