Theorem bnj580 32893

Description: Technical lemma for bnj579 32894. 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 1144	. . . . . 6 ⊢ (𝜒 → 𝑓 Fn 𝑛)
3		bnj580.4	. . . . . . . 8 ⊢ (𝜑′ ↔ [𝑔 / 𝑓]𝜑)
4		bnj580.5	. . . . . . . 8 ⊢ (𝜓′ ↔ [𝑔 / 𝑓]𝜓)
5		bnj580.6	. . . . . . . 8 ⊢ (𝜒′ ↔ [𝑔 / 𝑓]𝜒)
6	1, 3, 4, 5	bnj581 32888	. . . . . . 7 ⊢ (𝜒′ ↔ (𝑔 Fn 𝑛 ∧ 𝜑′ ∧ 𝜓′))
7	6	simp1bi 1144	. . . . . 6 ⊢ (𝜒′ → 𝑔 Fn 𝑛)
8	2, 7	bnj240 32678	. . . . 5 ⊢ ((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) → (𝑓 Fn 𝑛 ∧ 𝑔 Fn 𝑛))
9		bnj580.1	. . . . . . . . . . . . 13 ⊢ (𝜑 ↔ (𝑓‘∅) = pred(𝑥, 𝐴, 𝑅))
10		bnj580.2	. . . . . . . . . . . . 13 ⊢ (𝜓 ↔ ∀𝑖 ∈ ω (suc 𝑖 ∈ 𝑛 → (𝑓‘suc 𝑖) = ∪ 𝑦 ∈ (𝑓‘𝑖) pred(𝑦, 𝐴, 𝑅)))
11		bnj580.7	. . . . . . . . . . . . 13 ⊢ 𝐷 = (ω ∖ {∅})
12	3, 9	bnj154 32858	. . . . . . . . . . . . 13 ⊢ (𝜑′ ↔ (𝑔‘∅) = pred(𝑥, 𝐴, 𝑅))
13		vex 3436	. . . . . . . . . . . . . 14 ⊢ 𝑔 ∈ V
14	10, 4, 13	bnj540 32872	. . . . . . . . . . . . 13 ⊢ (𝜓′ ↔ ∀𝑖 ∈ ω (suc 𝑖 ∈ 𝑛 → (𝑔‘suc 𝑖) = ∪ 𝑦 ∈ (𝑔‘𝑖) pred(𝑦, 𝐴, 𝑅)))
15		bnj580.8	. . . . . . . . . . . . 13 ⊢ (𝜃 ↔ ((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) → (𝑓‘𝑗) = (𝑔‘𝑗)))
16	15	bnj591 32891	. . . . . . . . . . . . 13 ⊢ ([𝑘 / 𝑗]𝜃 ↔ ((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) → (𝑓‘𝑘) = (𝑔‘𝑘)))
17		bnj580.9	. . . . . . . . . . . . 13 ⊢ (𝜏 ↔ ∀𝑘 ∈ 𝑛 (𝑘 E 𝑗 → [𝑘 / 𝑗]𝜃))
18	9, 10, 1, 11, 12, 14, 6, 15, 16, 17	bnj594 32892	. . . . . . . . . . . 12 ⊢ ((𝑗 ∈ 𝑛 ∧ 𝜏) → 𝜃)
19	18	ex 413	. . . . . . . . . . 11 ⊢ (𝑗 ∈ 𝑛 → (𝜏 → 𝜃))
20	19	rgen 3074	. . . . . . . . . 10 ⊢ ∀𝑗 ∈ 𝑛 (𝜏 → 𝜃)
21		vex 3436	. . . . . . . . . . 11 ⊢ 𝑛 ∈ V
22	21, 17	bnj110 32838	. . . . . . . . . 10 ⊢ (( E Fr 𝑛 ∧ ∀𝑗 ∈ 𝑛 (𝜏 → 𝜃)) → ∀𝑗 ∈ 𝑛 𝜃)
23	20, 22	mpan2 688	. . . . . . . . 9 ⊢ ( E Fr 𝑛 → ∀𝑗 ∈ 𝑛 𝜃)
24	15	ralbii 3092	. . . . . . . . 9 ⊢ (∀𝑗 ∈ 𝑛 𝜃 ↔ ∀𝑗 ∈ 𝑛 ((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) → (𝑓‘𝑗) = (𝑔‘𝑗)))
25	23, 24	sylib 217	. . . . . . . 8 ⊢ ( E Fr 𝑛 → ∀𝑗 ∈ 𝑛 ((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) → (𝑓‘𝑗) = (𝑔‘𝑗)))
26	25	r19.21be 3135	. . . . . . 7 ⊢ ∀𝑗 ∈ 𝑛 ( E Fr 𝑛 → ((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) → (𝑓‘𝑗) = (𝑔‘𝑗)))
27	11	bnj923 32748	. . . . . . . . . . . . 13 ⊢ (𝑛 ∈ 𝐷 → 𝑛 ∈ ω)
28		nnord 7720	. . . . . . . . . . . . 13 ⊢ (𝑛 ∈ ω → Ord 𝑛)
29		ordfr 6281	. . . . . . . . . . . . 13 ⊢ (Ord 𝑛 → E Fr 𝑛)
30	27, 28, 29	3syl 18	. . . . . . . . . . . 12 ⊢ (𝑛 ∈ 𝐷 → E Fr 𝑛)
31	30	3ad2ant1 1132	. . . . . . . . . . 11 ⊢ ((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) → E Fr 𝑛)
32	31	pm4.71ri 561	. . . . . . . . . 10 ⊢ ((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) ↔ ( E Fr 𝑛 ∧ (𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′)))
33	32	imbi1i 350	. . . . . . . . 9 ⊢ (((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) → (𝑓‘𝑗) = (𝑔‘𝑗)) ↔ (( E Fr 𝑛 ∧ (𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′)) → (𝑓‘𝑗) = (𝑔‘𝑗)))
34		impexp 451	. . . . . . . . 9 ⊢ ((( E Fr 𝑛 ∧ (𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′)) → (𝑓‘𝑗) = (𝑔‘𝑗)) ↔ ( E Fr 𝑛 → ((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) → (𝑓‘𝑗) = (𝑔‘𝑗))))
35	33, 34	bitri 274	. . . . . . . 8 ⊢ (((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) → (𝑓‘𝑗) = (𝑔‘𝑗)) ↔ ( E Fr 𝑛 → ((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) → (𝑓‘𝑗) = (𝑔‘𝑗))))
36	35	ralbii 3092	. . . . . . 7 ⊢ (∀𝑗 ∈ 𝑛 ((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) → (𝑓‘𝑗) = (𝑔‘𝑗)) ↔ ∀𝑗 ∈ 𝑛 ( E Fr 𝑛 → ((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) → (𝑓‘𝑗) = (𝑔‘𝑗))))
37	26, 36	mpbir 230	. . . . . 6 ⊢ ∀𝑗 ∈ 𝑛 ((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) → (𝑓‘𝑗) = (𝑔‘𝑗))
38		r19.21v 3113	. . . . . 6 ⊢ (∀𝑗 ∈ 𝑛 ((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) → (𝑓‘𝑗) = (𝑔‘𝑗)) ↔ ((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) → ∀𝑗 ∈ 𝑛 (𝑓‘𝑗) = (𝑔‘𝑗)))
39	37, 38	mpbi 229	. . . . 5 ⊢ ((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) → ∀𝑗 ∈ 𝑛 (𝑓‘𝑗) = (𝑔‘𝑗))
40		eqfnfv 6909	. . . . . 6 ⊢ ((𝑓 Fn 𝑛 ∧ 𝑔 Fn 𝑛) → (𝑓 = 𝑔 ↔ ∀𝑗 ∈ 𝑛 (𝑓‘𝑗) = (𝑔‘𝑗)))
41	40	biimprd 247	. . . . 5 ⊢ ((𝑓 Fn 𝑛 ∧ 𝑔 Fn 𝑛) → (∀𝑗 ∈ 𝑛 (𝑓‘𝑗) = (𝑔‘𝑗) → 𝑓 = 𝑔))
42	8, 39, 41	sylc 65	. . . 4 ⊢ ((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) → 𝑓 = 𝑔)
43	42	3expib 1121	. . 3 ⊢ (𝑛 ∈ 𝐷 → ((𝜒 ∧ 𝜒′) → 𝑓 = 𝑔))
44	43	alrimivv 1931	. 2 ⊢ (𝑛 ∈ 𝐷 → ∀𝑓∀𝑔((𝜒 ∧ 𝜒′) → 𝑓 = 𝑔))
45		sbsbc 3720	. . . . . 6 ⊢ ([𝑔 / 𝑓]𝜒 ↔ [𝑔 / 𝑓]𝜒)
46	45	anbi2i 623	. . . . 5 ⊢ ((𝜒 ∧ [𝑔 / 𝑓]𝜒) ↔ (𝜒 ∧ [𝑔 / 𝑓]𝜒))
47	46	imbi1i 350	. . . 4 ⊢ (((𝜒 ∧ [𝑔 / 𝑓]𝜒) → 𝑓 = 𝑔) ↔ ((𝜒 ∧ [𝑔 / 𝑓]𝜒) → 𝑓 = 𝑔))
48	47	2albii 1823	. . 3 ⊢ (∀𝑓∀𝑔((𝜒 ∧ [𝑔 / 𝑓]𝜒) → 𝑓 = 𝑔) ↔ ∀𝑓∀𝑔((𝜒 ∧ [𝑔 / 𝑓]𝜒) → 𝑓 = 𝑔))
49		nfv 1917	. . . 4 ⊢ Ⅎ𝑔𝜒
50	49	mo3 2564	. . 3 ⊢ (∃*𝑓𝜒 ↔ ∀𝑓∀𝑔((𝜒 ∧ [𝑔 / 𝑓]𝜒) → 𝑓 = 𝑔))
51	5	anbi2i 623	. . . . 5 ⊢ ((𝜒 ∧ 𝜒′) ↔ (𝜒 ∧ [𝑔 / 𝑓]𝜒))
52	51	imbi1i 350	. . . 4 ⊢ (((𝜒 ∧ 𝜒′) → 𝑓 = 𝑔) ↔ ((𝜒 ∧ [𝑔 / 𝑓]𝜒) → 𝑓 = 𝑔))
53	52	2albii 1823	. . 3 ⊢ (∀𝑓∀𝑔((𝜒 ∧ 𝜒′) → 𝑓 = 𝑔) ↔ ∀𝑓∀𝑔((𝜒 ∧ [𝑔 / 𝑓]𝜒) → 𝑓 = 𝑔))
54	48, 50, 53	3bitr4i 303	. 2 ⊢ (∃*𝑓𝜒 ↔ ∀𝑓∀𝑔((𝜒 ∧ 𝜒′) → 𝑓 = 𝑔))
55	44, 54	sylibr 233	1 ⊢ (𝑛 ∈ 𝐷 → ∃*𝑓𝜒)

Syntax hints:   → wi 4   ↔ wb 205   ∧ wa 396   ∧ w3a 1086  ∀wal 1537   = wceq 1539  [wsb 2067   ∈ wcel 2106  ∃*wmo 2538  ∀wral 3064  [wsbc 3716   ∖ cdif 3884  ∅c0 4256  {csn 4561  ∪ ciun 4924   class class class wbr 5074   E cep 5494   Fr wfr 5541  Ord word 6265  suc csuc 6268   Fn wfn 6428  ‘cfv 6433  ωcom 7712   predc-bnj14 32667

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  ax-un 7588

This theorem depends on definitions:  df-bi 206  df-an 397  df-or 845  df-3or 1087  df-3an 1088  df-tru 1542  df-fal 1552  df-ex 1783  df-nf 1787  df-sb 2068  df-mo 2540  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-csb 3833  df-dif 3890  df-un 3892  df-in 3894  df-ss 3904  df-pss 3906  df-nul 4257  df-if 4460  df-pw 4535  df-sn 4562  df-pr 4564  df-op 4568  df-uni 4840  df-iun 4926  df-br 5075  df-opab 5137  df-mpt 5158  df-tr 5192  df-id 5489  df-eprel 5495  df-po 5503  df-so 5504  df-fr 5544  df-we 5546  df-xp 5595  df-rel 5596  df-cnv 5597  df-co 5598  df-dm 5599  df-rn 5600  df-res 5601  df-ima 5602  df-ord 6269  df-on 6270  df-lim 6271  df-suc 6272  df-iota 6391  df-fun 6435  df-fn 6436  df-fv 6441  df-om 7713  df-bnj17 32666

This theorem is referenced by:  bnj579  32894