Theorem bnj607 32896

Description: Technical lemma for bnj852 32901. 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 615	. . . 4 ⊢ (((𝑛 ≠ 1o ∧ 𝑛 ∈ 𝐷) ∧ 𝜃) → (∃𝑚∃𝑝𝜂 ∧ 𝜃))
3		nfv 1917	. . . . . . 7 ⊢ Ⅎ𝑝𝜃
4	3	19.41 2228	. . . . . 6 ⊢ (∃𝑝(𝜂 ∧ 𝜃) ↔ (∃𝑝𝜂 ∧ 𝜃))
5	4	exbii 1850	. . . . 5 ⊢ (∃𝑚∃𝑝(𝜂 ∧ 𝜃) ↔ ∃𝑚(∃𝑝𝜂 ∧ 𝜃))
6		bnj607.5	. . . . . . . 8 ⊢ (𝜃 ↔ ∀𝑚 ∈ 𝐷 (𝑚 E 𝑛 → [𝑚 / 𝑛]𝜒))
7	6	bnj1095 32761	. . . . . . 7 ⊢ (𝜃 → ∀𝑚𝜃)
8	7	nf5i 2142	. . . . . 6 ⊢ Ⅎ𝑚𝜃
9	8	19.41 2228	. . . . 5 ⊢ (∃𝑚(∃𝑝𝜂 ∧ 𝜃) ↔ (∃𝑚∃𝑝𝜂 ∧ 𝜃))
10	5, 9	bitr2i 275	. . . 4 ⊢ ((∃𝑚∃𝑝𝜂 ∧ 𝜃) ↔ ∃𝑚∃𝑝(𝜂 ∧ 𝜃))
11	2, 10	sylib 217	. . 3 ⊢ (((𝑛 ≠ 1o ∧ 𝑛 ∈ 𝐷) ∧ 𝜃) → ∃𝑚∃𝑝(𝜂 ∧ 𝜃))
12		bnj607.19	. . . . . . . . . 10 ⊢ (𝜂 ↔ (𝑚 ∈ 𝐷 ∧ 𝑛 = suc 𝑚 ∧ 𝑝 ∈ ω ∧ 𝑚 = suc 𝑝))
13	12	bnj1232 32783	. . . . . . . . 9 ⊢ (𝜂 → 𝑚 ∈ 𝐷)
14		bnj219 32712	. . . . . . . . . 10 ⊢ (𝑛 = suc 𝑚 → 𝑚 E 𝑛)
15	12, 14	bnj770 32743	. . . . . . . . 9 ⊢ (𝜂 → 𝑚 E 𝑛)
16	13, 15	jca 512	. . . . . . . 8 ⊢ (𝜂 → (𝑚 ∈ 𝐷 ∧ 𝑚 E 𝑛))
17	16	anim1i 615	. . . . . . 7 ⊢ ((𝜂 ∧ 𝜃) → ((𝑚 ∈ 𝐷 ∧ 𝑚 E 𝑛) ∧ 𝜃))
18		bnj170 32677	. . . . . . 7 ⊢ ((𝜃 ∧ 𝑚 ∈ 𝐷 ∧ 𝑚 E 𝑛) ↔ ((𝑚 ∈ 𝐷 ∧ 𝑚 E 𝑛) ∧ 𝜃))
19	17, 18	sylibr 233	. . . . . 6 ⊢ ((𝜂 ∧ 𝜃) → (𝜃 ∧ 𝑚 ∈ 𝐷 ∧ 𝑚 E 𝑛))
20		bnj607.38	. . . . . 6 ⊢ ((𝜃 ∧ 𝑚 ∈ 𝐷 ∧ 𝑚 E 𝑛) → 𝜒′)
21	19, 20	syl 17	. . . . 5 ⊢ ((𝜂 ∧ 𝜃) → 𝜒′)
22		simpl 483	. . . . 5 ⊢ ((𝜂 ∧ 𝜃) → 𝜂)
23	21, 22	jca 512	. . . 4 ⊢ ((𝜂 ∧ 𝜃) → (𝜒′ ∧ 𝜂))
24	23	2eximi 1838	. . 3 ⊢ (∃𝑚∃𝑝(𝜂 ∧ 𝜃) → ∃𝑚∃𝑝(𝜒′ ∧ 𝜂))
25		bnj607.31	. . . . . . . . . . . 12 ⊢ (𝜒′ ↔ ((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → ∃!𝑓(𝑓 Fn 𝑚 ∧ 𝜑′ ∧ 𝜓′)))
26	25	biimpi 215	. . . . . . . . . . 11 ⊢ (𝜒′ → ((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → ∃!𝑓(𝑓 Fn 𝑚 ∧ 𝜑′ ∧ 𝜓′)))
27		euex 2577	. . . . . . . . . . 11 ⊢ (∃!𝑓(𝑓 Fn 𝑚 ∧ 𝜑′ ∧ 𝜓′) → ∃𝑓(𝑓 Fn 𝑚 ∧ 𝜑′ ∧ 𝜓′))
28	26, 27	syl6 35	. . . . . . . . . 10 ⊢ (𝜒′ → ((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → ∃𝑓(𝑓 Fn 𝑚 ∧ 𝜑′ ∧ 𝜓′)))
29	28	impcom 408	. . . . . . . . 9 ⊢ (((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) ∧ 𝜒′) → ∃𝑓(𝑓 Fn 𝑚 ∧ 𝜑′ ∧ 𝜓′))
30		bnj607.17	. . . . . . . . 9 ⊢ (𝜏 ↔ (𝑓 Fn 𝑚 ∧ 𝜑′ ∧ 𝜓′))
31	29, 30	bnj1198 32775	. . . . . . . 8 ⊢ (((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) ∧ 𝜒′) → ∃𝑓𝜏)
32	31	adantrr 714	. . . . . . 7 ⊢ (((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) ∧ (𝜒′ ∧ 𝜂)) → ∃𝑓𝜏)
33		id 22	. . . . . . . . . . 11 ⊢ ((𝑅 FrSe 𝐴 ∧ 𝜏 ∧ 𝜂) → (𝑅 FrSe 𝐴 ∧ 𝜏 ∧ 𝜂))
34	33	3com23 1125	. . . . . . . . . 10 ⊢ ((𝑅 FrSe 𝐴 ∧ 𝜂 ∧ 𝜏) → (𝑅 FrSe 𝐴 ∧ 𝜏 ∧ 𝜂))
35	34	3expia 1120	. . . . . . . . 9 ⊢ ((𝑅 FrSe 𝐴 ∧ 𝜂) → (𝜏 → (𝑅 FrSe 𝐴 ∧ 𝜏 ∧ 𝜂)))
36	35	eximdv 1920	. . . . . . . 8 ⊢ ((𝑅 FrSe 𝐴 ∧ 𝜂) → (∃𝑓𝜏 → ∃𝑓(𝑅 FrSe 𝐴 ∧ 𝜏 ∧ 𝜂)))
37	36	ad2ant2rl 746	. . . . . . 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 1127	. . . . . . 7 ⊢ ((𝑅 FrSe 𝐴 ∧ 𝜏 ∧ 𝜂) → (𝐺 Fn 𝑛 ∧ 𝜑″ ∧ 𝜓″))
43	42	eximi 1837	. . . . . 6 ⊢ (∃𝑓(𝑅 FrSe 𝐴 ∧ 𝜏 ∧ 𝜂) → ∃𝑓(𝐺 Fn 𝑛 ∧ 𝜑″ ∧ 𝜓″))
44		nfe1 2147	. . . . . . 7 ⊢ Ⅎ𝑓∃𝑓(𝑓 Fn 𝑛 ∧ 𝜑 ∧ 𝜓)
45		bnj607.28	. . . . . . . . 9 ⊢ 𝐺 ∈ V
46		nfcv 2907	. . . . . . . . . 10 ⊢ Ⅎℎ𝐺
47		nfv 1917	. . . . . . . . . . 11 ⊢ Ⅎℎ 𝐺 Fn 𝑛
48		bnj607.300	. . . . . . . . . . . 12 ⊢ (𝜑1 ↔ [𝐺 / ℎ]𝜑0)
49		nfsbc1v 3736	. . . . . . . . . . . 12 ⊢ Ⅎℎ[𝐺 / ℎ]𝜑0
50	48, 49	nfxfr 1855	. . . . . . . . . . 11 ⊢ Ⅎℎ𝜑1
51		bnj607.301	. . . . . . . . . . . 12 ⊢ (𝜓1 ↔ [𝐺 / ℎ]𝜓0)
52		nfsbc1v 3736	. . . . . . . . . . . 12 ⊢ Ⅎℎ[𝐺 / ℎ]𝜓0
53	51, 52	nfxfr 1855	. . . . . . . . . . 11 ⊢ Ⅎℎ𝜓1
54	47, 50, 53	nf3an 1904	. . . . . . . . . 10 ⊢ Ⅎℎ(𝐺 Fn 𝑛 ∧ 𝜑1 ∧ 𝜓1)
55		fneq1 6524	. . . . . . . . . . 11 ⊢ (ℎ = 𝐺 → (ℎ Fn 𝑛 ↔ 𝐺 Fn 𝑛))
56		sbceq1a 3727	. . . . . . . . . . . 12 ⊢ (ℎ = 𝐺 → (𝜑0 ↔ [𝐺 / ℎ]𝜑0))
57	56, 48	bitr4di 289	. . . . . . . . . . 11 ⊢ (ℎ = 𝐺 → (𝜑0 ↔ 𝜑1))
58		sbceq1a 3727	. . . . . . . . . . . 12 ⊢ (ℎ = 𝐺 → (𝜓0 ↔ [𝐺 / ℎ]𝜓0))
59	58, 51	bitr4di 289	. . . . . . . . . . 11 ⊢ (ℎ = 𝐺 → (𝜓0 ↔ 𝜓1))
60	55, 57, 59	3anbi123d 1435	. . . . . . . . . 10 ⊢ (ℎ = 𝐺 → ((ℎ Fn 𝑛 ∧ 𝜑0 ∧ 𝜓0) ↔ (𝐺 Fn 𝑛 ∧ 𝜑1 ∧ 𝜓1)))
61	46, 54, 60	spcegf 3531	. . . . . . . . 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 32858	. . . . . . . . . . . . 13 ⊢ (𝜑0 ↔ (ℎ‘∅) = pred(𝑥, 𝐴, 𝑅))
67	66, 48, 45	bnj526 32868	. . . . . . . . . . . 12 ⊢ (𝜑1 ↔ (𝐺‘∅) = pred(𝑥, 𝐴, 𝑅))
68	63, 67	bitr4i 277	. . . . . . . . . . 11 ⊢ (𝜑″ ↔ 𝜑1)
69		bnj607.33	. . . . . . . . . . . 12 ⊢ (𝜓″ ↔ ∀𝑖 ∈ ω (suc 𝑖 ∈ 𝑛 → (𝐺‘suc 𝑖) = ∪ 𝑦 ∈ (𝐺‘𝑖) pred(𝑦, 𝐴, 𝑅)))
70		bnj607.2	. . . . . . . . . . . . . 14 ⊢ (𝜓 ↔ ∀𝑖 ∈ ω (suc 𝑖 ∈ 𝑛 → (𝑓‘suc 𝑖) = ∪ 𝑦 ∈ (𝑓‘𝑖) pred(𝑦, 𝐴, 𝑅)))
71		bnj607.401	. . . . . . . . . . . . . 14 ⊢ (𝜓0 ↔ [ℎ / 𝑓]𝜓)
72		vex 3436	. . . . . . . . . . . . . 14 ⊢ ℎ ∈ V
73	70, 71, 72	bnj540 32872	. . . . . . . . . . . . 13 ⊢ (𝜓0 ↔ ∀𝑖 ∈ ω (suc 𝑖 ∈ 𝑛 → (ℎ‘suc 𝑖) = ∪ 𝑦 ∈ (ℎ‘𝑖) pred(𝑦, 𝐴, 𝑅)))
74	73, 51, 45	bnj540 32872	. . . . . . . . . . . 12 ⊢ (𝜓1 ↔ ∀𝑖 ∈ ω (suc 𝑖 ∈ 𝑛 → (𝐺‘suc 𝑖) = ∪ 𝑦 ∈ (𝐺‘𝑖) pred(𝑦, 𝐴, 𝑅)))
75	69, 74	bitr4i 277	. . . . . . . . . . 11 ⊢ (𝜓″ ↔ 𝜓1)
76	68, 75	anbi12i 627	. . . . . . . . . 10 ⊢ ((𝜑″ ∧ 𝜓″) ↔ (𝜑1 ∧ 𝜓1))
77	76	anbi2i 623	. . . . . . . . 9 ⊢ ((𝐺 Fn 𝑛 ∧ (𝜑″ ∧ 𝜓″)) ↔ (𝐺 Fn 𝑛 ∧ (𝜑1 ∧ 𝜓1)))
78		3anass 1094	. . . . . . . . 9 ⊢ ((𝐺 Fn 𝑛 ∧ 𝜑″ ∧ 𝜓″) ↔ (𝐺 Fn 𝑛 ∧ (𝜑″ ∧ 𝜓″)))
79		3anass 1094	. . . . . . . . 9 ⊢ ((𝐺 Fn 𝑛 ∧ 𝜑1 ∧ 𝜓1) ↔ (𝐺 Fn 𝑛 ∧ (𝜑1 ∧ 𝜓1)))
80	77, 78, 79	3bitr4i 303	. . . . . . . 8 ⊢ ((𝐺 Fn 𝑛 ∧ 𝜑″ ∧ 𝜓″) ↔ (𝐺 Fn 𝑛 ∧ 𝜑1 ∧ 𝜓1))
81		nfv 1917	. . . . . . . . 9 ⊢ Ⅎℎ(𝑓 Fn 𝑛 ∧ 𝜑 ∧ 𝜓)
82		nfv 1917	. . . . . . . . . 10 ⊢ Ⅎ𝑓 ℎ Fn 𝑛
83		nfsbc1v 3736	. . . . . . . . . . 11 ⊢ Ⅎ𝑓[ℎ / 𝑓]𝜑
84	64, 83	nfxfr 1855	. . . . . . . . . 10 ⊢ Ⅎ𝑓𝜑0
85		nfsbc1v 3736	. . . . . . . . . . 11 ⊢ Ⅎ𝑓[ℎ / 𝑓]𝜓
86	71, 85	nfxfr 1855	. . . . . . . . . 10 ⊢ Ⅎ𝑓𝜓0
87	82, 84, 86	nf3an 1904	. . . . . . . . 9 ⊢ Ⅎ𝑓(ℎ Fn 𝑛 ∧ 𝜑0 ∧ 𝜓0)
88		fneq1 6524	. . . . . . . . . 10 ⊢ (𝑓 = ℎ → (𝑓 Fn 𝑛 ↔ ℎ Fn 𝑛))
89		sbceq1a 3727	. . . . . . . . . . 11 ⊢ (𝑓 = ℎ → (𝜑 ↔ [ℎ / 𝑓]𝜑))
90	89, 64	bitr4di 289	. . . . . . . . . 10 ⊢ (𝑓 = ℎ → (𝜑 ↔ 𝜑0))
91		sbceq1a 3727	. . . . . . . . . . 11 ⊢ (𝑓 = ℎ → (𝜓 ↔ [ℎ / 𝑓]𝜓))
92	91, 71	bitr4di 289	. . . . . . . . . 10 ⊢ (𝑓 = ℎ → (𝜓 ↔ 𝜓0))
93	88, 90, 92	3anbi123d 1435	. . . . . . . . 9 ⊢ (𝑓 = ℎ → ((𝑓 Fn 𝑛 ∧ 𝜑 ∧ 𝜓) ↔ (ℎ Fn 𝑛 ∧ 𝜑0 ∧ 𝜓0)))
94	81, 87, 93	cbvexv1 2339	. . . . . . . 8 ⊢ (∃𝑓(𝑓 Fn 𝑛 ∧ 𝜑 ∧ 𝜓) ↔ ∃ℎ(ℎ Fn 𝑛 ∧ 𝜑0 ∧ 𝜓0))
95	62, 80, 94	3imtr4i 292	. . . . . . 7 ⊢ ((𝐺 Fn 𝑛 ∧ 𝜑″ ∧ 𝜓″) → ∃𝑓(𝑓 Fn 𝑛 ∧ 𝜑 ∧ 𝜓))
96	44, 95	exlimi 2210	. . . . . 6 ⊢ (∃𝑓(𝐺 Fn 𝑛 ∧ 𝜑″ ∧ 𝜓″) → ∃𝑓(𝑓 Fn 𝑛 ∧ 𝜑 ∧ 𝜓))
97	38, 43, 96	3syl 18	. . . . 5 ⊢ (((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) ∧ (𝜒′ ∧ 𝜂)) → ∃𝑓(𝑓 Fn 𝑛 ∧ 𝜑 ∧ 𝜓))
98	97	expcom 414	. . . 4 ⊢ ((𝜒′ ∧ 𝜂) → ((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → ∃𝑓(𝑓 Fn 𝑛 ∧ 𝜑 ∧ 𝜓)))
99	98	exlimivv 1935	. . 3 ⊢ (∃𝑚∃𝑝(𝜒′ ∧ 𝜂) → ((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → ∃𝑓(𝑓 Fn 𝑛 ∧ 𝜑 ∧ 𝜓)))
100	11, 24, 99	3syl 18	. 2 ⊢ (((𝑛 ≠ 1o ∧ 𝑛 ∈ 𝐷) ∧ 𝜃) → ((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → ∃𝑓(𝑓 Fn 𝑛 ∧ 𝜑 ∧ 𝜓)))
101	100	3impa 1109	1 ⊢ ((𝑛 ≠ 1o ∧ 𝑛 ∈ 𝐷 ∧ 𝜃) → ((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → ∃𝑓(𝑓 Fn 𝑛 ∧ 𝜑 ∧ 𝜓)))

Syntax hints:   → wi 4   ↔ wb 205   ∧ wa 396   ∧ w3a 1086   = wceq 1539  ∃wex 1782   ∈ wcel 2106  ∃!weu 2568   ≠ wne 2943  ∀wral 3064  Vcvv 3432  [wsbc 3716  ∅c0 4256  ∪ ciun 4924   class class class wbr 5074   E cep 5494  suc csuc 6268   Fn wfn 6428  ‘cfv 6433  ωcom 7712  1_oc1o 8290   ∧ w-bnj17 32665   predc-bnj14 32667   FrSe w-bnj15 32671

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1798  ax-4 1812  ax-5 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2709  ax-sep 5223  ax-nul 5230  ax-pr 5352

This theorem depends on definitions:  df-bi 206  df-an 397  df-or 845  df-3an 1088  df-tru 1542  df-fal 1552  df-ex 1783  df-nf 1787  df-sb 2068  df-eu 2569  df-clab 2716  df-cleq 2730  df-clel 2816  df-nfc 2889  df-ne 2944  df-ral 3069  df-rex 3070  df-rab 3073  df-v 3434  df-sbc 3717  df-dif 3890  df-un 3892  df-in 3894  df-ss 3904  df-nul 4257  df-if 4460  df-sn 4562  df-pr 4564  df-op 4568  df-uni 4840  df-iun 4926  df-br 5075  df-opab 5137  df-eprel 5495  df-rel 5596  df-cnv 5597  df-co 5598  df-dm 5599  df-suc 6272  df-iota 6391  df-fun 6435  df-fn 6436  df-fv 6441  df-bnj17 32666

This theorem is referenced by:  bnj600  32899