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 34970
Description: Technical lemma for bnj69 34987. 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 34903 . 2 trCl(𝑋, 𝐴, 𝑅) = 𝑓𝐵 𝑖 ∈ dom 𝑓(𝑓𝑖)
6 ss2iun 4986 . . . 4 (∀𝑓𝐵 𝑖 ∈ dom 𝑓(𝑓𝑖) ⊆ 𝐴 𝑓𝐵 𝑖 ∈ dom 𝑓(𝑓𝑖) ⊆ 𝑓𝐵 𝐴)
7 bnj1145.5 . . . . . . 7 (𝜒 ↔ (𝑛𝐷𝑓 Fn 𝑛𝜑𝜓))
87, 4bnj1083 34955 . . . . . 6 (𝑓𝐵 ↔ ∃𝑛𝜒)
92bnj1095 34758 . . . . . . . . 9 (𝜓 → ∀𝑖𝜓)
109, 7bnj1096 34759 . . . . . . . 8 (𝜒 → ∀𝑖𝜒)
113bnj1098 34760 . . . . . . . . . . . . . . . . 17 𝑗((𝑖 ≠ ∅ ∧ 𝑖𝑛𝑛𝐷) → (𝑗𝑛𝑖 = suc 𝑗))
127bnj1232 34780 . . . . . . . . . . . . . . . . . 18 (𝜒𝑛𝐷)
13123anim3i 1154 . . . . . . . . . . . . . . . . 17 ((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) → (𝑖 ≠ ∅ ∧ 𝑖𝑛𝑛𝐷))
1411, 13bnj1101 34761 . . . . . . . . . . . . . . . 16 𝑗((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) → (𝑗𝑛𝑖 = suc 𝑗))
15 ancl 544 . . . . . . . . . . . . . . . 16 (((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) → (𝑗𝑛𝑖 = suc 𝑗)) → ((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) → ((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) ∧ (𝑗𝑛𝑖 = suc 𝑗))))
1614, 15bnj101 34700 . . . . . . . . . . . . . . 15 𝑗((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) → ((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) ∧ (𝑗𝑛𝑖 = suc 𝑗)))
17 bnj1145.6 . . . . . . . . . . . . . . . . 17 (𝜃 ↔ ((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) ∧ (𝑗𝑛𝑖 = suc 𝑗)))
1817imbi2i 336 . . . . . . . . . . . . . . . 16 (((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) → 𝜃) ↔ ((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) → ((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) ∧ (𝑗𝑛𝑖 = suc 𝑗))))
1918exbii 1848 . . . . . . . . . . . . . . 15 (∃𝑗((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) → 𝜃) ↔ ∃𝑗((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) → ((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) ∧ (𝑗𝑛𝑖 = suc 𝑗))))
2016, 19mpbir 231 . . . . . . . . . . . . . 14 𝑗((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) → 𝜃)
21 bnj213 34859 . . . . . . . . . . . . . . . 16 pred(𝑦, 𝐴, 𝑅) ⊆ 𝐴
2221bnj226 34711 . . . . . . . . . . . . . . 15 𝑦 ∈ (𝑓𝑗) pred(𝑦, 𝐴, 𝑅) ⊆ 𝐴
23 simpr 484 . . . . . . . . . . . . . . . . . . 19 ((𝑗𝑛𝑖 = suc 𝑗) → 𝑖 = suc 𝑗)
2417, 23simplbiim 504 . . . . . . . . . . . . . . . . . 18 (𝜃𝑖 = suc 𝑗)
25 simp2 1137 . . . . . . . . . . . . . . . . . . . 20 ((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) → 𝑖𝑛)
26123ad2ant3 1135 . . . . . . . . . . . . . . . . . . . 20 ((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) → 𝑛𝐷)
273bnj923 34745 . . . . . . . . . . . . . . . . . . . . 21 (𝑛𝐷𝑛 ∈ ω)
28 elnn 7870 . . . . . . . . . . . . . . . . . . . . 21 ((𝑖𝑛𝑛 ∈ ω) → 𝑖 ∈ ω)
2927, 28sylan2 593 . . . . . . . . . . . . . . . . . . . 20 ((𝑖𝑛𝑛𝐷) → 𝑖 ∈ ω)
3025, 26, 29syl2anc 584 . . . . . . . . . . . . . . . . . . 19 ((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) → 𝑖 ∈ ω)
3117, 30bnj832 34735 . . . . . . . . . . . . . . . . . 18 (𝜃𝑖 ∈ ω)
32 vex 3463 . . . . . . . . . . . . . . . . . . . 20 𝑗 ∈ V
3332bnj216 34709 . . . . . . . . . . . . . . . . . . 19 (𝑖 = suc 𝑗𝑗𝑖)
34 elnn 7870 . . . . . . . . . . . . . . . . . . 19 ((𝑗𝑖𝑖 ∈ ω) → 𝑗 ∈ ω)
3533, 34sylan 580 . . . . . . . . . . . . . . . . . 18 ((𝑖 = suc 𝑗𝑖 ∈ ω) → 𝑗 ∈ ω)
3624, 31, 35syl2anc 584 . . . . . . . . . . . . . . . . 17 (𝜃𝑗 ∈ ω)
3717, 25bnj832 34735 . . . . . . . . . . . . . . . . . 18 (𝜃𝑖𝑛)
3824, 37eqeltrrd 2835 . . . . . . . . . . . . . . . . 17 (𝜃 → suc 𝑗𝑛)
392bnj589 34886 . . . . . . . . . . . . . . . . . . . . . . 23 (𝜓 ↔ ∀𝑗 ∈ ω (suc 𝑗𝑛 → (𝑓‘suc 𝑗) = 𝑦 ∈ (𝑓𝑗) pred(𝑦, 𝐴, 𝑅)))
4039biimpi 216 . . . . . . . . . . . . . . . . . . . . . 22 (𝜓 → ∀𝑗 ∈ ω (suc 𝑗𝑛 → (𝑓‘suc 𝑗) = 𝑦 ∈ (𝑓𝑗) pred(𝑦, 𝐴, 𝑅)))
4140bnj708 34733 . . . . . . . . . . . . . . . . . . . . 21 ((𝑛𝐷𝑓 Fn 𝑛𝜑𝜓) → ∀𝑗 ∈ ω (suc 𝑗𝑛 → (𝑓‘suc 𝑗) = 𝑦 ∈ (𝑓𝑗) pred(𝑦, 𝐴, 𝑅)))
42 rsp 3230 . . . . . . . . . . . . . . . . . . . . 21 (∀𝑗 ∈ ω (suc 𝑗𝑛 → (𝑓‘suc 𝑗) = 𝑦 ∈ (𝑓𝑗) pred(𝑦, 𝐴, 𝑅)) → (𝑗 ∈ ω → (suc 𝑗𝑛 → (𝑓‘suc 𝑗) = 𝑦 ∈ (𝑓𝑗) pred(𝑦, 𝐴, 𝑅))))
4341, 42syl 17 . . . . . . . . . . . . . . . . . . . 20 ((𝑛𝐷𝑓 Fn 𝑛𝜑𝜓) → (𝑗 ∈ ω → (suc 𝑗𝑛 → (𝑓‘suc 𝑗) = 𝑦 ∈ (𝑓𝑗) pred(𝑦, 𝐴, 𝑅))))
447, 43sylbi 217 . . . . . . . . . . . . . . . . . . 19 (𝜒 → (𝑗 ∈ ω → (suc 𝑗𝑛 → (𝑓‘suc 𝑗) = 𝑦 ∈ (𝑓𝑗) pred(𝑦, 𝐴, 𝑅))))
45443ad2ant3 1135 . . . . . . . . . . . . . . . . . 18 ((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) → (𝑗 ∈ ω → (suc 𝑗𝑛 → (𝑓‘suc 𝑗) = 𝑦 ∈ (𝑓𝑗) pred(𝑦, 𝐴, 𝑅))))
4617, 45bnj832 34735 . . . . . . . . . . . . . . . . 17 (𝜃 → (𝑗 ∈ ω → (suc 𝑗𝑛 → (𝑓‘suc 𝑗) = 𝑦 ∈ (𝑓𝑗) pred(𝑦, 𝐴, 𝑅))))
4736, 38, 46mp2d 49 . . . . . . . . . . . . . . . 16 (𝜃 → (𝑓‘suc 𝑗) = 𝑦 ∈ (𝑓𝑗) pred(𝑦, 𝐴, 𝑅))
48 fveqeq2 6884 . . . . . . . . . . . . . . . . 17 (𝑖 = suc 𝑗 → ((𝑓𝑖) = 𝑦 ∈ (𝑓𝑗) pred(𝑦, 𝐴, 𝑅) ↔ (𝑓‘suc 𝑗) = 𝑦 ∈ (𝑓𝑗) pred(𝑦, 𝐴, 𝑅)))
4924, 48syl 17 . . . . . . . . . . . . . . . 16 (𝜃 → ((𝑓𝑖) = 𝑦 ∈ (𝑓𝑗) pred(𝑦, 𝐴, 𝑅) ↔ (𝑓‘suc 𝑗) = 𝑦 ∈ (𝑓𝑗) pred(𝑦, 𝐴, 𝑅)))
5047, 49mpbird 257 . . . . . . . . . . . . . . 15 (𝜃 → (𝑓𝑖) = 𝑦 ∈ (𝑓𝑗) pred(𝑦, 𝐴, 𝑅))
5122, 50bnj1262 34787 . . . . . . . . . . . . . 14 (𝜃 → (𝑓𝑖) ⊆ 𝐴)
5220, 51bnj1023 34757 . . . . . . . . . . . . 13 𝑗((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) → (𝑓𝑖) ⊆ 𝐴)
53 3anass 1094 . . . . . . . . . . . . . . 15 ((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) ↔ (𝑖 ≠ ∅ ∧ (𝑖𝑛𝜒)))
5453imbi1i 349 . . . . . . . . . . . . . 14 (((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) → (𝑓𝑖) ⊆ 𝐴) ↔ ((𝑖 ≠ ∅ ∧ (𝑖𝑛𝜒)) → (𝑓𝑖) ⊆ 𝐴))
5554exbii 1848 . . . . . . . . . . . . 13 (∃𝑗((𝑖 ≠ ∅ ∧ 𝑖𝑛𝜒) → (𝑓𝑖) ⊆ 𝐴) ↔ ∃𝑗((𝑖 ≠ ∅ ∧ (𝑖𝑛𝜒)) → (𝑓𝑖) ⊆ 𝐴))
5652, 55mpbi 230 . . . . . . . . . . . 12 𝑗((𝑖 ≠ ∅ ∧ (𝑖𝑛𝜒)) → (𝑓𝑖) ⊆ 𝐴)
571biimpi 216 . . . . . . . . . . . . . . 15 (𝜑 → (𝑓‘∅) = pred(𝑋, 𝐴, 𝑅))
587, 57bnj771 34741 . . . . . . . . . . . . . 14 (𝜒 → (𝑓‘∅) = pred(𝑋, 𝐴, 𝑅))
59 fveq2 6875 . . . . . . . . . . . . . . 15 (𝑖 = ∅ → (𝑓𝑖) = (𝑓‘∅))
60 bnj213 34859 . . . . . . . . . . . . . . . 16 pred(𝑋, 𝐴, 𝑅) ⊆ 𝐴
61 sseq1 3984 . . . . . . . . . . . . . . . 16 ((𝑓‘∅) = pred(𝑋, 𝐴, 𝑅) → ((𝑓‘∅) ⊆ 𝐴 ↔ pred(𝑋, 𝐴, 𝑅) ⊆ 𝐴))
6260, 61mpbiri 258 . . . . . . . . . . . . . . 15 ((𝑓‘∅) = pred(𝑋, 𝐴, 𝑅) → (𝑓‘∅) ⊆ 𝐴)
63 sseq1 3984 . . . . . . . . . . . . . . . 16 ((𝑓𝑖) = (𝑓‘∅) → ((𝑓𝑖) ⊆ 𝐴 ↔ (𝑓‘∅) ⊆ 𝐴))
6463biimpar 477 . . . . . . . . . . . . . . 15 (((𝑓𝑖) = (𝑓‘∅) ∧ (𝑓‘∅) ⊆ 𝐴) → (𝑓𝑖) ⊆ 𝐴)
6559, 62, 64syl2an 596 . . . . . . . . . . . . . 14 ((𝑖 = ∅ ∧ (𝑓‘∅) = pred(𝑋, 𝐴, 𝑅)) → (𝑓𝑖) ⊆ 𝐴)
6658, 65sylan2 593 . . . . . . . . . . . . 13 ((𝑖 = ∅ ∧ 𝜒) → (𝑓𝑖) ⊆ 𝐴)
6766adantrl 716 . . . . . . . . . . . 12 ((𝑖 = ∅ ∧ (𝑖𝑛𝜒)) → (𝑓𝑖) ⊆ 𝐴)
6856, 67bnj1109 34763 . . . . . . . . . . 11 𝑗((𝑖𝑛𝜒) → (𝑓𝑖) ⊆ 𝐴)
69 19.9v 1983 . . . . . . . . . . 11 (∃𝑗((𝑖𝑛𝜒) → (𝑓𝑖) ⊆ 𝐴) ↔ ((𝑖𝑛𝜒) → (𝑓𝑖) ⊆ 𝐴))
7068, 69mpbi 230 . . . . . . . . . 10 ((𝑖𝑛𝜒) → (𝑓𝑖) ⊆ 𝐴)
7170expcom 413 . . . . . . . . 9 (𝜒 → (𝑖𝑛 → (𝑓𝑖) ⊆ 𝐴))
72 fndm 6640 . . . . . . . . . . 11 (𝑓 Fn 𝑛 → dom 𝑓 = 𝑛)
737, 72bnj770 34740 . . . . . . . . . 10 (𝜒 → dom 𝑓 = 𝑛)
74 eleq2 2823 . . . . . . . . . . 11 (dom 𝑓 = 𝑛 → (𝑖 ∈ dom 𝑓𝑖𝑛))
7574imbi1d 341 . . . . . . . . . 10 (dom 𝑓 = 𝑛 → ((𝑖 ∈ dom 𝑓 → (𝑓𝑖) ⊆ 𝐴) ↔ (𝑖𝑛 → (𝑓𝑖) ⊆ 𝐴)))
7673, 75syl 17 . . . . . . . . 9 (𝜒 → ((𝑖 ∈ dom 𝑓 → (𝑓𝑖) ⊆ 𝐴) ↔ (𝑖𝑛 → (𝑓𝑖) ⊆ 𝐴)))
7771, 76mpbird 257 . . . . . . . 8 (𝜒 → (𝑖 ∈ dom 𝑓 → (𝑓𝑖) ⊆ 𝐴))
7810, 77hbralrimi 3130 . . . . . . 7 (𝜒 → ∀𝑖 ∈ dom 𝑓(𝑓𝑖) ⊆ 𝐴)
7978exlimiv 1930 . . . . . 6 (∃𝑛𝜒 → ∀𝑖 ∈ dom 𝑓(𝑓𝑖) ⊆ 𝐴)
808, 79sylbi 217 . . . . 5 (𝑓𝐵 → ∀𝑖 ∈ dom 𝑓(𝑓𝑖) ⊆ 𝐴)
81 ss2iun 4986 . . . . . 6 (∀𝑖 ∈ dom 𝑓(𝑓𝑖) ⊆ 𝐴 𝑖 ∈ dom 𝑓(𝑓𝑖) ⊆ 𝑖 ∈ dom 𝑓 𝐴)
82 bnj1143 34767 . . . . . 6 𝑖 ∈ dom 𝑓 𝐴𝐴
8381, 82sstrdi 3971 . . . . 5 (∀𝑖 ∈ dom 𝑓(𝑓𝑖) ⊆ 𝐴 𝑖 ∈ dom 𝑓(𝑓𝑖) ⊆ 𝐴)
8480, 83syl 17 . . . 4 (𝑓𝐵 𝑖 ∈ dom 𝑓(𝑓𝑖) ⊆ 𝐴)
856, 84mprg 3057 . . 3 𝑓𝐵 𝑖 ∈ dom 𝑓(𝑓𝑖) ⊆ 𝑓𝐵 𝐴
864bnj1317 34798 . . . 4 (𝑤𝐵 → ∀𝑓 𝑤𝐵)
8786bnj1146 34768 . . 3 𝑓𝐵 𝐴𝐴
8885, 87sstri 3968 . 2 𝑓𝐵 𝑖 ∈ dom 𝑓(𝑓𝑖) ⊆ 𝐴
895, 88eqsstri 4005 1 trCl(𝑋, 𝐴, 𝑅) ⊆ 𝐴
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 206  wa 395  w3a 1086   = wceq 1540  wex 1779  wcel 2108  {cab 2713  wne 2932  wral 3051  wrex 3060  cdif 3923  wss 3926  c0 4308  {csn 4601   ciun 4967  dom cdm 5654  suc csuc 6354   Fn wfn 6525  cfv 6530  ωcom 7859  w-bnj17 34663   predc-bnj14 34665   trClc-bnj18 34671
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1967  ax-7 2007  ax-8 2110  ax-9 2118  ax-10 2141  ax-11 2157  ax-12 2177  ax-ext 2707  ax-sep 5266  ax-nul 5276  ax-pr 5402  ax-un 7727
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2065  df-clab 2714  df-cleq 2727  df-clel 2809  df-nfc 2885  df-ne 2933  df-ral 3052  df-rex 3061  df-rab 3416  df-v 3461  df-dif 3929  df-un 3931  df-in 3933  df-ss 3943  df-pss 3946  df-nul 4309  df-if 4501  df-pw 4577  df-sn 4602  df-pr 4604  df-op 4608  df-uni 4884  df-iun 4969  df-br 5120  df-opab 5182  df-tr 5230  df-eprel 5553  df-po 5561  df-so 5562  df-fr 5606  df-we 5608  df-ord 6355  df-on 6356  df-lim 6357  df-suc 6358  df-iota 6483  df-fn 6533  df-fv 6538  df-om 7860  df-bnj17 34664  df-bnj14 34666  df-bnj18 34672
This theorem is referenced by:  bnj1147  34971
  Copyright terms: Public domain W3C validator