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 32149
Description: Technical lemma for bnj69 32166. 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 32084 . 2 trCl(𝑋, 𝐴, 𝑅) = 𝑓𝐵 𝑖 ∈ dom 𝑓(𝑓𝑖)
6 ss2iun 4934 . . . 4 (∀𝑓𝐵 𝑖 ∈ dom 𝑓(𝑓𝑖) ⊆ 𝐴 𝑓𝐵 𝑖 ∈ dom 𝑓(𝑓𝑖) ⊆ 𝑓𝐵 𝐴)
7 bnj1145.5 . . . . . . 7 (𝜒 ↔ (𝑛𝐷𝑓 Fn 𝑛𝜑𝜓))
87, 4bnj1083 32134 . . . . . 6 (𝑓𝐵 ↔ ∃𝑛𝜒)
92bnj1095 31939 . . . . . . . . 9 (𝜓 → ∀𝑖𝜓)
109, 7bnj1096 31940 . . . . . . . 8 (𝜒 → ∀𝑖𝜒)
113bnj1098 31941 . . . . . . . . . . . . . . . . 17 𝑗((𝑖 ≠ ∅ ∧ 𝑖𝑛𝑛𝐷) → (𝑗𝑛𝑖 = suc 𝑗))
127bnj1232 31961 . . . . . . . . . . . . . . . . . 18 (𝜒𝑛𝐷)
13123anim3i 1148 . . . . . . . . . . . . . . . . 17 ((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) → (𝑖 ≠ ∅ ∧ 𝑖𝑛𝑛𝐷))
1411, 13bnj1101 31942 . . . . . . . . . . . . . . . 16 𝑗((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) → (𝑗𝑛𝑖 = suc 𝑗))
15 ancl 545 . . . . . . . . . . . . . . . 16 (((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) → (𝑗𝑛𝑖 = suc 𝑗)) → ((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) → ((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) ∧ (𝑗𝑛𝑖 = suc 𝑗))))
1614, 15bnj101 31879 . . . . . . . . . . . . . . 15 𝑗((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) → ((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) ∧ (𝑗𝑛𝑖 = suc 𝑗)))
17 bnj1145.6 . . . . . . . . . . . . . . . . 17 (𝜃 ↔ ((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) ∧ (𝑗𝑛𝑖 = suc 𝑗)))
1817imbi2i 337 . . . . . . . . . . . . . . . 16 (((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) → 𝜃) ↔ ((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) → ((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) ∧ (𝑗𝑛𝑖 = suc 𝑗))))
1918exbii 1841 . . . . . . . . . . . . . . 15 (∃𝑗((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) → 𝜃) ↔ ∃𝑗((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) → ((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) ∧ (𝑗𝑛𝑖 = suc 𝑗))))
2016, 19mpbir 232 . . . . . . . . . . . . . 14 𝑗((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) → 𝜃)
21 bnj213 32040 . . . . . . . . . . . . . . . 16 pred(𝑦, 𝐴, 𝑅) ⊆ 𝐴
2221bnj226 31890 . . . . . . . . . . . . . . 15 𝑦 ∈ (𝑓𝑗) pred(𝑦, 𝐴, 𝑅) ⊆ 𝐴
23 simpr 485 . . . . . . . . . . . . . . . . . . 19 ((𝑗𝑛𝑖 = suc 𝑗) → 𝑖 = suc 𝑗)
2417, 23simplbiim 505 . . . . . . . . . . . . . . . . . 18 (𝜃𝑖 = suc 𝑗)
25 simp2 1131 . . . . . . . . . . . . . . . . . . . 20 ((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) → 𝑖𝑛)
26123ad2ant3 1129 . . . . . . . . . . . . . . . . . . . 20 ((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) → 𝑛𝐷)
273bnj923 31925 . . . . . . . . . . . . . . . . . . . . 21 (𝑛𝐷𝑛 ∈ ω)
28 elnn 7578 . . . . . . . . . . . . . . . . . . . . 21 ((𝑖𝑛𝑛 ∈ ω) → 𝑖 ∈ ω)
2927, 28sylan2 592 . . . . . . . . . . . . . . . . . . . 20 ((𝑖𝑛𝑛𝐷) → 𝑖 ∈ ω)
3025, 26, 29syl2anc 584 . . . . . . . . . . . . . . . . . . 19 ((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) → 𝑖 ∈ ω)
3117, 30bnj832 31915 . . . . . . . . . . . . . . . . . 18 (𝜃𝑖 ∈ ω)
32 vex 3503 . . . . . . . . . . . . . . . . . . . 20 𝑗 ∈ V
3332bnj216 31888 . . . . . . . . . . . . . . . . . . 19 (𝑖 = suc 𝑗𝑗𝑖)
34 elnn 7578 . . . . . . . . . . . . . . . . . . 19 ((𝑗𝑖𝑖 ∈ ω) → 𝑗 ∈ ω)
3533, 34sylan 580 . . . . . . . . . . . . . . . . . 18 ((𝑖 = suc 𝑗𝑖 ∈ ω) → 𝑗 ∈ ω)
3624, 31, 35syl2anc 584 . . . . . . . . . . . . . . . . 17 (𝜃𝑗 ∈ ω)
3717, 25bnj832 31915 . . . . . . . . . . . . . . . . . 18 (𝜃𝑖𝑛)
3824, 37eqeltrrd 2919 . . . . . . . . . . . . . . . . 17 (𝜃 → suc 𝑗𝑛)
392bnj589 32067 . . . . . . . . . . . . . . . . . . . . . . 23 (𝜓 ↔ ∀𝑗 ∈ ω (suc 𝑗𝑛 → (𝑓‘suc 𝑗) = 𝑦 ∈ (𝑓𝑗) pred(𝑦, 𝐴, 𝑅)))
4039biimpi 217 . . . . . . . . . . . . . . . . . . . . . 22 (𝜓 → ∀𝑗 ∈ ω (suc 𝑗𝑛 → (𝑓‘suc 𝑗) = 𝑦 ∈ (𝑓𝑗) pred(𝑦, 𝐴, 𝑅)))
4140bnj708 31913 . . . . . . . . . . . . . . . . . . . . 21 ((𝑛𝐷𝑓 Fn 𝑛𝜑𝜓) → ∀𝑗 ∈ ω (suc 𝑗𝑛 → (𝑓‘suc 𝑗) = 𝑦 ∈ (𝑓𝑗) pred(𝑦, 𝐴, 𝑅)))
42 rsp 3210 . . . . . . . . . . . . . . . . . . . . 21 (∀𝑗 ∈ ω (suc 𝑗𝑛 → (𝑓‘suc 𝑗) = 𝑦 ∈ (𝑓𝑗) pred(𝑦, 𝐴, 𝑅)) → (𝑗 ∈ ω → (suc 𝑗𝑛 → (𝑓‘suc 𝑗) = 𝑦 ∈ (𝑓𝑗) pred(𝑦, 𝐴, 𝑅))))
4341, 42syl 17 . . . . . . . . . . . . . . . . . . . 20 ((𝑛𝐷𝑓 Fn 𝑛𝜑𝜓) → (𝑗 ∈ ω → (suc 𝑗𝑛 → (𝑓‘suc 𝑗) = 𝑦 ∈ (𝑓𝑗) pred(𝑦, 𝐴, 𝑅))))
447, 43sylbi 218 . . . . . . . . . . . . . . . . . . 19 (𝜒 → (𝑗 ∈ ω → (suc 𝑗𝑛 → (𝑓‘suc 𝑗) = 𝑦 ∈ (𝑓𝑗) pred(𝑦, 𝐴, 𝑅))))
45443ad2ant3 1129 . . . . . . . . . . . . . . . . . 18 ((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) → (𝑗 ∈ ω → (suc 𝑗𝑛 → (𝑓‘suc 𝑗) = 𝑦 ∈ (𝑓𝑗) pred(𝑦, 𝐴, 𝑅))))
4617, 45bnj832 31915 . . . . . . . . . . . . . . . . 17 (𝜃 → (𝑗 ∈ ω → (suc 𝑗𝑛 → (𝑓‘suc 𝑗) = 𝑦 ∈ (𝑓𝑗) pred(𝑦, 𝐴, 𝑅))))
4736, 38, 46mp2d 49 . . . . . . . . . . . . . . . 16 (𝜃 → (𝑓‘suc 𝑗) = 𝑦 ∈ (𝑓𝑗) pred(𝑦, 𝐴, 𝑅))
48 fveqeq2 6676 . . . . . . . . . . . . . . . . 17 (𝑖 = suc 𝑗 → ((𝑓𝑖) = 𝑦 ∈ (𝑓𝑗) pred(𝑦, 𝐴, 𝑅) ↔ (𝑓‘suc 𝑗) = 𝑦 ∈ (𝑓𝑗) pred(𝑦, 𝐴, 𝑅)))
4924, 48syl 17 . . . . . . . . . . . . . . . 16 (𝜃 → ((𝑓𝑖) = 𝑦 ∈ (𝑓𝑗) pred(𝑦, 𝐴, 𝑅) ↔ (𝑓‘suc 𝑗) = 𝑦 ∈ (𝑓𝑗) pred(𝑦, 𝐴, 𝑅)))
5047, 49mpbird 258 . . . . . . . . . . . . . . 15 (𝜃 → (𝑓𝑖) = 𝑦 ∈ (𝑓𝑗) pred(𝑦, 𝐴, 𝑅))
5122, 50bnj1262 31968 . . . . . . . . . . . . . 14 (𝜃 → (𝑓𝑖) ⊆ 𝐴)
5220, 51bnj1023 31938 . . . . . . . . . . . . 13 𝑗((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) → (𝑓𝑖) ⊆ 𝐴)
53 3anass 1089 . . . . . . . . . . . . . . 15 ((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) ↔ (𝑖 ≠ ∅ ∧ (𝑖𝑛𝜒)))
5453imbi1i 351 . . . . . . . . . . . . . 14 (((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) → (𝑓𝑖) ⊆ 𝐴) ↔ ((𝑖 ≠ ∅ ∧ (𝑖𝑛𝜒)) → (𝑓𝑖) ⊆ 𝐴))
5554exbii 1841 . . . . . . . . . . . . 13 (∃𝑗((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) → (𝑓𝑖) ⊆ 𝐴) ↔ ∃𝑗((𝑖 ≠ ∅ ∧ (𝑖𝑛𝜒)) → (𝑓𝑖) ⊆ 𝐴))
5652, 55mpbi 231 . . . . . . . . . . . 12 𝑗((𝑖 ≠ ∅ ∧ (𝑖𝑛𝜒)) → (𝑓𝑖) ⊆ 𝐴)
571biimpi 217 . . . . . . . . . . . . . . 15 (𝜑 → (𝑓‘∅) = pred(𝑋, 𝐴, 𝑅))
587, 57bnj771 31921 . . . . . . . . . . . . . 14 (𝜒 → (𝑓‘∅) = pred(𝑋, 𝐴, 𝑅))
59 fveq2 6667 . . . . . . . . . . . . . . 15 (𝑖 = ∅ → (𝑓𝑖) = (𝑓‘∅))
60 bnj213 32040 . . . . . . . . . . . . . . . 16 pred(𝑋, 𝐴, 𝑅) ⊆ 𝐴
61 sseq1 3996 . . . . . . . . . . . . . . . 16 ((𝑓‘∅) = pred(𝑋, 𝐴, 𝑅) → ((𝑓‘∅) ⊆ 𝐴 ↔ pred(𝑋, 𝐴, 𝑅) ⊆ 𝐴))
6260, 61mpbiri 259 . . . . . . . . . . . . . . 15 ((𝑓‘∅) = pred(𝑋, 𝐴, 𝑅) → (𝑓‘∅) ⊆ 𝐴)
63 sseq1 3996 . . . . . . . . . . . . . . . 16 ((𝑓𝑖) = (𝑓‘∅) → ((𝑓𝑖) ⊆ 𝐴 ↔ (𝑓‘∅) ⊆ 𝐴))
6463biimpar 478 . . . . . . . . . . . . . . 15 (((𝑓𝑖) = (𝑓‘∅) ∧ (𝑓‘∅) ⊆ 𝐴) → (𝑓𝑖) ⊆ 𝐴)
6559, 62, 64syl2an 595 . . . . . . . . . . . . . 14 ((𝑖 = ∅ ∧ (𝑓‘∅) = pred(𝑋, 𝐴, 𝑅)) → (𝑓𝑖) ⊆ 𝐴)
6658, 65sylan2 592 . . . . . . . . . . . . 13 ((𝑖 = ∅ ∧ 𝜒) → (𝑓𝑖) ⊆ 𝐴)
6766adantrl 712 . . . . . . . . . . . 12 ((𝑖 = ∅ ∧ (𝑖𝑛𝜒)) → (𝑓𝑖) ⊆ 𝐴)
6856, 67bnj1109 31944 . . . . . . . . . . 11 𝑗((𝑖𝑛𝜒) → (𝑓𝑖) ⊆ 𝐴)
69 19.9v 1981 . . . . . . . . . . 11 (∃𝑗((𝑖𝑛𝜒) → (𝑓𝑖) ⊆ 𝐴) ↔ ((𝑖𝑛𝜒) → (𝑓𝑖) ⊆ 𝐴))
7068, 69mpbi 231 . . . . . . . . . 10 ((𝑖𝑛𝜒) → (𝑓𝑖) ⊆ 𝐴)
7170expcom 414 . . . . . . . . 9 (𝜒 → (𝑖𝑛 → (𝑓𝑖) ⊆ 𝐴))
72 fndm 6452 . . . . . . . . . . 11 (𝑓 Fn 𝑛 → dom 𝑓 = 𝑛)
737, 72bnj770 31920 . . . . . . . . . 10 (𝜒 → dom 𝑓 = 𝑛)
74 eleq2 2906 . . . . . . . . . . 11 (dom 𝑓 = 𝑛 → (𝑖 ∈ dom 𝑓𝑖𝑛))
7574imbi1d 343 . . . . . . . . . 10 (dom 𝑓 = 𝑛 → ((𝑖 ∈ dom 𝑓 → (𝑓𝑖) ⊆ 𝐴) ↔ (𝑖𝑛 → (𝑓𝑖) ⊆ 𝐴)))
7673, 75syl 17 . . . . . . . . 9 (𝜒 → ((𝑖 ∈ dom 𝑓 → (𝑓𝑖) ⊆ 𝐴) ↔ (𝑖𝑛 → (𝑓𝑖) ⊆ 𝐴)))
7771, 76mpbird 258 . . . . . . . 8 (𝜒 → (𝑖 ∈ dom 𝑓 → (𝑓𝑖) ⊆ 𝐴))
7810, 77hbralrimi 3185 . . . . . . 7 (𝜒 → ∀𝑖 ∈ dom 𝑓(𝑓𝑖) ⊆ 𝐴)
7978exlimiv 1924 . . . . . 6 (∃𝑛𝜒 → ∀𝑖 ∈ dom 𝑓(𝑓𝑖) ⊆ 𝐴)
808, 79sylbi 218 . . . . 5 (𝑓𝐵 → ∀𝑖 ∈ dom 𝑓(𝑓𝑖) ⊆ 𝐴)
81 ss2iun 4934 . . . . . 6 (∀𝑖 ∈ dom 𝑓(𝑓𝑖) ⊆ 𝐴 𝑖 ∈ dom 𝑓(𝑓𝑖) ⊆ 𝑖 ∈ dom 𝑓 𝐴)
82 bnj1143 31948 . . . . . 6 𝑖 ∈ dom 𝑓 𝐴𝐴
8381, 82syl6ss 3983 . . . . 5 (∀𝑖 ∈ dom 𝑓(𝑓𝑖) ⊆ 𝐴 𝑖 ∈ dom 𝑓(𝑓𝑖) ⊆ 𝐴)
8480, 83syl 17 . . . 4 (𝑓𝐵 𝑖 ∈ dom 𝑓(𝑓𝑖) ⊆ 𝐴)
856, 84mprg 3157 . . 3 𝑓𝐵 𝑖 ∈ dom 𝑓(𝑓𝑖) ⊆ 𝑓𝐵 𝐴
864bnj1317 31979 . . . 4 (𝑤𝐵 → ∀𝑓 𝑤𝐵)
8786bnj1146 31949 . . 3 𝑓𝐵 𝐴𝐴
8885, 87sstri 3980 . 2 𝑓𝐵 𝑖 ∈ dom 𝑓(𝑓𝑖) ⊆ 𝐴
895, 88eqsstri 4005 1 trCl(𝑋, 𝐴, 𝑅) ⊆ 𝐴
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 207  wa 396  w3a 1081   = wceq 1530  wex 1773  wcel 2107  {cab 2804  wne 3021  wral 3143  wrex 3144  cdif 3937  wss 3940  c0 4295  {csn 4564   ciun 4917  dom cdm 5554  suc csuc 6191   Fn wfn 6347  cfv 6352  ωcom 7568  w-bnj17 31842   predc-bnj14 31844   trClc-bnj18 31850
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1789  ax-4 1803  ax-5 1904  ax-6 1963  ax-7 2008  ax-8 2109  ax-9 2117  ax-10 2138  ax-11 2153  ax-12 2169  ax-ext 2798  ax-sep 5200  ax-nul 5207  ax-pr 5326  ax-un 7451
This theorem depends on definitions:  df-bi 208  df-an 397  df-or 844  df-3or 1082  df-3an 1083  df-tru 1533  df-ex 1774  df-nf 1778  df-sb 2063  df-mo 2620  df-eu 2652  df-clab 2805  df-cleq 2819  df-clel 2898  df-nfc 2968  df-ne 3022  df-ral 3148  df-rex 3149  df-rab 3152  df-v 3502  df-sbc 3777  df-dif 3943  df-un 3945  df-in 3947  df-ss 3956  df-pss 3958  df-nul 4296  df-if 4471  df-pw 4544  df-sn 4565  df-pr 4567  df-tp 4569  df-op 4571  df-uni 4838  df-iun 4919  df-br 5064  df-opab 5126  df-tr 5170  df-eprel 5464  df-po 5473  df-so 5474  df-fr 5513  df-we 5515  df-ord 6192  df-on 6193  df-lim 6194  df-suc 6195  df-iota 6312  df-fn 6355  df-fv 6360  df-om 7569  df-bnj17 31843  df-bnj14 31845  df-bnj18 31851
This theorem is referenced by:  bnj1147  32150
  Copyright terms: Public domain W3C validator