Theorem bnj605 31795

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

Assertion

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

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

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

Proof of Theorem bnj605

Step	Hyp	Ref	Expression
1		bnj605.37	. . . . 5 ⊢ ((𝑛 ≠ 1o ∧ 𝑛 ∈ 𝐷) → ∃𝑚∃𝑝𝜂)
2	1	anim1i 614	. . . 4 ⊢ (((𝑛 ≠ 1o ∧ 𝑛 ∈ 𝐷) ∧ 𝜃) → (∃𝑚∃𝑝𝜂 ∧ 𝜃))
3		nfv 1892	. . . . . . 7 ⊢ Ⅎ𝑝𝜃
4	3	19.41 2202	. . . . . 6 ⊢ (∃𝑝(𝜂 ∧ 𝜃) ↔ (∃𝑝𝜂 ∧ 𝜃))
5	4	exbii 1829	. . . . 5 ⊢ (∃𝑚∃𝑝(𝜂 ∧ 𝜃) ↔ ∃𝑚(∃𝑝𝜂 ∧ 𝜃))
6		bnj605.5	. . . . . . . 8 ⊢ (𝜃 ↔ ∀𝑚 ∈ 𝐷 (𝑚 E 𝑛 → [𝑚 / 𝑛]𝜒))
7	6	bnj1095 31670	. . . . . . 7 ⊢ (𝜃 → ∀𝑚𝜃)
8	7	nf5i 2117	. . . . . 6 ⊢ Ⅎ𝑚𝜃
9	8	19.41 2202	. . . . 5 ⊢ (∃𝑚(∃𝑝𝜂 ∧ 𝜃) ↔ (∃𝑚∃𝑝𝜂 ∧ 𝜃))
10	5, 9	bitr2i 277	. . . 4 ⊢ ((∃𝑚∃𝑝𝜂 ∧ 𝜃) ↔ ∃𝑚∃𝑝(𝜂 ∧ 𝜃))
11	2, 10	sylib 219	. . 3 ⊢ (((𝑛 ≠ 1o ∧ 𝑛 ∈ 𝐷) ∧ 𝜃) → ∃𝑚∃𝑝(𝜂 ∧ 𝜃))
12		bnj605.19	. . . . . . . . . 10 ⊢ (𝜂 ↔ (𝑚 ∈ 𝐷 ∧ 𝑛 = suc 𝑚 ∧ 𝑝 ∈ ω ∧ 𝑚 = suc 𝑝))
13	12	bnj1232 31692	. . . . . . . . 9 ⊢ (𝜂 → 𝑚 ∈ 𝐷)
14		bnj219 31620	. . . . . . . . . 10 ⊢ (𝑛 = suc 𝑚 → 𝑚 E 𝑛)
15	12, 14	bnj770 31651	. . . . . . . . 9 ⊢ (𝜂 → 𝑚 E 𝑛)
16	13, 15	jca 512	. . . . . . . 8 ⊢ (𝜂 → (𝑚 ∈ 𝐷 ∧ 𝑚 E 𝑛))
17	16	anim1i 614	. . . . . . 7 ⊢ ((𝜂 ∧ 𝜃) → ((𝑚 ∈ 𝐷 ∧ 𝑚 E 𝑛) ∧ 𝜃))
18		bnj170 31585	. . . . . . 7 ⊢ ((𝜃 ∧ 𝑚 ∈ 𝐷 ∧ 𝑚 E 𝑛) ↔ ((𝑚 ∈ 𝐷 ∧ 𝑚 E 𝑛) ∧ 𝜃))
19	17, 18	sylibr 235	. . . . . 6 ⊢ ((𝜂 ∧ 𝜃) → (𝜃 ∧ 𝑚 ∈ 𝐷 ∧ 𝑚 E 𝑛))
20		bnj605.38	. . . . . 6 ⊢ ((𝜃 ∧ 𝑚 ∈ 𝐷 ∧ 𝑚 E 𝑛) → 𝜒′)
21	19, 20	syl 17	. . . . 5 ⊢ ((𝜂 ∧ 𝜃) → 𝜒′)
22		simpl 483	. . . . 5 ⊢ ((𝜂 ∧ 𝜃) → 𝜂)
23	21, 22	jca 512	. . . 4 ⊢ ((𝜂 ∧ 𝜃) → (𝜒′ ∧ 𝜂))
24	23	2eximi 1817	. . 3 ⊢ (∃𝑚∃𝑝(𝜂 ∧ 𝜃) → ∃𝑚∃𝑝(𝜒′ ∧ 𝜂))
25		bnj248 31587	. . . . . . . 8 ⊢ ((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴 ∧ 𝜒′ ∧ 𝜂) ↔ (((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) ∧ 𝜒′) ∧ 𝜂))
26		bnj605.31	. . . . . . . . . . 11 ⊢ (𝜒′ ↔ ((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → ∃!𝑓(𝑓 Fn 𝑚 ∧ 𝜑′ ∧ 𝜓′)))
27		pm3.35 799	. . . . . . . . . . 11 ⊢ (((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) ∧ ((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → ∃!𝑓(𝑓 Fn 𝑚 ∧ 𝜑′ ∧ 𝜓′))) → ∃!𝑓(𝑓 Fn 𝑚 ∧ 𝜑′ ∧ 𝜓′))
28	26, 27	sylan2b 593	. . . . . . . . . 10 ⊢ (((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) ∧ 𝜒′) → ∃!𝑓(𝑓 Fn 𝑚 ∧ 𝜑′ ∧ 𝜓′))
29		euex 2622	. . . . . . . . . 10 ⊢ (∃!𝑓(𝑓 Fn 𝑚 ∧ 𝜑′ ∧ 𝜓′) → ∃𝑓(𝑓 Fn 𝑚 ∧ 𝜑′ ∧ 𝜓′))
30	28, 29	syl 17	. . . . . . . . 9 ⊢ (((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) ∧ 𝜒′) → ∃𝑓(𝑓 Fn 𝑚 ∧ 𝜑′ ∧ 𝜓′))
31		bnj605.17	. . . . . . . . 9 ⊢ (𝜏 ↔ (𝑓 Fn 𝑚 ∧ 𝜑′ ∧ 𝜓′))
32	30, 31	bnj1198 31684	. . . . . . . 8 ⊢ (((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) ∧ 𝜒′) → ∃𝑓𝜏)
33	25, 32	bnj832 31646	. . . . . . 7 ⊢ ((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴 ∧ 𝜒′ ∧ 𝜂) → ∃𝑓𝜏)
34		bnj605.41	. . . . . . . . . . . . 13 ⊢ ((𝑅 FrSe 𝐴 ∧ 𝜏 ∧ 𝜂) → 𝑓 Fn 𝑛)
35		bnj605.42	. . . . . . . . . . . . 13 ⊢ ((𝑅 FrSe 𝐴 ∧ 𝜏 ∧ 𝜂) → 𝜑″)
36		bnj605.43	. . . . . . . . . . . . 13 ⊢ ((𝑅 FrSe 𝐴 ∧ 𝜏 ∧ 𝜂) → 𝜓″)
37	34, 35, 36	3jca 1121	. . . . . . . . . . . 12 ⊢ ((𝑅 FrSe 𝐴 ∧ 𝜏 ∧ 𝜂) → (𝑓 Fn 𝑛 ∧ 𝜑″ ∧ 𝜓″))
38	37	3com23 1119	. . . . . . . . . . 11 ⊢ ((𝑅 FrSe 𝐴 ∧ 𝜂 ∧ 𝜏) → (𝑓 Fn 𝑛 ∧ 𝜑″ ∧ 𝜓″))
39	38	3expia 1114	. . . . . . . . . 10 ⊢ ((𝑅 FrSe 𝐴 ∧ 𝜂) → (𝜏 → (𝑓 Fn 𝑛 ∧ 𝜑″ ∧ 𝜓″)))
40	39	eximdv 1895	. . . . . . . . 9 ⊢ ((𝑅 FrSe 𝐴 ∧ 𝜂) → (∃𝑓𝜏 → ∃𝑓(𝑓 Fn 𝑛 ∧ 𝜑″ ∧ 𝜓″)))
41	40	ad4ant14 748	. . . . . . . 8 ⊢ ((((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) ∧ 𝜒′) ∧ 𝜂) → (∃𝑓𝜏 → ∃𝑓(𝑓 Fn 𝑛 ∧ 𝜑″ ∧ 𝜓″)))
42	25, 41	sylbi 218	. . . . . . 7 ⊢ ((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴 ∧ 𝜒′ ∧ 𝜂) → (∃𝑓𝜏 → ∃𝑓(𝑓 Fn 𝑛 ∧ 𝜑″ ∧ 𝜓″)))
43	33, 42	mpd 15	. . . . . 6 ⊢ ((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴 ∧ 𝜒′ ∧ 𝜂) → ∃𝑓(𝑓 Fn 𝑛 ∧ 𝜑″ ∧ 𝜓″))
44		bnj432 31603	. . . . . 6 ⊢ ((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴 ∧ 𝜒′ ∧ 𝜂) ↔ ((𝜒′ ∧ 𝜂) ∧ (𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴)))
45		biid 262	. . . . . . . 8 ⊢ (𝑓 Fn 𝑛 ↔ 𝑓 Fn 𝑛)
46		bnj605.13	. . . . . . . . 9 ⊢ (𝜑″ ↔ [𝑓 / 𝑓]𝜑)
47		sbcid 3723	. . . . . . . . 9 ⊢ ([𝑓 / 𝑓]𝜑 ↔ 𝜑)
48	46, 47	bitri 276	. . . . . . . 8 ⊢ (𝜑″ ↔ 𝜑)
49		bnj605.14	. . . . . . . . 9 ⊢ (𝜓″ ↔ [𝑓 / 𝑓]𝜓)
50		sbcid 3723	. . . . . . . . 9 ⊢ ([𝑓 / 𝑓]𝜓 ↔ 𝜓)
51	49, 50	bitri 276	. . . . . . . 8 ⊢ (𝜓″ ↔ 𝜓)
52	45, 48, 51	3anbi123i 1148	. . . . . . 7 ⊢ ((𝑓 Fn 𝑛 ∧ 𝜑″ ∧ 𝜓″) ↔ (𝑓 Fn 𝑛 ∧ 𝜑 ∧ 𝜓))
53	52	exbii 1829	. . . . . 6 ⊢ (∃𝑓(𝑓 Fn 𝑛 ∧ 𝜑″ ∧ 𝜓″) ↔ ∃𝑓(𝑓 Fn 𝑛 ∧ 𝜑 ∧ 𝜓))
54	43, 44, 53	3imtr3i 292	. . . . 5 ⊢ (((𝜒′ ∧ 𝜂) ∧ (𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴)) → ∃𝑓(𝑓 Fn 𝑛 ∧ 𝜑 ∧ 𝜓))
55	54	ex 413	. . . 4 ⊢ ((𝜒′ ∧ 𝜂) → ((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → ∃𝑓(𝑓 Fn 𝑛 ∧ 𝜑 ∧ 𝜓)))
56	55	exlimivv 1910	. . 3 ⊢ (∃𝑚∃𝑝(𝜒′ ∧ 𝜂) → ((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → ∃𝑓(𝑓 Fn 𝑛 ∧ 𝜑 ∧ 𝜓)))
57	11, 24, 56	3syl 18	. 2 ⊢ (((𝑛 ≠ 1o ∧ 𝑛 ∈ 𝐷) ∧ 𝜃) → ((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → ∃𝑓(𝑓 Fn 𝑛 ∧ 𝜑 ∧ 𝜓)))
58	57	3impa 1103	1 ⊢ ((𝑛 ≠ 1o ∧ 𝑛 ∈ 𝐷 ∧ 𝜃) → ((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → ∃𝑓(𝑓 Fn 𝑛 ∧ 𝜑 ∧ 𝜓)))

Syntax hints:   → wi 4   ↔ wb 207   ∧ wa 396   ∧ w3a 1080   = wceq 1522  ∃wex 1761   ∈ wcel 2081  ∃!weu 2611   ≠ wne 2984  ∀wral 3105  Vcvv 3437  [wsbc 3706  ∅c0 4211  ∪ ciun 4825   class class class wbr 4962   E cep 5352  suc csuc 6068   Fn wfn 6220  ‘cfv 6225  ωcom 7436  1_oc1o 7946   ∧ w-bnj17 31573   predc-bnj14 31575   FrSe w-bnj15 31579

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1777  ax-4 1791  ax-5 1888  ax-6 1947  ax-7 1992  ax-8 2083  ax-9 2091  ax-10 2112  ax-11 2126  ax-12 2141  ax-13 2344  ax-ext 2769  ax-sep 5094  ax-nul 5101  ax-pr 5221

This theorem depends on definitions:  df-bi 208  df-an 397  df-or 843  df-3an 1082  df-tru 1525  df-ex 1762  df-nf 1766  df-sb 2043  df-mo 2576  df-eu 2612  df-clab 2776  df-cleq 2788  df-clel 2863  df-nfc 2935  df-ne 2985  df-ral 3110  df-rab 3114  df-v 3439  df-sbc 3707  df-dif 3862  df-un 3864  df-in 3866  df-ss 3874  df-nul 4212  df-if 4382  df-sn 4473  df-pr 4475  df-op 4479  df-br 4963  df-opab 5025  df-eprel 5353  df-suc 6072  df-bnj17 31574

This theorem is referenced by: (None)