Theorem bnj580 35543

Description: Technical lemma for bnj579 35544. 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
bnj580.1	⊢ (𝜑 ↔ (𝑓‘∅) = pred(𝑥, 𝐴, 𝑅))
bnj580.2	⊢ (𝜓 ↔ ∀𝑖 ∈ ω (suc 𝑖 ∈ 𝑛 → (𝑓‘suc 𝑖) = ∪ 𝑦 ∈ (𝑓‘𝑖) pred(𝑦, 𝐴, 𝑅)))
bnj580.3	⊢ (𝜒 ↔ (𝑓 Fn 𝑛 ∧ 𝜑 ∧ 𝜓))
bnj580.4	⊢ (𝜑′ ↔ [𝑔 / 𝑓]𝜑)
bnj580.5	⊢ (𝜓′ ↔ [𝑔 / 𝑓]𝜓)
bnj580.6	⊢ (𝜒′ ↔ [𝑔 / 𝑓]𝜒)
bnj580.7	⊢ 𝐷 = (ω ∖ {∅})
bnj580.8	⊢ (𝜃 ↔ ((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) → (𝑓‘𝑗) = (𝑔‘𝑗)))
bnj580.9	⊢ (𝜏 ↔ ∀𝑘 ∈ 𝑛 (𝑘 E 𝑗 → [𝑘 / 𝑗]𝜃))

Assertion

Ref	Expression
bnj580	⊢ (𝑛 ∈ 𝐷 → ∃*𝑓𝜒)

Distinct variable groups:   𝐴,𝑓,𝑖,𝑘   𝐷,𝑓,𝑔,𝑗,𝑘   𝑅,𝑓,𝑖,𝑘   𝜒,𝑔,𝑗,𝑘   𝑗,𝜒′,𝑘   𝑓,𝑛   𝑔,𝑖,𝑛,𝑘   𝑥,𝑓   𝑦,𝑓,𝑔,𝑖,𝑘   𝑗,𝑛   𝜃,𝑘

Allowed substitution hints:   𝜑(𝑥, 𝑦, 𝑓, 𝑔, 𝑖, 𝑗, 𝑘, 𝑛)   𝜓(𝑥, 𝑦, 𝑓, 𝑔, 𝑖, 𝑗, 𝑘, 𝑛)   𝜒(𝑥, 𝑦, 𝑓, 𝑖, 𝑛)   𝜃(𝑥, 𝑦, 𝑓, 𝑔, 𝑖, 𝑗, 𝑛)   𝜏(𝑥, 𝑦, 𝑓, 𝑔, 𝑖, 𝑗, 𝑘, 𝑛)   𝐴(𝑥, 𝑦, 𝑔, 𝑗, 𝑛)   𝐷(𝑥, 𝑦, 𝑖, 𝑛)   𝑅(𝑥, 𝑦, 𝑔, 𝑗, 𝑛)   𝜑′(𝑥, 𝑦, 𝑓, 𝑔, 𝑖, 𝑗, 𝑘, 𝑛)   𝜓′(𝑥, 𝑦, 𝑓, 𝑔, 𝑖, 𝑗, 𝑘, 𝑛)   𝜒′(𝑥, 𝑦, 𝑓, 𝑔, 𝑖, 𝑛)

Proof of Theorem bnj580

Step	Hyp	Ref	Expression
1		bnj580.3	. . . . . . 7 ⊢ (𝜒 ↔ (𝑓 Fn 𝑛 ∧ 𝜑 ∧ 𝜓))
2	1	simp1bi 1163	. . . . . 6 ⊢ (𝜒 → 𝑓 Fn 𝑛)
3		bnj580.4	. . . . . . . 8 ⊢ (𝜑′ ↔ [𝑔 / 𝑓]𝜑)
4		bnj580.5	. . . . . . . 8 ⊢ (𝜓′ ↔ [𝑔 / 𝑓]𝜓)
5		bnj580.6	. . . . . . . 8 ⊢ (𝜒′ ↔ [𝑔 / 𝑓]𝜒)
6	1, 3, 4, 5	bnj581 35538	. . . . . . 7 ⊢ (𝜒′ ↔ (𝑔 Fn 𝑛 ∧ 𝜑′ ∧ 𝜓′))
7	6	simp1bi 1163	. . . . . 6 ⊢ (𝜒′ → 𝑔 Fn 𝑛)
8	2, 7	bnj240 35330	. . . . 5 ⊢ ((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) → (𝑓 Fn 𝑛 ∧ 𝑔 Fn 𝑛))
9		bnj580.1	. . . . . . . . . . . . 13 ⊢ (𝜑 ↔ (𝑓‘∅) = pred(𝑥, 𝐴, 𝑅))
10		bnj580.2	. . . . . . . . . . . . 13 ⊢ (𝜓 ↔ ∀𝑖 ∈ ω (suc 𝑖 ∈ 𝑛 → (𝑓‘suc 𝑖) = ∪ 𝑦 ∈ (𝑓‘𝑖) pred(𝑦, 𝐴, 𝑅)))
11		bnj580.7	. . . . . . . . . . . . 13 ⊢ 𝐷 = (ω ∖ {∅})
12	3, 9	bnj154 35508	. . . . . . . . . . . . 13 ⊢ (𝜑′ ↔ (𝑔‘∅) = pred(𝑥, 𝐴, 𝑅))
13		vex 3454	. . . . . . . . . . . . . 14 ⊢ 𝑔 ∈ V
14	10, 4, 13	bnj540 35522	. . . . . . . . . . . . 13 ⊢ (𝜓′ ↔ ∀𝑖 ∈ ω (suc 𝑖 ∈ 𝑛 → (𝑔‘suc 𝑖) = ∪ 𝑦 ∈ (𝑔‘𝑖) pred(𝑦, 𝐴, 𝑅)))
15		bnj580.8	. . . . . . . . . . . . 13 ⊢ (𝜃 ↔ ((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) → (𝑓‘𝑗) = (𝑔‘𝑗)))
16	15	bnj591 35541	. . . . . . . . . . . . 13 ⊢ ([𝑘 / 𝑗]𝜃 ↔ ((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) → (𝑓‘𝑘) = (𝑔‘𝑘)))
17		bnj580.9	. . . . . . . . . . . . 13 ⊢ (𝜏 ↔ ∀𝑘 ∈ 𝑛 (𝑘 E 𝑗 → [𝑘 / 𝑗]𝜃))
18	9, 10, 1, 11, 12, 14, 6, 15, 16, 17	bnj594 35542	. . . . . . . . . . . 12 ⊢ ((𝑗 ∈ 𝑛 ∧ 𝜏) → 𝜃)
19	18	ex 418	. . . . . . . . . . 11 ⊢ (𝑗 ∈ 𝑛 → (𝜏 → 𝜃))
20	19	rgen 3078	. . . . . . . . . 10 ⊢ ∀𝑗 ∈ 𝑛 (𝜏 → 𝜃)
21		vex 3454	. . . . . . . . . . 11 ⊢ 𝑛 ∈ V
22	21, 17	bnj110 35488	. . . . . . . . . 10 ⊢ (( E Fr 𝑛 ∧ ∀𝑗 ∈ 𝑛 (𝜏 → 𝜃)) → ∀𝑗 ∈ 𝑛 𝜃)
23	20, 22	mpan2 704	. . . . . . . . 9 ⊢ ( E Fr 𝑛 → ∀𝑗 ∈ 𝑛 𝜃)
24	15	ralbii 3108	. . . . . . . . 9 ⊢ (∀𝑗 ∈ 𝑛 𝜃 ↔ ∀𝑗 ∈ 𝑛 ((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) → (𝑓‘𝑗) = (𝑔‘𝑗)))
25	23, 24	sylib 221	. . . . . . . 8 ⊢ ( E Fr 𝑛 → ∀𝑗 ∈ 𝑛 ((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) → (𝑓‘𝑗) = (𝑔‘𝑗)))
26	25	r19.21be 3255	. . . . . . 7 ⊢ ∀𝑗 ∈ 𝑛 ( E Fr 𝑛 → ((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) → (𝑓‘𝑗) = (𝑔‘𝑗)))
27	11	bnj923 35399	. . . . . . . . . . . . 13 ⊢ (𝑛 ∈ 𝐷 → 𝑛 ∈ ω)
28		nnord 7885	. . . . . . . . . . . . 13 ⊢ (𝑛 ∈ ω → Ord 𝑛)
29		ordfr 6377	. . . . . . . . . . . . 13 ⊢ (Ord 𝑛 → E Fr 𝑛)
30	27, 28, 29	3syl 19	. . . . . . . . . . . 12 ⊢ (𝑛 ∈ 𝐷 → E Fr 𝑛)
31	30	3ad2ant1 1151	. . . . . . . . . . 11 ⊢ ((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) → E Fr 𝑛)
32	31	pm4.71ri 570	. . . . . . . . . 10 ⊢ ((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) ↔ ( E Fr 𝑛 ∧ (𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′)))
33	32	imbi1i 352	. . . . . . . . 9 ⊢ (((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) → (𝑓‘𝑗) = (𝑔‘𝑗)) ↔ (( E Fr 𝑛 ∧ (𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′)) → (𝑓‘𝑗) = (𝑔‘𝑗)))
34		impexp 456	. . . . . . . . 9 ⊢ ((( E Fr 𝑛 ∧ (𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′)) → (𝑓‘𝑗) = (𝑔‘𝑗)) ↔ ( E Fr 𝑛 → ((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) → (𝑓‘𝑗) = (𝑔‘𝑗))))
35	33, 34	bitri 278	. . . . . . . 8 ⊢ (((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) → (𝑓‘𝑗) = (𝑔‘𝑗)) ↔ ( E Fr 𝑛 → ((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) → (𝑓‘𝑗) = (𝑔‘𝑗))))
36	35	ralbii 3108	. . . . . . 7 ⊢ (∀𝑗 ∈ 𝑛 ((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) → (𝑓‘𝑗) = (𝑔‘𝑗)) ↔ ∀𝑗 ∈ 𝑛 ( E Fr 𝑛 → ((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) → (𝑓‘𝑗) = (𝑔‘𝑗))))
37	26, 36	mpbir 234	. . . . . 6 ⊢ ∀𝑗 ∈ 𝑛 ((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) → (𝑓‘𝑗) = (𝑔‘𝑗))
38		r19.21v 3187	. . . . . 6 ⊢ (∀𝑗 ∈ 𝑛 ((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) → (𝑓‘𝑗) = (𝑔‘𝑗)) ↔ ((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) → ∀𝑗 ∈ 𝑛 (𝑓‘𝑗) = (𝑔‘𝑗)))
39	37, 38	mpbi 233	. . . . 5 ⊢ ((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) → ∀𝑗 ∈ 𝑛 (𝑓‘𝑗) = (𝑔‘𝑗))
40		eqfnfv 7029	. . . . . 6 ⊢ ((𝑓 Fn 𝑛 ∧ 𝑔 Fn 𝑛) → (𝑓 = 𝑔 ↔ ∀𝑗 ∈ 𝑛 (𝑓‘𝑗) = (𝑔‘𝑗)))
41	40	biimprd 251	. . . . 5 ⊢ ((𝑓 Fn 𝑛 ∧ 𝑔 Fn 𝑛) → (∀𝑗 ∈ 𝑛 (𝑓‘𝑗) = (𝑔‘𝑗) → 𝑓 = 𝑔))
42	8, 39, 41	sylc 66	. . . 4 ⊢ ((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) → 𝑓 = 𝑔)
43	42	3expib 1140	. . 3 ⊢ (𝑛 ∈ 𝐷 → ((𝜒 ∧ 𝜒′) → 𝑓 = 𝑔))
44	43	alrimivv 1960	. 2 ⊢ (𝑛 ∈ 𝐷 → ∀𝑓∀𝑔((𝜒 ∧ 𝜒′) → 𝑓 = 𝑔))
45		sbsbc 3742	. . . . . 6 ⊢ ([𝑔 / 𝑓]𝜒 ↔ [𝑔 / 𝑓]𝜒)
46	45	anbi2i 635	. . . . 5 ⊢ ((𝜒 ∧ [𝑔 / 𝑓]𝜒) ↔ (𝜒 ∧ [𝑔 / 𝑓]𝜒))
47	46	imbi1i 352	. . . 4 ⊢ (((𝜒 ∧ [𝑔 / 𝑓]𝜒) → 𝑓 = 𝑔) ↔ ((𝜒 ∧ [𝑔 / 𝑓]𝜒) → 𝑓 = 𝑔))
48	47	2albii 1852	. . 3 ⊢ (∀𝑓∀𝑔((𝜒 ∧ [𝑔 / 𝑓]𝜒) → 𝑓 = 𝑔) ↔ ∀𝑓∀𝑔((𝜒 ∧ [𝑔 / 𝑓]𝜒) → 𝑓 = 𝑔))
49		nfv 1946	. . . 4 ⊢ Ⅎ𝑔𝜒
50	49	mo3 2589	. . 3 ⊢ (∃*𝑓𝜒 ↔ ∀𝑓∀𝑔((𝜒 ∧ [𝑔 / 𝑓]𝜒) → 𝑓 = 𝑔))
51	5	anbi2i 635	. . . . 5 ⊢ ((𝜒 ∧ 𝜒′) ↔ (𝜒 ∧ [𝑔 / 𝑓]𝜒))
52	51	imbi1i 352	. . . 4 ⊢ (((𝜒 ∧ 𝜒′) → 𝑓 = 𝑔) ↔ ((𝜒 ∧ [𝑔 / 𝑓]𝜒) → 𝑓 = 𝑔))
53	52	2albii 1852	. . 3 ⊢ (∀𝑓∀𝑔((𝜒 ∧ 𝜒′) → 𝑓 = 𝑔) ↔ ∀𝑓∀𝑔((𝜒 ∧ [𝑔 / 𝑓]𝜒) → 𝑓 = 𝑔))
54	48, 50, 53	3bitr4i 306	. 2 ⊢ (∃*𝑓𝜒 ↔ ∀𝑓∀𝑔((𝜒 ∧ 𝜒′) → 𝑓 = 𝑔))
55	44, 54	sylibr 237	1 ⊢ (𝑛 ∈ 𝐷 → ∃*𝑓𝜒)

This proof depends on syntax axioms:   → wi 4   ↔ wb 209   ∧ wa 401   ∧ w3a 1103  ∀wal 1567   = wceq 1569  [wsb 2098   ∈ wcel 2144  ∃*wmo 2562  ∀wral 3076  [wsbc 3738   ∖ cdif 4045  ∅c0 4278  {csn 4583  ∪ ciun 4950   class class class wbr 5102   E cep 5549   Fr wfr 5600  Ord word 6361  suc csuc 6364   Fn wfn 6533  ‘cfv 6538  ωcom 7877   predc-bnj14 35319

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-nul 5259  ax-pr 5390  ax-un 7751

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1572  df-fal 1582  df-ex 1812  df-nf 1816  df-sb 2099  df-mo 2564  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-csb 3847  df-ss 3896  df-pss 4014  df-dif 4047  df-in 4091  df-un 4151  df-nul 4279  df-if 4482  df-pw 4558  df-sn 4584  df-pr 4586  df-op 4590  df-uni 4867  df-iun 4952  df-br 5103  df-opab 5167  df-mpt 5186  df-tr 5212  df-id 5545  df-eprel 5550  df-po 5558  df-so 5559  df-fr 5603  df-we 5605  df-xp 5656  df-rel 5657  df-cnv 5658  df-co 5659  df-dm 5660  df-rn 5661  df-res 5662  df-ima 5663  df-ord 6365  df-on 6366  df-lim 6367  df-suc 6368  df-iota 6494  df-fun 6540  df-fn 6541  df-fv 6546  df-om 7878  df-bnj17 35318

This theorem is used by:  bnj579  35544