Theorem bnj605 32600

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 618	. . . 4 ⊢ (((𝑛 ≠ 1o ∧ 𝑛 ∈ 𝐷) ∧ 𝜃) → (∃𝑚∃𝑝𝜂 ∧ 𝜃))
3		nfv 1922	. . . . . . 7 ⊢ Ⅎ𝑝𝜃
4	3	19.41 2233	. . . . . 6 ⊢ (∃𝑝(𝜂 ∧ 𝜃) ↔ (∃𝑝𝜂 ∧ 𝜃))
5	4	exbii 1855	. . . . 5 ⊢ (∃𝑚∃𝑝(𝜂 ∧ 𝜃) ↔ ∃𝑚(∃𝑝𝜂 ∧ 𝜃))
6		bnj605.5	. . . . . . . 8 ⊢ (𝜃 ↔ ∀𝑚 ∈ 𝐷 (𝑚 E 𝑛 → [𝑚 / 𝑛]𝜒))
7	6	bnj1095 32474	. . . . . . 7 ⊢ (𝜃 → ∀𝑚𝜃)
8	7	nf5i 2146	. . . . . 6 ⊢ Ⅎ𝑚𝜃
9	8	19.41 2233	. . . . 5 ⊢ (∃𝑚(∃𝑝𝜂 ∧ 𝜃) ↔ (∃𝑚∃𝑝𝜂 ∧ 𝜃))
10	5, 9	bitr2i 279	. . . 4 ⊢ ((∃𝑚∃𝑝𝜂 ∧ 𝜃) ↔ ∃𝑚∃𝑝(𝜂 ∧ 𝜃))
11	2, 10	sylib 221	. . 3 ⊢ (((𝑛 ≠ 1o ∧ 𝑛 ∈ 𝐷) ∧ 𝜃) → ∃𝑚∃𝑝(𝜂 ∧ 𝜃))
12		bnj605.19	. . . . . . . . . 10 ⊢ (𝜂 ↔ (𝑚 ∈ 𝐷 ∧ 𝑛 = suc 𝑚 ∧ 𝑝 ∈ ω ∧ 𝑚 = suc 𝑝))
13	12	bnj1232 32496	. . . . . . . . 9 ⊢ (𝜂 → 𝑚 ∈ 𝐷)
14		bnj219 32424	. . . . . . . . . 10 ⊢ (𝑛 = suc 𝑚 → 𝑚 E 𝑛)
15	12, 14	bnj770 32455	. . . . . . . . 9 ⊢ (𝜂 → 𝑚 E 𝑛)
16	13, 15	jca 515	. . . . . . . 8 ⊢ (𝜂 → (𝑚 ∈ 𝐷 ∧ 𝑚 E 𝑛))
17	16	anim1i 618	. . . . . . 7 ⊢ ((𝜂 ∧ 𝜃) → ((𝑚 ∈ 𝐷 ∧ 𝑚 E 𝑛) ∧ 𝜃))
18		bnj170 32389	. . . . . . 7 ⊢ ((𝜃 ∧ 𝑚 ∈ 𝐷 ∧ 𝑚 E 𝑛) ↔ ((𝑚 ∈ 𝐷 ∧ 𝑚 E 𝑛) ∧ 𝜃))
19	17, 18	sylibr 237	. . . . . 6 ⊢ ((𝜂 ∧ 𝜃) → (𝜃 ∧ 𝑚 ∈ 𝐷 ∧ 𝑚 E 𝑛))
20		bnj605.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		bnj248 32391	. . . . . . . 8 ⊢ ((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴 ∧ 𝜒′ ∧ 𝜂) ↔ (((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) ∧ 𝜒′) ∧ 𝜂))
26		bnj605.31	. . . . . . . . . . 11 ⊢ (𝜒′ ↔ ((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → ∃!𝑓(𝑓 Fn 𝑚 ∧ 𝜑′ ∧ 𝜓′)))
27		pm3.35 803	. . . . . . . . . . 11 ⊢ (((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) ∧ ((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → ∃!𝑓(𝑓 Fn 𝑚 ∧ 𝜑′ ∧ 𝜓′))) → ∃!𝑓(𝑓 Fn 𝑚 ∧ 𝜑′ ∧ 𝜓′))
28	26, 27	sylan2b 597	. . . . . . . . . 10 ⊢ (((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) ∧ 𝜒′) → ∃!𝑓(𝑓 Fn 𝑚 ∧ 𝜑′ ∧ 𝜓′))
29		euex 2576	. . . . . . . . . 10 ⊢ (∃!𝑓(𝑓 Fn 𝑚 ∧ 𝜑′ ∧ 𝜓′) → ∃𝑓(𝑓 Fn 𝑚 ∧ 𝜑′ ∧ 𝜓′))
30	28, 29	syl 17	. . . . . . . . 9 ⊢ (((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) ∧ 𝜒′) → ∃𝑓(𝑓 Fn 𝑚 ∧ 𝜑′ ∧ 𝜓′))
31		bnj605.17	. . . . . . . . 9 ⊢ (𝜏 ↔ (𝑓 Fn 𝑚 ∧ 𝜑′ ∧ 𝜓′))
32	30, 31	bnj1198 32488	. . . . . . . 8 ⊢ (((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) ∧ 𝜒′) → ∃𝑓𝜏)
33	25, 32	bnj832 32450	. . . . . . 7 ⊢ ((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴 ∧ 𝜒′ ∧ 𝜂) → ∃𝑓𝜏)
34		bnj605.41	. . . . . . . . . . . . 13 ⊢ ((𝑅 FrSe 𝐴 ∧ 𝜏 ∧ 𝜂) → 𝑓 Fn 𝑛)
35		bnj605.42	. . . . . . . . . . . . 13 ⊢ ((𝑅 FrSe 𝐴 ∧ 𝜏 ∧ 𝜂) → 𝜑″)
36		bnj605.43	. . . . . . . . . . . . 13 ⊢ ((𝑅 FrSe 𝐴 ∧ 𝜏 ∧ 𝜂) → 𝜓″)
37	34, 35, 36	3jca 1130	. . . . . . . . . . . 12 ⊢ ((𝑅 FrSe 𝐴 ∧ 𝜏 ∧ 𝜂) → (𝑓 Fn 𝑛 ∧ 𝜑″ ∧ 𝜓″))
38	37	3com23 1128	. . . . . . . . . . 11 ⊢ ((𝑅 FrSe 𝐴 ∧ 𝜂 ∧ 𝜏) → (𝑓 Fn 𝑛 ∧ 𝜑″ ∧ 𝜓″))
39	38	3expia 1123	. . . . . . . . . 10 ⊢ ((𝑅 FrSe 𝐴 ∧ 𝜂) → (𝜏 → (𝑓 Fn 𝑛 ∧ 𝜑″ ∧ 𝜓″)))
40	39	eximdv 1925	. . . . . . . . 9 ⊢ ((𝑅 FrSe 𝐴 ∧ 𝜂) → (∃𝑓𝜏 → ∃𝑓(𝑓 Fn 𝑛 ∧ 𝜑″ ∧ 𝜓″)))
41	40	ad4ant14 752	. . . . . . . 8 ⊢ ((((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) ∧ 𝜒′) ∧ 𝜂) → (∃𝑓𝜏 → ∃𝑓(𝑓 Fn 𝑛 ∧ 𝜑″ ∧ 𝜓″)))
42	25, 41	sylbi 220	. . . . . . 7 ⊢ ((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴 ∧ 𝜒′ ∧ 𝜂) → (∃𝑓𝜏 → ∃𝑓(𝑓 Fn 𝑛 ∧ 𝜑″ ∧ 𝜓″)))
43	33, 42	mpd 15	. . . . . 6 ⊢ ((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴 ∧ 𝜒′ ∧ 𝜂) → ∃𝑓(𝑓 Fn 𝑛 ∧ 𝜑″ ∧ 𝜓″))
44		bnj432 32407	. . . . . 6 ⊢ ((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴 ∧ 𝜒′ ∧ 𝜂) ↔ ((𝜒′ ∧ 𝜂) ∧ (𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴)))
45		biid 264	. . . . . . . 8 ⊢ (𝑓 Fn 𝑛 ↔ 𝑓 Fn 𝑛)
46		bnj605.13	. . . . . . . . 9 ⊢ (𝜑″ ↔ [𝑓 / 𝑓]𝜑)
47		sbcid 3711	. . . . . . . . 9 ⊢ ([𝑓 / 𝑓]𝜑 ↔ 𝜑)
48	46, 47	bitri 278	. . . . . . . 8 ⊢ (𝜑″ ↔ 𝜑)
49		bnj605.14	. . . . . . . . 9 ⊢ (𝜓″ ↔ [𝑓 / 𝑓]𝜓)
50		sbcid 3711	. . . . . . . . 9 ⊢ ([𝑓 / 𝑓]𝜓 ↔ 𝜓)
51	49, 50	bitri 278	. . . . . . . 8 ⊢ (𝜓″ ↔ 𝜓)
52	45, 48, 51	3anbi123i 1157	. . . . . . 7 ⊢ ((𝑓 Fn 𝑛 ∧ 𝜑″ ∧ 𝜓″) ↔ (𝑓 Fn 𝑛 ∧ 𝜑 ∧ 𝜓))
53	52	exbii 1855	. . . . . 6 ⊢ (∃𝑓(𝑓 Fn 𝑛 ∧ 𝜑″ ∧ 𝜓″) ↔ ∃𝑓(𝑓 Fn 𝑛 ∧ 𝜑 ∧ 𝜓))
54	43, 44, 53	3imtr3i 294	. . . . 5 ⊢ (((𝜒′ ∧ 𝜂) ∧ (𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴)) → ∃𝑓(𝑓 Fn 𝑛 ∧ 𝜑 ∧ 𝜓))
55	54	ex 416	. . . 4 ⊢ ((𝜒′ ∧ 𝜂) → ((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → ∃𝑓(𝑓 Fn 𝑛 ∧ 𝜑 ∧ 𝜓)))
56	55	exlimivv 1940	. . 3 ⊢ (∃𝑚∃𝑝(𝜒′ ∧ 𝜂) → ((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → ∃𝑓(𝑓 Fn 𝑛 ∧ 𝜑 ∧ 𝜓)))
57	11, 24, 56	3syl 18	. 2 ⊢ (((𝑛 ≠ 1o ∧ 𝑛 ∈ 𝐷) ∧ 𝜃) → ((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → ∃𝑓(𝑓 Fn 𝑛 ∧ 𝜑 ∧ 𝜓)))
58	57	3impa 1112	1 ⊢ ((𝑛 ≠ 1o ∧ 𝑛 ∈ 𝐷 ∧ 𝜃) → ((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → ∃𝑓(𝑓 Fn 𝑛 ∧ 𝜑 ∧ 𝜓)))

Syntax hints:   → wi 4   ↔ wb 209   ∧ wa 399   ∧ w3a 1089   = wceq 1543  ∃wex 1787   ∈ wcel 2110  ∃!weu 2567   ≠ wne 2940  ∀wral 3061  Vcvv 3408  [wsbc 3694  ∅c0 4237  ∪ ciun 4904   class class class wbr 5053   E cep 5459  suc csuc 6215   Fn wfn 6375  ‘cfv 6380  ωcom 7644  1_oc1o 8195   ∧ w-bnj17 32377   predc-bnj14 32379   FrSe w-bnj15 32383

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 2016  ax-8 2112  ax-9 2120  ax-10 2141  ax-12 2175  ax-ext 2708  ax-sep 5192  ax-nul 5199  ax-pr 5322

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 2071  df-eu 2568  df-clab 2715  df-cleq 2729  df-clel 2816  df-ne 2941  df-ral 3066  df-rab 3070  df-v 3410  df-sbc 3695  df-dif 3869  df-un 3871  df-nul 4238  df-if 4440  df-sn 4542  df-pr 4544  df-op 4548  df-br 5054  df-opab 5116  df-eprel 5460  df-suc 6219  df-bnj17 32378

This theorem is referenced by: (None)