Theorem bnj1286 35632

Description: Technical lemma for bnj60 35675. 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
bnj1286.1	⊢ 𝐵 = {𝑑 ∣ (𝑑 ⊆ 𝐴 ∧ ∀𝑥 ∈ 𝑑 pred(𝑥, 𝐴, 𝑅) ⊆ 𝑑)}
bnj1286.2	⊢ 𝑌 = ⟨𝑥, (𝑓 ↾ pred(𝑥, 𝐴, 𝑅))⟩
bnj1286.3	⊢ 𝐶 = {𝑓 ∣ ∃𝑑 ∈ 𝐵 (𝑓 Fn 𝑑 ∧ ∀𝑥 ∈ 𝑑 (𝑓‘𝑥) = (𝐺‘𝑌))}
bnj1286.4	⊢ 𝐷 = (dom 𝑔 ∩ dom ℎ)
bnj1286.5	⊢ 𝐸 = {𝑥 ∈ 𝐷 ∣ (𝑔‘𝑥) ≠ (ℎ‘𝑥)}
bnj1286.6	⊢ (𝜑 ↔ (𝑅 FrSe 𝐴 ∧ 𝑔 ∈ 𝐶 ∧ ℎ ∈ 𝐶 ∧ (𝑔 ↾ 𝐷) ≠ (ℎ ↾ 𝐷)))
bnj1286.7	⊢ (𝜓 ↔ (𝜑 ∧ 𝑥 ∈ 𝐸 ∧ ∀𝑦 ∈ 𝐸 ¬ 𝑦𝑅𝑥))

Assertion

Ref	Expression
bnj1286	⊢ (𝜓 → pred(𝑥, 𝐴, 𝑅) ⊆ 𝐷)

Distinct variable groups:   𝐴,𝑑,𝑓   𝐵,𝑓,𝑔   𝐵,ℎ,𝑓   𝑥,𝐷   𝑓,𝐺,𝑔   ℎ,𝐺   𝑅,𝑑,𝑓   𝑔,𝑌   ℎ,𝑌   𝑔,𝑑,𝑥,𝑓   ℎ,𝑑,𝑥

Allowed substitution hints:   𝜑(𝑥, 𝑦, 𝑓, 𝑔, ℎ, 𝑑)   𝜓(𝑥, 𝑦, 𝑓, 𝑔, ℎ, 𝑑)   𝐴(𝑥, 𝑦, 𝑔, ℎ)   𝐵(𝑥, 𝑦, 𝑑)   𝐶(𝑥, 𝑦, 𝑓, 𝑔, ℎ, 𝑑)   𝐷(𝑦, 𝑓, 𝑔, ℎ, 𝑑)   𝑅(𝑥, 𝑦, 𝑔, ℎ)   𝐸(𝑥, 𝑦, 𝑓, 𝑔, ℎ, 𝑑)   𝐺(𝑥, 𝑦, 𝑑)   𝑌(𝑥, 𝑦, 𝑓, 𝑑)

Proof of Theorem bnj1286

Step	Hyp	Ref	Expression
1		bnj1286.7	. . . . 5 ⊢ (𝜓 ↔ (𝜑 ∧ 𝑥 ∈ 𝐸 ∧ ∀𝑦 ∈ 𝐸 ¬ 𝑦𝑅𝑥))
2		bnj1286.1	. . . . . . . . 9 ⊢ 𝐵 = {𝑑 ∣ (𝑑 ⊆ 𝐴 ∧ ∀𝑥 ∈ 𝑑 pred(𝑥, 𝐴, 𝑅) ⊆ 𝑑)}
3		bnj1286.2	. . . . . . . . 9 ⊢ 𝑌 = ⟨𝑥, (𝑓 ↾ pred(𝑥, 𝐴, 𝑅))⟩
4		bnj1286.3	. . . . . . . . 9 ⊢ 𝐶 = {𝑓 ∣ ∃𝑑 ∈ 𝐵 (𝑓 Fn 𝑑 ∧ ∀𝑥 ∈ 𝑑 (𝑓‘𝑥) = (𝐺‘𝑌))}
5		bnj1286.4	. . . . . . . . 9 ⊢ 𝐷 = (dom 𝑔 ∩ dom ℎ)
6		bnj1286.5	. . . . . . . . 9 ⊢ 𝐸 = {𝑥 ∈ 𝐷 ∣ (𝑔‘𝑥) ≠ (ℎ‘𝑥)}
7		bnj1286.6	. . . . . . . . 9 ⊢ (𝜑 ↔ (𝑅 FrSe 𝐴 ∧ 𝑔 ∈ 𝐶 ∧ ℎ ∈ 𝐶 ∧ (𝑔 ↾ 𝐷) ≠ (ℎ ↾ 𝐷)))
8	2, 3, 4, 5, 6, 7, 1	bnj1256 35628	. . . . . . . 8 ⊢ (𝜑 → ∃𝑑 ∈ 𝐵 𝑔 Fn 𝑑)
9	8	bnj1196 35407	. . . . . . 7 ⊢ (𝜑 → ∃𝑑(𝑑 ∈ 𝐵 ∧ 𝑔 Fn 𝑑))
10	2	bnj1517 35463	. . . . . . . . 9 ⊢ (𝑑 ∈ 𝐵 → ∀𝑥 ∈ 𝑑 pred(𝑥, 𝐴, 𝑅) ⊆ 𝑑)
11	10	adantr 486	. . . . . . . 8 ⊢ ((𝑑 ∈ 𝐵 ∧ 𝑔 Fn 𝑑) → ∀𝑥 ∈ 𝑑 pred(𝑥, 𝐴, 𝑅) ⊆ 𝑑)
12		fndm 6634	. . . . . . . . . 10 ⊢ (𝑔 Fn 𝑑 → dom 𝑔 = 𝑑)
13		sseq2 3957	. . . . . . . . . . 11 ⊢ (dom 𝑔 = 𝑑 → ( pred(𝑥, 𝐴, 𝑅) ⊆ dom 𝑔 ↔ pred(𝑥, 𝐴, 𝑅) ⊆ 𝑑))
14	13	raleqbi1dv 3330	. . . . . . . . . 10 ⊢ (dom 𝑔 = 𝑑 → (∀𝑥 ∈ dom 𝑔 pred(𝑥, 𝐴, 𝑅) ⊆ dom 𝑔 ↔ ∀𝑥 ∈ 𝑑 pred(𝑥, 𝐴, 𝑅) ⊆ 𝑑))
15	12, 14	syl 18	. . . . . . . . 9 ⊢ (𝑔 Fn 𝑑 → (∀𝑥 ∈ dom 𝑔 pred(𝑥, 𝐴, 𝑅) ⊆ dom 𝑔 ↔ ∀𝑥 ∈ 𝑑 pred(𝑥, 𝐴, 𝑅) ⊆ 𝑑))
16	15	adantl 487	. . . . . . . 8 ⊢ ((𝑑 ∈ 𝐵 ∧ 𝑔 Fn 𝑑) → (∀𝑥 ∈ dom 𝑔 pred(𝑥, 𝐴, 𝑅) ⊆ dom 𝑔 ↔ ∀𝑥 ∈ 𝑑 pred(𝑥, 𝐴, 𝑅) ⊆ 𝑑))
17	11, 16	mpbird 260	. . . . . . 7 ⊢ ((𝑑 ∈ 𝐵 ∧ 𝑔 Fn 𝑑) → ∀𝑥 ∈ dom 𝑔 pred(𝑥, 𝐴, 𝑅) ⊆ dom 𝑔)
18	9, 17	bnj593 35359	. . . . . 6 ⊢ (𝜑 → ∃𝑑∀𝑥 ∈ dom 𝑔 pred(𝑥, 𝐴, 𝑅) ⊆ dom 𝑔)
19	18	bnj937 35385	. . . . 5 ⊢ (𝜑 → ∀𝑥 ∈ dom 𝑔 pred(𝑥, 𝐴, 𝑅) ⊆ dom 𝑔)
20	1, 19	bnj835 35373	. . . 4 ⊢ (𝜓 → ∀𝑥 ∈ dom 𝑔 pred(𝑥, 𝐴, 𝑅) ⊆ dom 𝑔)
21	6	ssrab3 4030	. . . . . . 7 ⊢ 𝐸 ⊆ 𝐷
22	5	bnj1292 35428	. . . . . . 7 ⊢ 𝐷 ⊆ dom 𝑔
23	21, 22	sstri 3940	. . . . . 6 ⊢ 𝐸 ⊆ dom 𝑔
24	23	sseli 3927	. . . . 5 ⊢ (𝑥 ∈ 𝐸 → 𝑥 ∈ dom 𝑔)
25	1, 24	bnj836 35374	. . . 4 ⊢ (𝜓 → 𝑥 ∈ dom 𝑔)
26	20, 25	bnj1294 35430	. . 3 ⊢ (𝜓 → pred(𝑥, 𝐴, 𝑅) ⊆ dom 𝑔)
27	2, 3, 4, 5, 6, 7, 1	bnj1259 35629	. . . . . . . 8 ⊢ (𝜑 → ∃𝑑 ∈ 𝐵 ℎ Fn 𝑑)
28	27	bnj1196 35407	. . . . . . 7 ⊢ (𝜑 → ∃𝑑(𝑑 ∈ 𝐵 ∧ ℎ Fn 𝑑))
29	10	adantr 486	. . . . . . . 8 ⊢ ((𝑑 ∈ 𝐵 ∧ ℎ Fn 𝑑) → ∀𝑥 ∈ 𝑑 pred(𝑥, 𝐴, 𝑅) ⊆ 𝑑)
30		fndm 6634	. . . . . . . . . 10 ⊢ (ℎ Fn 𝑑 → dom ℎ = 𝑑)
31		sseq2 3957	. . . . . . . . . . 11 ⊢ (dom ℎ = 𝑑 → ( pred(𝑥, 𝐴, 𝑅) ⊆ dom ℎ ↔ pred(𝑥, 𝐴, 𝑅) ⊆ 𝑑))
32	31	raleqbi1dv 3330	. . . . . . . . . 10 ⊢ (dom ℎ = 𝑑 → (∀𝑥 ∈ dom ℎ pred(𝑥, 𝐴, 𝑅) ⊆ dom ℎ ↔ ∀𝑥 ∈ 𝑑 pred(𝑥, 𝐴, 𝑅) ⊆ 𝑑))
33	30, 32	syl 18	. . . . . . . . 9 ⊢ (ℎ Fn 𝑑 → (∀𝑥 ∈ dom ℎ pred(𝑥, 𝐴, 𝑅) ⊆ dom ℎ ↔ ∀𝑥 ∈ 𝑑 pred(𝑥, 𝐴, 𝑅) ⊆ 𝑑))
34	33	adantl 487	. . . . . . . 8 ⊢ ((𝑑 ∈ 𝐵 ∧ ℎ Fn 𝑑) → (∀𝑥 ∈ dom ℎ pred(𝑥, 𝐴, 𝑅) ⊆ dom ℎ ↔ ∀𝑥 ∈ 𝑑 pred(𝑥, 𝐴, 𝑅) ⊆ 𝑑))
35	29, 34	mpbird 260	. . . . . . 7 ⊢ ((𝑑 ∈ 𝐵 ∧ ℎ Fn 𝑑) → ∀𝑥 ∈ dom ℎ pred(𝑥, 𝐴, 𝑅) ⊆ dom ℎ)
36	28, 35	bnj593 35359	. . . . . 6 ⊢ (𝜑 → ∃𝑑∀𝑥 ∈ dom ℎ pred(𝑥, 𝐴, 𝑅) ⊆ dom ℎ)
37	36	bnj937 35385	. . . . 5 ⊢ (𝜑 → ∀𝑥 ∈ dom ℎ pred(𝑥, 𝐴, 𝑅) ⊆ dom ℎ)
38	1, 37	bnj835 35373	. . . 4 ⊢ (𝜓 → ∀𝑥 ∈ dom ℎ pred(𝑥, 𝐴, 𝑅) ⊆ dom ℎ)
39	5	bnj1293 35429	. . . . . . 7 ⊢ 𝐷 ⊆ dom ℎ
40	21, 39	sstri 3940	. . . . . 6 ⊢ 𝐸 ⊆ dom ℎ
41	40	sseli 3927	. . . . 5 ⊢ (𝑥 ∈ 𝐸 → 𝑥 ∈ dom ℎ)
42	1, 41	bnj836 35374	. . . 4 ⊢ (𝜓 → 𝑥 ∈ dom ℎ)
43	38, 42	bnj1294 35430	. . 3 ⊢ (𝜓 → pred(𝑥, 𝐴, 𝑅) ⊆ dom ℎ)
44	26, 43	ssind 4186	. 2 ⊢ (𝜓 → pred(𝑥, 𝐴, 𝑅) ⊆ (dom 𝑔 ∩ dom ℎ))
45	44, 5	sseqtrrdi 3972	1 ⊢ (𝜓 → pred(𝑥, 𝐴, 𝑅) ⊆ 𝐷)

This proof depends on syntax axioms:  ¬ wn 3   → wi 4   ↔ wb 209   ∧ wa 401   ∧ w3a 1103   = wceq 1570   ∈ wcel 2145  {cab 2739   ≠ wne 2956  ∀wral 3077  ∃wrex 3087  {crab 3413   ∩ cin 3898   ⊆ wss 3899  ⟨cop 4590   class class class wbr 5103  dom cdm 5651   ↾ cres 5653   Fn wfn 6526  ‘cfv 6531   ∧ w-bnj17 35300   predc-bnj14 35302   FrSe w-bnj15 35306

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-8 2147  ax-9 2155  ax-12 2213  ax-ext 2733

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-sb 2100  df-clab 2740  df-cleq 2753  df-clel 2836  df-ral 3078  df-rex 3088  df-rab 3414  df-v 3453  df-dif 3902  df-un 3904  df-in 3906  df-ss 3916  df-nul 4280  df-if 4483  df-sn 4585  df-pr 4587  df-op 4591  df-uni 4868  df-br 5104  df-opab 5168  df-rel 5658  df-cnv 5659  df-co 5660  df-dm 5661  df-res 5663  df-iota 6487  df-fun 6533  df-fn 6534  df-fv 6539  df-bnj17 35301

This theorem is used by:  bnj1280  35633