Theorem bnj607 35546

Description: Technical lemma for bnj852 35551. 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
bnj607.5	⊢ (𝜃 ↔ ∀𝑚 ∈ 𝐷 (𝑚 E 𝑛 → [𝑚 / 𝑛]𝜒))
bnj607.13	⊢ (𝜑″ ↔ [𝐺 / 𝑓]𝜑)
bnj607.14	⊢ (𝜓″ ↔ [𝐺 / 𝑓]𝜓)
bnj607.17	⊢ (𝜏 ↔ (𝑓 Fn 𝑚 ∧ 𝜑′ ∧ 𝜓′))
bnj607.19	⊢ (𝜂 ↔ (𝑚 ∈ 𝐷 ∧ 𝑛 = suc 𝑚 ∧ 𝑝 ∈ ω ∧ 𝑚 = suc 𝑝))
bnj607.28	⊢ 𝐺 ∈ V
bnj607.31	⊢ (𝜒′ ↔ ((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → ∃!𝑓(𝑓 Fn 𝑚 ∧ 𝜑′ ∧ 𝜓′)))
bnj607.32	⊢ (𝜑″ ↔ (𝐺‘∅) = pred(𝑥, 𝐴, 𝑅))
bnj607.33	⊢ (𝜓″ ↔ ∀𝑖 ∈ ω (suc 𝑖 ∈ 𝑛 → (𝐺‘suc 𝑖) = ∪ 𝑦 ∈ (𝐺‘𝑖) pred(𝑦, 𝐴, 𝑅)))
bnj607.37	⊢ ((𝑛 ≠ 1o ∧ 𝑛 ∈ 𝐷) → ∃𝑚∃𝑝𝜂)
bnj607.38	⊢ ((𝜃 ∧ 𝑚 ∈ 𝐷 ∧ 𝑚 E 𝑛) → 𝜒′)
bnj607.41	⊢ ((𝑅 FrSe 𝐴 ∧ 𝜏 ∧ 𝜂) → 𝐺 Fn 𝑛)
bnj607.42	⊢ ((𝑅 FrSe 𝐴 ∧ 𝜏 ∧ 𝜂) → 𝜑″)
bnj607.43	⊢ ((𝑅 FrSe 𝐴 ∧ 𝜏 ∧ 𝜂) → 𝜓″)
bnj607.1	⊢ (𝜑 ↔ (𝑓‘∅) = pred(𝑥, 𝐴, 𝑅))
bnj607.2	⊢ (𝜓 ↔ ∀𝑖 ∈ ω (suc 𝑖 ∈ 𝑛 → (𝑓‘suc 𝑖) = ∪ 𝑦 ∈ (𝑓‘𝑖) pred(𝑦, 𝐴, 𝑅)))
bnj607.400	⊢ (𝜑0 ↔ [ℎ / 𝑓]𝜑)
bnj607.401	⊢ (𝜓0 ↔ [ℎ / 𝑓]𝜓)
bnj607.300	⊢ (𝜑1 ↔ [𝐺 / ℎ]𝜑0)
bnj607.301	⊢ (𝜓1 ↔ [𝐺 / ℎ]𝜓0)

Assertion

Ref	Expression
bnj607	⊢ ((𝑛 ≠ 1o ∧ 𝑛 ∈ 𝐷 ∧ 𝜃) → ((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → ∃𝑓(𝑓 Fn 𝑛 ∧ 𝜑 ∧ 𝜓)))

Distinct variable groups:   𝐴,𝑓,ℎ   𝐴,𝑚,𝑓   𝐴,𝑝,𝑓   ℎ,𝐺,𝑖,𝑦   𝑅,𝑓,ℎ   𝑅,𝑚   𝑅,𝑝   𝜂,𝑓   𝑓,𝑖,𝑦   𝑓,𝑛,ℎ   𝑥,𝑓,ℎ   𝜑,ℎ   𝜓,ℎ   𝑚,𝑛   𝜑,𝑚   𝜓,𝑚   𝑥,𝑚   𝑛,𝑝   𝜑,𝑝   𝜓,𝑝   𝜃,𝑝   𝑥,𝑝

Allowed substitution hints:   𝜑(𝑥, 𝑦, 𝑓, 𝑖, 𝑛)   𝜓(𝑥, 𝑦, 𝑓, 𝑖, 𝑛)   𝜒(𝑥, 𝑦, 𝑓, ℎ, 𝑖, 𝑚, 𝑛, 𝑝)   𝜃(𝑥, 𝑦, 𝑓, ℎ, 𝑖, 𝑚, 𝑛)   𝜏(𝑥, 𝑦, 𝑓, ℎ, 𝑖, 𝑚, 𝑛, 𝑝)   𝜂(𝑥, 𝑦, ℎ, 𝑖, 𝑚, 𝑛, 𝑝)   𝐴(𝑥, 𝑦, 𝑖, 𝑛)   𝐷(𝑥, 𝑦, 𝑓, ℎ, 𝑖, 𝑚, 𝑛, 𝑝)   𝑅(𝑥, 𝑦, 𝑖, 𝑛)   𝐺(𝑥, 𝑓, 𝑚, 𝑛, 𝑝)   𝜑′(𝑥, 𝑦, 𝑓, ℎ, 𝑖, 𝑚, 𝑛, 𝑝)   𝜓′(𝑥, 𝑦, 𝑓, ℎ, 𝑖, 𝑚, 𝑛, 𝑝)   𝜒′(𝑥, 𝑦, 𝑓, ℎ, 𝑖, 𝑚, 𝑛, 𝑝)   𝜑″(𝑥, 𝑦, 𝑓, ℎ, 𝑖, 𝑚, 𝑛, 𝑝)   𝜓″(𝑥, 𝑦, 𝑓, ℎ, 𝑖, 𝑚, 𝑛, 𝑝)   𝜑₀(𝑥, 𝑦, 𝑓, ℎ, 𝑖, 𝑚, 𝑛, 𝑝)   𝜓₀(𝑥, 𝑦, 𝑓, ℎ, 𝑖, 𝑚, 𝑛, 𝑝)   𝜑₁(𝑥, 𝑦, 𝑓, ℎ, 𝑖, 𝑚, 𝑛, 𝑝)   𝜓₁(𝑥, 𝑦, 𝑓, ℎ, 𝑖, 𝑚, 𝑛, 𝑝)

Proof of Theorem bnj607

Step	Hyp	Ref	Expression
1		bnj607.37	. . . . 5 ⊢ ((𝑛 ≠ 1o ∧ 𝑛 ∈ 𝐷) → ∃𝑚∃𝑝𝜂)
2	1	anim1i 627	. . . 4 ⊢ (((𝑛 ≠ 1o ∧ 𝑛 ∈ 𝐷) ∧ 𝜃) → (∃𝑚∃𝑝𝜂 ∧ 𝜃))
3		nfv 1946	. . . . . . 7 ⊢ Ⅎ𝑝𝜃
4	3	19.41 2271	. . . . . 6 ⊢ (∃𝑝(𝜂 ∧ 𝜃) ↔ (∃𝑝𝜂 ∧ 𝜃))
5	4	exbii 1880	. . . . 5 ⊢ (∃𝑚∃𝑝(𝜂 ∧ 𝜃) ↔ ∃𝑚(∃𝑝𝜂 ∧ 𝜃))
6		bnj607.5	. . . . . . . 8 ⊢ (𝜃 ↔ ∀𝑚 ∈ 𝐷 (𝑚 E 𝑛 → [𝑚 / 𝑛]𝜒))
7	6	bnj1095 35412	. . . . . . 7 ⊢ (𝜃 → ∀𝑚𝜃)
8	7	nf5i 2182	. . . . . 6 ⊢ Ⅎ𝑚𝜃
9	8	19.41 2271	. . . . 5 ⊢ (∃𝑚(∃𝑝𝜂 ∧ 𝜃) ↔ (∃𝑚∃𝑝𝜂 ∧ 𝜃))
10	5, 9	bitr2i 279	. . . 4 ⊢ ((∃𝑚∃𝑝𝜂 ∧ 𝜃) ↔ ∃𝑚∃𝑝(𝜂 ∧ 𝜃))
11	2, 10	sylib 221	. . 3 ⊢ (((𝑛 ≠ 1o ∧ 𝑛 ∈ 𝐷) ∧ 𝜃) → ∃𝑚∃𝑝(𝜂 ∧ 𝜃))
12		bnj607.19	. . . . . . . . . 10 ⊢ (𝜂 ↔ (𝑚 ∈ 𝐷 ∧ 𝑛 = suc 𝑚 ∧ 𝑝 ∈ ω ∧ 𝑚 = suc 𝑝))
13	12	bnj1232 35433	. . . . . . . . 9 ⊢ (𝜂 → 𝑚 ∈ 𝐷)
14		bnj219 35364	. . . . . . . . . 10 ⊢ (𝑛 = suc 𝑚 → 𝑚 E 𝑛)
15	12, 14	bnj770 35394	. . . . . . . . 9 ⊢ (𝜂 → 𝑚 E 𝑛)
16	13, 15	jca 521	. . . . . . . 8 ⊢ (𝜂 → (𝑚 ∈ 𝐷 ∧ 𝑚 E 𝑛))
17	16	anim1i 627	. . . . . . 7 ⊢ ((𝜂 ∧ 𝜃) → ((𝑚 ∈ 𝐷 ∧ 𝑚 E 𝑛) ∧ 𝜃))
18		bnj170 35329	. . . . . . 7 ⊢ ((𝜃 ∧ 𝑚 ∈ 𝐷 ∧ 𝑚 E 𝑛) ↔ ((𝑚 ∈ 𝐷 ∧ 𝑚 E 𝑛) ∧ 𝜃))
19	17, 18	sylibr 237	. . . . . 6 ⊢ ((𝜂 ∧ 𝜃) → (𝜃 ∧ 𝑚 ∈ 𝐷 ∧ 𝑚 E 𝑛))
20		bnj607.38	. . . . . 6 ⊢ ((𝜃 ∧ 𝑚 ∈ 𝐷 ∧ 𝑚 E 𝑛) → 𝜒′)
21	19, 20	syl 18	. . . . 5 ⊢ ((𝜂 ∧ 𝜃) → 𝜒′)
22		simpl 488	. . . . 5 ⊢ ((𝜂 ∧ 𝜃) → 𝜂)
23	21, 22	jca 521	. . . 4 ⊢ ((𝜂 ∧ 𝜃) → (𝜒′ ∧ 𝜂))
24	23	2eximi 1868	. . 3 ⊢ (∃𝑚∃𝑝(𝜂 ∧ 𝜃) → ∃𝑚∃𝑝(𝜒′ ∧ 𝜂))
25		bnj607.31	. . . . . . . . . . . 12 ⊢ (𝜒′ ↔ ((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → ∃!𝑓(𝑓 Fn 𝑚 ∧ 𝜑′ ∧ 𝜓′)))
26	25	biimpi 219	. . . . . . . . . . 11 ⊢ (𝜒′ → ((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → ∃!𝑓(𝑓 Fn 𝑚 ∧ 𝜑′ ∧ 𝜓′)))
27		euex 2602	. . . . . . . . . . 11 ⊢ (∃!𝑓(𝑓 Fn 𝑚 ∧ 𝜑′ ∧ 𝜓′) → ∃𝑓(𝑓 Fn 𝑚 ∧ 𝜑′ ∧ 𝜓′))
28	26, 27	syl6 36	. . . . . . . . . 10 ⊢ (𝜒′ → ((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → ∃𝑓(𝑓 Fn 𝑚 ∧ 𝜑′ ∧ 𝜓′)))
29	28	impcom 413	. . . . . . . . 9 ⊢ (((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) ∧ 𝜒′) → ∃𝑓(𝑓 Fn 𝑚 ∧ 𝜑′ ∧ 𝜓′))
30		bnj607.17	. . . . . . . . 9 ⊢ (𝜏 ↔ (𝑓 Fn 𝑚 ∧ 𝜑′ ∧ 𝜓′))
31	29, 30	bnj1198 35425	. . . . . . . 8 ⊢ (((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) ∧ 𝜒′) → ∃𝑓𝜏)
32	31	adantrr 730	. . . . . . 7 ⊢ (((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) ∧ (𝜒′ ∧ 𝜂)) → ∃𝑓𝜏)
33		id 23	. . . . . . . . . . 11 ⊢ ((𝑅 FrSe 𝐴 ∧ 𝜏 ∧ 𝜂) → (𝑅 FrSe 𝐴 ∧ 𝜏 ∧ 𝜂))
34	33	3com23 1144	. . . . . . . . . 10 ⊢ ((𝑅 FrSe 𝐴 ∧ 𝜂 ∧ 𝜏) → (𝑅 FrSe 𝐴 ∧ 𝜏 ∧ 𝜂))
35	34	3expia 1139	. . . . . . . . 9 ⊢ ((𝑅 FrSe 𝐴 ∧ 𝜂) → (𝜏 → (𝑅 FrSe 𝐴 ∧ 𝜏 ∧ 𝜂)))
36	35	eximdv 1949	. . . . . . . 8 ⊢ ((𝑅 FrSe 𝐴 ∧ 𝜂) → (∃𝑓𝜏 → ∃𝑓(𝑅 FrSe 𝐴 ∧ 𝜏 ∧ 𝜂)))
37	36	ad2ant2rl 762	. . . . . . 7 ⊢ (((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) ∧ (𝜒′ ∧ 𝜂)) → (∃𝑓𝜏 → ∃𝑓(𝑅 FrSe 𝐴 ∧ 𝜏 ∧ 𝜂)))
38	32, 37	mpd 16	. . . . . 6 ⊢ (((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) ∧ (𝜒′ ∧ 𝜂)) → ∃𝑓(𝑅 FrSe 𝐴 ∧ 𝜏 ∧ 𝜂))
39		bnj607.41	. . . . . . . 8 ⊢ ((𝑅 FrSe 𝐴 ∧ 𝜏 ∧ 𝜂) → 𝐺 Fn 𝑛)
40		bnj607.42	. . . . . . . 8 ⊢ ((𝑅 FrSe 𝐴 ∧ 𝜏 ∧ 𝜂) → 𝜑″)
41		bnj607.43	. . . . . . . 8 ⊢ ((𝑅 FrSe 𝐴 ∧ 𝜏 ∧ 𝜂) → 𝜓″)
42	39, 40, 41	3jca 1146	. . . . . . 7 ⊢ ((𝑅 FrSe 𝐴 ∧ 𝜏 ∧ 𝜂) → (𝐺 Fn 𝑛 ∧ 𝜑″ ∧ 𝜓″))
43	42	eximi 1867	. . . . . 6 ⊢ (∃𝑓(𝑅 FrSe 𝐴 ∧ 𝜏 ∧ 𝜂) → ∃𝑓(𝐺 Fn 𝑛 ∧ 𝜑″ ∧ 𝜓″))
44		nfe1 2186	. . . . . . 7 ⊢ Ⅎ𝑓∃𝑓(𝑓 Fn 𝑛 ∧ 𝜑 ∧ 𝜓)
45		bnj607.28	. . . . . . . . 9 ⊢ 𝐺 ∈ V
46		nfcv 2922	. . . . . . . . . 10 ⊢ Ⅎℎ𝐺
47		nfv 1946	. . . . . . . . . . 11 ⊢ Ⅎℎ 𝐺 Fn 𝑛
48		bnj607.300	. . . . . . . . . . . 12 ⊢ (𝜑1 ↔ [𝐺 / ℎ]𝜑0)
49		nfsbc1v 3758	. . . . . . . . . . . 12 ⊢ Ⅎℎ[𝐺 / ℎ]𝜑0
50	48, 49	nfxfr 1885	. . . . . . . . . . 11 ⊢ Ⅎℎ𝜑1
51		bnj607.301	. . . . . . . . . . . 12 ⊢ (𝜓1 ↔ [𝐺 / ℎ]𝜓0)
52		nfsbc1v 3758	. . . . . . . . . . . 12 ⊢ Ⅎℎ[𝐺 / ℎ]𝜓0
53	51, 52	nfxfr 1885	. . . . . . . . . . 11 ⊢ Ⅎℎ𝜓1
54	47, 50, 53	nf3an 1933	. . . . . . . . . 10 ⊢ Ⅎℎ(𝐺 Fn 𝑛 ∧ 𝜑1 ∧ 𝜓1)
55		fneq1 6630	. . . . . . . . . . 11 ⊢ (ℎ = 𝐺 → (ℎ Fn 𝑛 ↔ 𝐺 Fn 𝑛))
56		sbceq1a 3749	. . . . . . . . . . . 12 ⊢ (ℎ = 𝐺 → (𝜑0 ↔ [𝐺 / ℎ]𝜑0))
57	56, 48	bitr4di 292	. . . . . . . . . . 11 ⊢ (ℎ = 𝐺 → (𝜑0 ↔ 𝜑1))
58		sbceq1a 3749	. . . . . . . . . . . 12 ⊢ (ℎ = 𝐺 → (𝜓0 ↔ [𝐺 / ℎ]𝜓0))
59	58, 51	bitr4di 292	. . . . . . . . . . 11 ⊢ (ℎ = 𝐺 → (𝜓0 ↔ 𝜓1))
60	55, 57, 59	3anbi123d 1464	. . . . . . . . . 10 ⊢ (ℎ = 𝐺 → ((ℎ Fn 𝑛 ∧ 𝜑0 ∧ 𝜓0) ↔ (𝐺 Fn 𝑛 ∧ 𝜑1 ∧ 𝜓1)))
61	46, 54, 60	spcegf 3546	. . . . . . . . 9 ⊢ (𝐺 ∈ V → ((𝐺 Fn 𝑛 ∧ 𝜑1 ∧ 𝜓1) → ∃ℎ(ℎ Fn 𝑛 ∧ 𝜑0 ∧ 𝜓0)))
62	45, 61	ax-mp 5	. . . . . . . 8 ⊢ ((𝐺 Fn 𝑛 ∧ 𝜑1 ∧ 𝜓1) → ∃ℎ(ℎ Fn 𝑛 ∧ 𝜑0 ∧ 𝜓0))
63		bnj607.32	. . . . . . . . . . . 12 ⊢ (𝜑″ ↔ (𝐺‘∅) = pred(𝑥, 𝐴, 𝑅))
64		bnj607.400	. . . . . . . . . . . . . 14 ⊢ (𝜑0 ↔ [ℎ / 𝑓]𝜑)
65		bnj607.1	. . . . . . . . . . . . . 14 ⊢ (𝜑 ↔ (𝑓‘∅) = pred(𝑥, 𝐴, 𝑅))
66	64, 65	bnj154 35508	. . . . . . . . . . . . 13 ⊢ (𝜑0 ↔ (ℎ‘∅) = pred(𝑥, 𝐴, 𝑅))
67	66, 48, 45	bnj526 35518	. . . . . . . . . . . 12 ⊢ (𝜑1 ↔ (𝐺‘∅) = pred(𝑥, 𝐴, 𝑅))
68	63, 67	bitr4i 281	. . . . . . . . . . 11 ⊢ (𝜑″ ↔ 𝜑1)
69		bnj607.33	. . . . . . . . . . . 12 ⊢ (𝜓″ ↔ ∀𝑖 ∈ ω (suc 𝑖 ∈ 𝑛 → (𝐺‘suc 𝑖) = ∪ 𝑦 ∈ (𝐺‘𝑖) pred(𝑦, 𝐴, 𝑅)))
70		bnj607.2	. . . . . . . . . . . . . 14 ⊢ (𝜓 ↔ ∀𝑖 ∈ ω (suc 𝑖 ∈ 𝑛 → (𝑓‘suc 𝑖) = ∪ 𝑦 ∈ (𝑓‘𝑖) pred(𝑦, 𝐴, 𝑅)))
71		bnj607.401	. . . . . . . . . . . . . 14 ⊢ (𝜓0 ↔ [ℎ / 𝑓]𝜓)
72		vex 3454	. . . . . . . . . . . . . 14 ⊢ ℎ ∈ V
73	70, 71, 72	bnj540 35522	. . . . . . . . . . . . 13 ⊢ (𝜓0 ↔ ∀𝑖 ∈ ω (suc 𝑖 ∈ 𝑛 → (ℎ‘suc 𝑖) = ∪ 𝑦 ∈ (ℎ‘𝑖) pred(𝑦, 𝐴, 𝑅)))
74	73, 51, 45	bnj540 35522	. . . . . . . . . . . 12 ⊢ (𝜓1 ↔ ∀𝑖 ∈ ω (suc 𝑖 ∈ 𝑛 → (𝐺‘suc 𝑖) = ∪ 𝑦 ∈ (𝐺‘𝑖) pred(𝑦, 𝐴, 𝑅)))
75	69, 74	bitr4i 281	. . . . . . . . . . 11 ⊢ (𝜓″ ↔ 𝜓1)
76	68, 75	anbi12i 640	. . . . . . . . . 10 ⊢ ((𝜑″ ∧ 𝜓″) ↔ (𝜑1 ∧ 𝜓1))
77	76	anbi2i 635	. . . . . . . . 9 ⊢ ((𝐺 Fn 𝑛 ∧ (𝜑″ ∧ 𝜓″)) ↔ (𝐺 Fn 𝑛 ∧ (𝜑1 ∧ 𝜓1)))
78		3anass 1111	. . . . . . . . 9 ⊢ ((𝐺 Fn 𝑛 ∧ 𝜑″ ∧ 𝜓″) ↔ (𝐺 Fn 𝑛 ∧ (𝜑″ ∧ 𝜓″)))
79		3anass 1111	. . . . . . . . 9 ⊢ ((𝐺 Fn 𝑛 ∧ 𝜑1 ∧ 𝜓1) ↔ (𝐺 Fn 𝑛 ∧ (𝜑1 ∧ 𝜓1)))
80	77, 78, 79	3bitr4i 306	. . . . . . . 8 ⊢ ((𝐺 Fn 𝑛 ∧ 𝜑″ ∧ 𝜓″) ↔ (𝐺 Fn 𝑛 ∧ 𝜑1 ∧ 𝜓1))
81		nfv 1946	. . . . . . . . 9 ⊢ Ⅎℎ(𝑓 Fn 𝑛 ∧ 𝜑 ∧ 𝜓)
82		nfv 1946	. . . . . . . . . 10 ⊢ Ⅎ𝑓 ℎ Fn 𝑛
83		nfsbc1v 3758	. . . . . . . . . . 11 ⊢ Ⅎ𝑓[ℎ / 𝑓]𝜑
84	64, 83	nfxfr 1885	. . . . . . . . . 10 ⊢ Ⅎ𝑓𝜑0
85		nfsbc1v 3758	. . . . . . . . . . 11 ⊢ Ⅎ𝑓[ℎ / 𝑓]𝜓
86	71, 85	nfxfr 1885	. . . . . . . . . 10 ⊢ Ⅎ𝑓𝜓0
87	82, 84, 86	nf3an 1933	. . . . . . . . 9 ⊢ Ⅎ𝑓(ℎ Fn 𝑛 ∧ 𝜑0 ∧ 𝜓0)
88		fneq1 6630	. . . . . . . . . 10 ⊢ (𝑓 = ℎ → (𝑓 Fn 𝑛 ↔ ℎ Fn 𝑛))
89		sbceq1a 3749	. . . . . . . . . . 11 ⊢ (𝑓 = ℎ → (𝜑 ↔ [ℎ / 𝑓]𝜑))
90	89, 64	bitr4di 292	. . . . . . . . . 10 ⊢ (𝑓 = ℎ → (𝜑 ↔ 𝜑0))
91		sbceq1a 3749	. . . . . . . . . . 11 ⊢ (𝑓 = ℎ → (𝜓 ↔ [ℎ / 𝑓]𝜓))
92	91, 71	bitr4di 292	. . . . . . . . . 10 ⊢ (𝑓 = ℎ → (𝜓 ↔ 𝜓0))
93	88, 90, 92	3anbi123d 1464	. . . . . . . . 9 ⊢ (𝑓 = ℎ → ((𝑓 Fn 𝑛 ∧ 𝜑 ∧ 𝜓) ↔ (ℎ Fn 𝑛 ∧ 𝜑0 ∧ 𝜓0)))
94	81, 87, 93	cbvexv1 2371	. . . . . . . 8 ⊢ (∃𝑓(𝑓 Fn 𝑛 ∧ 𝜑 ∧ 𝜓) ↔ ∃ℎ(ℎ Fn 𝑛 ∧ 𝜑0 ∧ 𝜓0))
95	62, 80, 94	3imtr4i 295	. . . . . . 7 ⊢ ((𝐺 Fn 𝑛 ∧ 𝜑″ ∧ 𝜓″) → ∃𝑓(𝑓 Fn 𝑛 ∧ 𝜑 ∧ 𝜓))
96	44, 95	exlimi 2253	. . . . . 6 ⊢ (∃𝑓(𝐺 Fn 𝑛 ∧ 𝜑″ ∧ 𝜓″) → ∃𝑓(𝑓 Fn 𝑛 ∧ 𝜑 ∧ 𝜓))
97	38, 43, 96	3syl 19	. . . . 5 ⊢ (((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) ∧ (𝜒′ ∧ 𝜂)) → ∃𝑓(𝑓 Fn 𝑛 ∧ 𝜑 ∧ 𝜓))
98	97	expcom 419	. . . 4 ⊢ ((𝜒′ ∧ 𝜂) → ((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → ∃𝑓(𝑓 Fn 𝑛 ∧ 𝜑 ∧ 𝜓)))
99	98	exlimivv 1964	. . 3 ⊢ (∃𝑚∃𝑝(𝜒′ ∧ 𝜂) → ((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → ∃𝑓(𝑓 Fn 𝑛 ∧ 𝜑 ∧ 𝜓)))
100	11, 24, 99	3syl 19	. 2 ⊢ (((𝑛 ≠ 1o ∧ 𝑛 ∈ 𝐷) ∧ 𝜃) → ((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → ∃𝑓(𝑓 Fn 𝑛 ∧ 𝜑 ∧ 𝜓)))
101	100	3impa 1127	1 ⊢ ((𝑛 ≠ 1o ∧ 𝑛 ∈ 𝐷 ∧ 𝜃) → ((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → ∃𝑓(𝑓 Fn 𝑛 ∧ 𝜑 ∧ 𝜓)))

This proof depends on syntax axioms:   → wi 4   ↔ wb 209   ∧ wa 401   ∧ w3a 1103   = wceq 1569  ∃wex 1811   ∈ wcel 2144  ∃!weu 2593   ≠ wne 2955  ∀wral 3076  Vcvv 3450  [wsbc 3738  ∅c0 4278  ∪ ciun 4950   class class class wbr 5102   E cep 5549  suc csuc 6364   Fn wfn 6533  ‘cfv 6538  ωcom 7877  1_oc1o 8469   ∧ w-bnj17 35317   predc-bnj14 35319   FrSe w-bnj15 35323

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1827  ax-4 1841  ax-5 1942  ax-6 1999  ax-7 2040  ax-8 2146  ax-9 2154  ax-10 2177  ax-11 2193  ax-12 2212  ax-ext 2732  ax-sep 5248  ax-pr 5390

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3an 1105  df-tru 1572  df-fal 1582  df-ex 1812  df-nf 1816  df-sb 2099  df-eu 2594  df-clab 2739  df-cleq 2752  df-clel 2835  df-nfc 2909  df-ne 2956  df-ral 3077  df-rex 3087  df-rab 3413  df-v 3452  df-sbc 3739  df-ss 3896  df-dif 4047  df-in 4091  df-un 4151  df-nul 4279  df-if 4482  df-sn 4584  df-pr 4586  df-op 4590  df-uni 4867  df-iun 4952  df-br 5103  df-opab 5167  df-eprel 5550  df-rel 5657  df-cnv 5658  df-co 5659  df-dm 5660  df-suc 6368  df-iota 6494  df-fun 6540  df-fn 6541  df-fv 6546  df-bnj17 35318

This theorem is used by:  bnj600  35549