Theorem bnj607 32563

Description: Technical lemma for bnj852 32568. 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 618	. . . 4 ⊢ (((𝑛 ≠ 1o ∧ 𝑛 ∈ 𝐷) ∧ 𝜃) → (∃𝑚∃𝑝𝜂 ∧ 𝜃))
3		nfv 1922	. . . . . . 7 ⊢ Ⅎ𝑝𝜃
4	3	19.41 2235	. . . . . 6 ⊢ (∃𝑝(𝜂 ∧ 𝜃) ↔ (∃𝑝𝜂 ∧ 𝜃))
5	4	exbii 1855	. . . . 5 ⊢ (∃𝑚∃𝑝(𝜂 ∧ 𝜃) ↔ ∃𝑚(∃𝑝𝜂 ∧ 𝜃))
6		bnj607.5	. . . . . . . 8 ⊢ (𝜃 ↔ ∀𝑚 ∈ 𝐷 (𝑚 E 𝑛 → [𝑚 / 𝑛]𝜒))
7	6	bnj1095 32428	. . . . . . 7 ⊢ (𝜃 → ∀𝑚𝜃)
8	7	nf5i 2148	. . . . . 6 ⊢ Ⅎ𝑚𝜃
9	8	19.41 2235	. . . . 5 ⊢ (∃𝑚(∃𝑝𝜂 ∧ 𝜃) ↔ (∃𝑚∃𝑝𝜂 ∧ 𝜃))
10	5, 9	bitr2i 279	. . . 4 ⊢ ((∃𝑚∃𝑝𝜂 ∧ 𝜃) ↔ ∃𝑚∃𝑝(𝜂 ∧ 𝜃))
11	2, 10	sylib 221	. . 3 ⊢ (((𝑛 ≠ 1o ∧ 𝑛 ∈ 𝐷) ∧ 𝜃) → ∃𝑚∃𝑝(𝜂 ∧ 𝜃))
12		bnj607.19	. . . . . . . . . 10 ⊢ (𝜂 ↔ (𝑚 ∈ 𝐷 ∧ 𝑛 = suc 𝑚 ∧ 𝑝 ∈ ω ∧ 𝑚 = suc 𝑝))
13	12	bnj1232 32450	. . . . . . . . 9 ⊢ (𝜂 → 𝑚 ∈ 𝐷)
14		bnj219 32378	. . . . . . . . . 10 ⊢ (𝑛 = suc 𝑚 → 𝑚 E 𝑛)
15	12, 14	bnj770 32409	. . . . . . . . 9 ⊢ (𝜂 → 𝑚 E 𝑛)
16	13, 15	jca 515	. . . . . . . 8 ⊢ (𝜂 → (𝑚 ∈ 𝐷 ∧ 𝑚 E 𝑛))
17	16	anim1i 618	. . . . . . 7 ⊢ ((𝜂 ∧ 𝜃) → ((𝑚 ∈ 𝐷 ∧ 𝑚 E 𝑛) ∧ 𝜃))
18		bnj170 32343	. . . . . . 7 ⊢ ((𝜃 ∧ 𝑚 ∈ 𝐷 ∧ 𝑚 E 𝑛) ↔ ((𝑚 ∈ 𝐷 ∧ 𝑚 E 𝑛) ∧ 𝜃))
19	17, 18	sylibr 237	. . . . . 6 ⊢ ((𝜂 ∧ 𝜃) → (𝜃 ∧ 𝑚 ∈ 𝐷 ∧ 𝑚 E 𝑛))
20		bnj607.38	. . . . . 6 ⊢ ((𝜃 ∧ 𝑚 ∈ 𝐷 ∧ 𝑚 E 𝑛) → 𝜒′)
21	19, 20	syl 17	. . . . 5 ⊢ ((𝜂 ∧ 𝜃) → 𝜒′)
22		simpl 486	. . . . 5 ⊢ ((𝜂 ∧ 𝜃) → 𝜂)
23	21, 22	jca 515	. . . 4 ⊢ ((𝜂 ∧ 𝜃) → (𝜒′ ∧ 𝜂))
24	23	2eximi 1843	. . 3 ⊢ (∃𝑚∃𝑝(𝜂 ∧ 𝜃) → ∃𝑚∃𝑝(𝜒′ ∧ 𝜂))
25		bnj607.31	. . . . . . . . . . . 12 ⊢ (𝜒′ ↔ ((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → ∃!𝑓(𝑓 Fn 𝑚 ∧ 𝜑′ ∧ 𝜓′)))
26	25	biimpi 219	. . . . . . . . . . 11 ⊢ (𝜒′ → ((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → ∃!𝑓(𝑓 Fn 𝑚 ∧ 𝜑′ ∧ 𝜓′)))
27		euex 2576	. . . . . . . . . . 11 ⊢ (∃!𝑓(𝑓 Fn 𝑚 ∧ 𝜑′ ∧ 𝜓′) → ∃𝑓(𝑓 Fn 𝑚 ∧ 𝜑′ ∧ 𝜓′))
28	26, 27	syl6 35	. . . . . . . . . 10 ⊢ (𝜒′ → ((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → ∃𝑓(𝑓 Fn 𝑚 ∧ 𝜑′ ∧ 𝜓′)))
29	28	impcom 411	. . . . . . . . 9 ⊢ (((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) ∧ 𝜒′) → ∃𝑓(𝑓 Fn 𝑚 ∧ 𝜑′ ∧ 𝜓′))
30		bnj607.17	. . . . . . . . 9 ⊢ (𝜏 ↔ (𝑓 Fn 𝑚 ∧ 𝜑′ ∧ 𝜓′))
31	29, 30	bnj1198 32442	. . . . . . . 8 ⊢ (((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) ∧ 𝜒′) → ∃𝑓𝜏)
32	31	adantrr 717	. . . . . . 7 ⊢ (((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) ∧ (𝜒′ ∧ 𝜂)) → ∃𝑓𝜏)
33		id 22	. . . . . . . . . . 11 ⊢ ((𝑅 FrSe 𝐴 ∧ 𝜏 ∧ 𝜂) → (𝑅 FrSe 𝐴 ∧ 𝜏 ∧ 𝜂))
34	33	3com23 1128	. . . . . . . . . 10 ⊢ ((𝑅 FrSe 𝐴 ∧ 𝜂 ∧ 𝜏) → (𝑅 FrSe 𝐴 ∧ 𝜏 ∧ 𝜂))
35	34	3expia 1123	. . . . . . . . 9 ⊢ ((𝑅 FrSe 𝐴 ∧ 𝜂) → (𝜏 → (𝑅 FrSe 𝐴 ∧ 𝜏 ∧ 𝜂)))
36	35	eximdv 1925	. . . . . . . 8 ⊢ ((𝑅 FrSe 𝐴 ∧ 𝜂) → (∃𝑓𝜏 → ∃𝑓(𝑅 FrSe 𝐴 ∧ 𝜏 ∧ 𝜂)))
37	36	ad2ant2rl 749	. . . . . . 7 ⊢ (((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) ∧ (𝜒′ ∧ 𝜂)) → (∃𝑓𝜏 → ∃𝑓(𝑅 FrSe 𝐴 ∧ 𝜏 ∧ 𝜂)))
38	32, 37	mpd 15	. . . . . 6 ⊢ (((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) ∧ (𝜒′ ∧ 𝜂)) → ∃𝑓(𝑅 FrSe 𝐴 ∧ 𝜏 ∧ 𝜂))
39		bnj607.41	. . . . . . . 8 ⊢ ((𝑅 FrSe 𝐴 ∧ 𝜏 ∧ 𝜂) → 𝐺 Fn 𝑛)
40		bnj607.42	. . . . . . . 8 ⊢ ((𝑅 FrSe 𝐴 ∧ 𝜏 ∧ 𝜂) → 𝜑″)
41		bnj607.43	. . . . . . . 8 ⊢ ((𝑅 FrSe 𝐴 ∧ 𝜏 ∧ 𝜂) → 𝜓″)
42	39, 40, 41	3jca 1130	. . . . . . 7 ⊢ ((𝑅 FrSe 𝐴 ∧ 𝜏 ∧ 𝜂) → (𝐺 Fn 𝑛 ∧ 𝜑″ ∧ 𝜓″))
43	42	eximi 1842	. . . . . 6 ⊢ (∃𝑓(𝑅 FrSe 𝐴 ∧ 𝜏 ∧ 𝜂) → ∃𝑓(𝐺 Fn 𝑛 ∧ 𝜑″ ∧ 𝜓″))
44		nfe1 2153	. . . . . . 7 ⊢ Ⅎ𝑓∃𝑓(𝑓 Fn 𝑛 ∧ 𝜑 ∧ 𝜓)
45		bnj607.28	. . . . . . . . 9 ⊢ 𝐺 ∈ V
46		nfcv 2897	. . . . . . . . . 10 ⊢ Ⅎℎ𝐺
47		nfv 1922	. . . . . . . . . . 11 ⊢ Ⅎℎ 𝐺 Fn 𝑛
48		bnj607.300	. . . . . . . . . . . 12 ⊢ (𝜑1 ↔ [𝐺 / ℎ]𝜑0)
49		nfsbc1v 3703	. . . . . . . . . . . 12 ⊢ Ⅎℎ[𝐺 / ℎ]𝜑0
50	48, 49	nfxfr 1860	. . . . . . . . . . 11 ⊢ Ⅎℎ𝜑1
51		bnj607.301	. . . . . . . . . . . 12 ⊢ (𝜓1 ↔ [𝐺 / ℎ]𝜓0)
52		nfsbc1v 3703	. . . . . . . . . . . 12 ⊢ Ⅎℎ[𝐺 / ℎ]𝜓0
53	51, 52	nfxfr 1860	. . . . . . . . . . 11 ⊢ Ⅎℎ𝜓1
54	47, 50, 53	nf3an 1909	. . . . . . . . . 10 ⊢ Ⅎℎ(𝐺 Fn 𝑛 ∧ 𝜑1 ∧ 𝜓1)
55		fneq1 6448	. . . . . . . . . . 11 ⊢ (ℎ = 𝐺 → (ℎ Fn 𝑛 ↔ 𝐺 Fn 𝑛))
56		sbceq1a 3694	. . . . . . . . . . . 12 ⊢ (ℎ = 𝐺 → (𝜑0 ↔ [𝐺 / ℎ]𝜑0))
57	56, 48	bitr4di 292	. . . . . . . . . . 11 ⊢ (ℎ = 𝐺 → (𝜑0 ↔ 𝜑1))
58		sbceq1a 3694	. . . . . . . . . . . 12 ⊢ (ℎ = 𝐺 → (𝜓0 ↔ [𝐺 / ℎ]𝜓0))
59	58, 51	bitr4di 292	. . . . . . . . . . 11 ⊢ (ℎ = 𝐺 → (𝜓0 ↔ 𝜓1))
60	55, 57, 59	3anbi123d 1438	. . . . . . . . . 10 ⊢ (ℎ = 𝐺 → ((ℎ Fn 𝑛 ∧ 𝜑0 ∧ 𝜓0) ↔ (𝐺 Fn 𝑛 ∧ 𝜑1 ∧ 𝜓1)))
61	46, 54, 60	spcegf 3497	. . . . . . . . 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 32525	. . . . . . . . . . . . 13 ⊢ (𝜑0 ↔ (ℎ‘∅) = pred(𝑥, 𝐴, 𝑅))
67	66, 48, 45	bnj526 32535	. . . . . . . . . . . 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 3402	. . . . . . . . . . . . . 14 ⊢ ℎ ∈ V
73	70, 71, 72	bnj540 32539	. . . . . . . . . . . . 13 ⊢ (𝜓0 ↔ ∀𝑖 ∈ ω (suc 𝑖 ∈ 𝑛 → (ℎ‘suc 𝑖) = ∪ 𝑦 ∈ (ℎ‘𝑖) pred(𝑦, 𝐴, 𝑅)))
74	73, 51, 45	bnj540 32539	. . . . . . . . . . . 12 ⊢ (𝜓1 ↔ ∀𝑖 ∈ ω (suc 𝑖 ∈ 𝑛 → (𝐺‘suc 𝑖) = ∪ 𝑦 ∈ (𝐺‘𝑖) pred(𝑦, 𝐴, 𝑅)))
75	69, 74	bitr4i 281	. . . . . . . . . . 11 ⊢ (𝜓″ ↔ 𝜓1)
76	68, 75	anbi12i 630	. . . . . . . . . 10 ⊢ ((𝜑″ ∧ 𝜓″) ↔ (𝜑1 ∧ 𝜓1))
77	76	anbi2i 626	. . . . . . . . 9 ⊢ ((𝐺 Fn 𝑛 ∧ (𝜑″ ∧ 𝜓″)) ↔ (𝐺 Fn 𝑛 ∧ (𝜑1 ∧ 𝜓1)))
78		3anass 1097	. . . . . . . . 9 ⊢ ((𝐺 Fn 𝑛 ∧ 𝜑″ ∧ 𝜓″) ↔ (𝐺 Fn 𝑛 ∧ (𝜑″ ∧ 𝜓″)))
79		3anass 1097	. . . . . . . . 9 ⊢ ((𝐺 Fn 𝑛 ∧ 𝜑1 ∧ 𝜓1) ↔ (𝐺 Fn 𝑛 ∧ (𝜑1 ∧ 𝜓1)))
80	77, 78, 79	3bitr4i 306	. . . . . . . 8 ⊢ ((𝐺 Fn 𝑛 ∧ 𝜑″ ∧ 𝜓″) ↔ (𝐺 Fn 𝑛 ∧ 𝜑1 ∧ 𝜓1))
81		nfv 1922	. . . . . . . . 9 ⊢ Ⅎℎ(𝑓 Fn 𝑛 ∧ 𝜑 ∧ 𝜓)
82		nfv 1922	. . . . . . . . . 10 ⊢ Ⅎ𝑓 ℎ Fn 𝑛
83		nfsbc1v 3703	. . . . . . . . . . 11 ⊢ Ⅎ𝑓[ℎ / 𝑓]𝜑
84	64, 83	nfxfr 1860	. . . . . . . . . 10 ⊢ Ⅎ𝑓𝜑0
85		nfsbc1v 3703	. . . . . . . . . . 11 ⊢ Ⅎ𝑓[ℎ / 𝑓]𝜓
86	71, 85	nfxfr 1860	. . . . . . . . . 10 ⊢ Ⅎ𝑓𝜓0
87	82, 84, 86	nf3an 1909	. . . . . . . . 9 ⊢ Ⅎ𝑓(ℎ Fn 𝑛 ∧ 𝜑0 ∧ 𝜓0)
88		fneq1 6448	. . . . . . . . . 10 ⊢ (𝑓 = ℎ → (𝑓 Fn 𝑛 ↔ ℎ Fn 𝑛))
89		sbceq1a 3694	. . . . . . . . . . 11 ⊢ (𝑓 = ℎ → (𝜑 ↔ [ℎ / 𝑓]𝜑))
90	89, 64	bitr4di 292	. . . . . . . . . 10 ⊢ (𝑓 = ℎ → (𝜑 ↔ 𝜑0))
91		sbceq1a 3694	. . . . . . . . . . 11 ⊢ (𝑓 = ℎ → (𝜓 ↔ [ℎ / 𝑓]𝜓))
92	91, 71	bitr4di 292	. . . . . . . . . 10 ⊢ (𝑓 = ℎ → (𝜓 ↔ 𝜓0))
93	88, 90, 92	3anbi123d 1438	. . . . . . . . 9 ⊢ (𝑓 = ℎ → ((𝑓 Fn 𝑛 ∧ 𝜑 ∧ 𝜓) ↔ (ℎ Fn 𝑛 ∧ 𝜑0 ∧ 𝜓0)))
94	81, 87, 93	cbvexv1 2343	. . . . . . . 8 ⊢ (∃𝑓(𝑓 Fn 𝑛 ∧ 𝜑 ∧ 𝜓) ↔ ∃ℎ(ℎ Fn 𝑛 ∧ 𝜑0 ∧ 𝜓0))
95	62, 80, 94	3imtr4i 295	. . . . . . 7 ⊢ ((𝐺 Fn 𝑛 ∧ 𝜑″ ∧ 𝜓″) → ∃𝑓(𝑓 Fn 𝑛 ∧ 𝜑 ∧ 𝜓))
96	44, 95	exlimi 2217	. . . . . 6 ⊢ (∃𝑓(𝐺 Fn 𝑛 ∧ 𝜑″ ∧ 𝜓″) → ∃𝑓(𝑓 Fn 𝑛 ∧ 𝜑 ∧ 𝜓))
97	38, 43, 96	3syl 18	. . . . 5 ⊢ (((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) ∧ (𝜒′ ∧ 𝜂)) → ∃𝑓(𝑓 Fn 𝑛 ∧ 𝜑 ∧ 𝜓))
98	97	expcom 417	. . . 4 ⊢ ((𝜒′ ∧ 𝜂) → ((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → ∃𝑓(𝑓 Fn 𝑛 ∧ 𝜑 ∧ 𝜓)))
99	98	exlimivv 1940	. . 3 ⊢ (∃𝑚∃𝑝(𝜒′ ∧ 𝜂) → ((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → ∃𝑓(𝑓 Fn 𝑛 ∧ 𝜑 ∧ 𝜓)))
100	11, 24, 99	3syl 18	. 2 ⊢ (((𝑛 ≠ 1o ∧ 𝑛 ∈ 𝐷) ∧ 𝜃) → ((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → ∃𝑓(𝑓 Fn 𝑛 ∧ 𝜑 ∧ 𝜓)))
101	100	3impa 1112	1 ⊢ ((𝑛 ≠ 1o ∧ 𝑛 ∈ 𝐷 ∧ 𝜃) → ((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → ∃𝑓(𝑓 Fn 𝑛 ∧ 𝜑 ∧ 𝜓)))

Syntax hints:   → wi 4   ↔ wb 209   ∧ wa 399   ∧ w3a 1089   = wceq 1543  ∃wex 1787   ∈ wcel 2112  ∃!weu 2567   ≠ wne 2932  ∀wral 3051  Vcvv 3398  [wsbc 3683  ∅c0 4223  ∪ ciun 4890   class class class wbr 5039   E cep 5444  suc csuc 6193   Fn wfn 6353  ‘cfv 6358  ωcom 7622  1_oc1o 8173   ∧ w-bnj17 32331   predc-bnj14 32333   FrSe w-bnj15 32337

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1803  ax-4 1817  ax-5 1918  ax-6 1976  ax-7 2018  ax-8 2114  ax-9 2122  ax-10 2143  ax-11 2160  ax-12 2177  ax-ext 2708  ax-sep 5177  ax-nul 5184  ax-pr 5307

This theorem depends on definitions:  df-bi 210  df-an 400  df-or 848  df-3an 1091  df-tru 1546  df-fal 1556  df-ex 1788  df-nf 1792  df-sb 2073  df-eu 2568  df-clab 2715  df-cleq 2728  df-clel 2809  df-nfc 2879  df-ne 2933  df-ral 3056  df-rex 3057  df-rab 3060  df-v 3400  df-sbc 3684  df-dif 3856  df-un 3858  df-in 3860  df-ss 3870  df-nul 4224  df-if 4426  df-sn 4528  df-pr 4530  df-op 4534  df-uni 4806  df-iun 4892  df-br 5040  df-opab 5102  df-eprel 5445  df-rel 5543  df-cnv 5544  df-co 5545  df-dm 5546  df-suc 6197  df-iota 6316  df-fun 6360  df-fn 6361  df-fv 6366  df-bnj17 32332

This theorem is referenced by:  bnj600  32566