Theorem bnj535 35590

Description: Technical lemma for bnj852 35621. 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
bnj535.1	⊢ (𝜑′ ↔ (𝑓‘∅) = pred(𝑥, 𝐴, 𝑅))
bnj535.2	⊢ (𝜓′ ↔ ∀𝑖 ∈ ω (suc 𝑖 ∈ 𝑚 → (𝑓‘suc 𝑖) = ∪ 𝑦 ∈ (𝑓‘𝑖) pred(𝑦, 𝐴, 𝑅)))
bnj535.3	⊢ 𝐺 = (𝑓 ∪ {⟨𝑚, ∪ 𝑦 ∈ (𝑓‘𝑝) pred(𝑦, 𝐴, 𝑅)⟩})
bnj535.4	⊢ (𝜏 ↔ (𝜑′ ∧ 𝜓′ ∧ 𝑚 ∈ ω ∧ 𝑝 ∈ 𝑚))

Assertion

Ref	Expression
bnj535	⊢ ((𝑅 FrSe 𝐴 ∧ 𝜏 ∧ 𝑛 = (𝑚 ∪ {𝑚}) ∧ 𝑓 Fn 𝑚) → 𝐺 Fn 𝑛)

Distinct variable groups:   𝐴,𝑖,𝑝,𝑦   𝑅,𝑖,𝑝,𝑦   𝑓,𝑖,𝑝,𝑦   𝑖,𝑚,𝑝   𝑝,𝜑′

Allowed substitution hints:   𝜏(𝑥, 𝑦, 𝑓, 𝑖, 𝑚, 𝑛, 𝑝)   𝐴(𝑥, 𝑓, 𝑚, 𝑛)   𝑅(𝑥, 𝑓, 𝑚, 𝑛)   𝐺(𝑥, 𝑦, 𝑓, 𝑖, 𝑚, 𝑛, 𝑝)   𝜑′(𝑥, 𝑦, 𝑓, 𝑖, 𝑚, 𝑛)   𝜓′(𝑥, 𝑦, 𝑓, 𝑖, 𝑚, 𝑛, 𝑝)

Proof of Theorem bnj535

Step	Hyp	Ref	Expression
1		bnj422 35416	. . 3 ⊢ ((𝑅 FrSe 𝐴 ∧ 𝜏 ∧ 𝑛 = (𝑚 ∪ {𝑚}) ∧ 𝑓 Fn 𝑚) ↔ (𝑛 = (𝑚 ∪ {𝑚}) ∧ 𝑓 Fn 𝑚 ∧ 𝑅 FrSe 𝐴 ∧ 𝜏))
2		bnj251 35403	. . 3 ⊢ ((𝑛 = (𝑚 ∪ {𝑚}) ∧ 𝑓 Fn 𝑚 ∧ 𝑅 FrSe 𝐴 ∧ 𝜏) ↔ (𝑛 = (𝑚 ∪ {𝑚}) ∧ (𝑓 Fn 𝑚 ∧ (𝑅 FrSe 𝐴 ∧ 𝜏))))
3	1, 2	bitri 278	. 2 ⊢ ((𝑅 FrSe 𝐴 ∧ 𝜏 ∧ 𝑛 = (𝑚 ∪ {𝑚}) ∧ 𝑓 Fn 𝑚) ↔ (𝑛 = (𝑚 ∪ {𝑚}) ∧ (𝑓 Fn 𝑚 ∧ (𝑅 FrSe 𝐴 ∧ 𝜏))))
4		fvex 6921	. . . . . . . . 9 ⊢ (𝑓‘𝑝) ∈ V
5		bnj535.1	. . . . . . . . . 10 ⊢ (𝜑′ ↔ (𝑓‘∅) = pred(𝑥, 𝐴, 𝑅))
6		bnj535.2	. . . . . . . . . 10 ⊢ (𝜓′ ↔ ∀𝑖 ∈ ω (suc 𝑖 ∈ 𝑚 → (𝑓‘suc 𝑖) = ∪ 𝑦 ∈ (𝑓‘𝑖) pred(𝑦, 𝐴, 𝑅)))
7		bnj535.4	. . . . . . . . . 10 ⊢ (𝜏 ↔ (𝜑′ ∧ 𝜓′ ∧ 𝑚 ∈ ω ∧ 𝑝 ∈ 𝑚))
8	5, 6, 7	bnj518 35586	. . . . . . . . 9 ⊢ ((𝑅 FrSe 𝐴 ∧ 𝜏) → ∀𝑦 ∈ (𝑓‘𝑝) pred(𝑦, 𝐴, 𝑅) ∈ V)
9		iunexg 7999	. . . . . . . . 9 ⊢ (((𝑓‘𝑝) ∈ V ∧ ∀𝑦 ∈ (𝑓‘𝑝) pred(𝑦, 𝐴, 𝑅) ∈ V) → ∪ 𝑦 ∈ (𝑓‘𝑝) pred(𝑦, 𝐴, 𝑅) ∈ V)
10	4, 8, 9	sylancr 599	. . . . . . . 8 ⊢ ((𝑅 FrSe 𝐴 ∧ 𝜏) → ∪ 𝑦 ∈ (𝑓‘𝑝) pred(𝑦, 𝐴, 𝑅) ∈ V)
11		vex 3458	. . . . . . . . 9 ⊢ 𝑚 ∈ V
12	11	bnj519 35437	. . . . . . . 8 ⊢ (∪ 𝑦 ∈ (𝑓‘𝑝) pred(𝑦, 𝐴, 𝑅) ∈ V → Fun {⟨𝑚, ∪ 𝑦 ∈ (𝑓‘𝑝) pred(𝑦, 𝐴, 𝑅)⟩})
13	10, 12	syl 18	. . . . . . 7 ⊢ ((𝑅 FrSe 𝐴 ∧ 𝜏) → Fun {⟨𝑚, ∪ 𝑦 ∈ (𝑓‘𝑝) pred(𝑦, 𝐴, 𝑅)⟩})
14		dmsnopg 6227	. . . . . . . 8 ⊢ (∪ 𝑦 ∈ (𝑓‘𝑝) pred(𝑦, 𝐴, 𝑅) ∈ V → dom {⟨𝑚, ∪ 𝑦 ∈ (𝑓‘𝑝) pred(𝑦, 𝐴, 𝑅)⟩} = {𝑚})
15	10, 14	syl 18	. . . . . . 7 ⊢ ((𝑅 FrSe 𝐴 ∧ 𝜏) → dom {⟨𝑚, ∪ 𝑦 ∈ (𝑓‘𝑝) pred(𝑦, 𝐴, 𝑅)⟩} = {𝑚})
16	13, 15	bnj1422 35537	. . . . . 6 ⊢ ((𝑅 FrSe 𝐴 ∧ 𝜏) → {⟨𝑚, ∪ 𝑦 ∈ (𝑓‘𝑝) pred(𝑦, 𝐴, 𝑅)⟩} Fn {𝑚})
17		disjcsn 9631	. . . . . . 7 ⊢ (𝑚 ∩ {𝑚}) = ∅
18		fnun 6675	. . . . . . 7 ⊢ (((𝑓 Fn 𝑚 ∧ {⟨𝑚, ∪ 𝑦 ∈ (𝑓‘𝑝) pred(𝑦, 𝐴, 𝑅)⟩} Fn {𝑚}) ∧ (𝑚 ∩ {𝑚}) = ∅) → (𝑓 ∪ {⟨𝑚, ∪ 𝑦 ∈ (𝑓‘𝑝) pred(𝑦, 𝐴, 𝑅)⟩}) Fn (𝑚 ∪ {𝑚}))
19	17, 18	mpan2 704	. . . . . 6 ⊢ ((𝑓 Fn 𝑚 ∧ {⟨𝑚, ∪ 𝑦 ∈ (𝑓‘𝑝) pred(𝑦, 𝐴, 𝑅)⟩} Fn {𝑚}) → (𝑓 ∪ {⟨𝑚, ∪ 𝑦 ∈ (𝑓‘𝑝) pred(𝑦, 𝐴, 𝑅)⟩}) Fn (𝑚 ∪ {𝑚}))
20	16, 19	sylan2 605	. . . . 5 ⊢ ((𝑓 Fn 𝑚 ∧ (𝑅 FrSe 𝐴 ∧ 𝜏)) → (𝑓 ∪ {⟨𝑚, ∪ 𝑦 ∈ (𝑓‘𝑝) pred(𝑦, 𝐴, 𝑅)⟩}) Fn (𝑚 ∪ {𝑚}))
21		bnj535.3	. . . . . 6 ⊢ 𝐺 = (𝑓 ∪ {⟨𝑚, ∪ 𝑦 ∈ (𝑓‘𝑝) pred(𝑦, 𝐴, 𝑅)⟩})
22	21	fneq1i 6658	. . . . 5 ⊢ (𝐺 Fn (𝑚 ∪ {𝑚}) ↔ (𝑓 ∪ {⟨𝑚, ∪ 𝑦 ∈ (𝑓‘𝑝) pred(𝑦, 𝐴, 𝑅)⟩}) Fn (𝑚 ∪ {𝑚}))
23	20, 22	sylibr 237	. . . 4 ⊢ ((𝑓 Fn 𝑚 ∧ (𝑅 FrSe 𝐴 ∧ 𝜏)) → 𝐺 Fn (𝑚 ∪ {𝑚}))
24		fneq2 6653	. . . 4 ⊢ (𝑛 = (𝑚 ∪ {𝑚}) → (𝐺 Fn 𝑛 ↔ 𝐺 Fn (𝑚 ∪ {𝑚})))
25	23, 24	imbitrrid 249	. . 3 ⊢ (𝑛 = (𝑚 ∪ {𝑚}) → ((𝑓 Fn 𝑚 ∧ (𝑅 FrSe 𝐴 ∧ 𝜏)) → 𝐺 Fn 𝑛))
26	25	imp 412	. 2 ⊢ ((𝑛 = (𝑚 ∪ {𝑚}) ∧ (𝑓 Fn 𝑚 ∧ (𝑅 FrSe 𝐴 ∧ 𝜏))) → 𝐺 Fn 𝑛)
27	3, 26	sylbi 220	1 ⊢ ((𝑅 FrSe 𝐴 ∧ 𝜏 ∧ 𝑛 = (𝑚 ∪ {𝑚}) ∧ 𝑓 Fn 𝑚) → 𝐺 Fn 𝑛)

This proof depends on syntax axioms:   → wi 4   ↔ wb 209   ∧ wa 401   = wceq 1570   ∈ wcel 2147  ∀wral 3080  Vcvv 3454   ∩ cin 4092   ∪ cun 4152  ∅c0 4281  {csn 4588  ⟨cop 4838  ∪ ciun 4954  dom cdm 5655  suc csuc 6382  Fun wfun 6552   Fn wfn 6553  ‘cfv 6558  ωcom 7901   ∧ w-bnj17 35387   predc-bnj14 35389   FrSe w-bnj15 35393

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1945  ax-6 2002  ax-7 2043  ax-8 2149  ax-9 2157  ax-11 2197  ax-12 2216  ax-ext 2735  ax-rep 5235  ax-sep 5252  ax-nul 5263  ax-pr 5395  ax-un 7775  ax-reg 9613

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-sb 2102  df-mo 2567  df-clab 2742  df-cleq 2755  df-clel 2839  df-ne 2960  df-ral 3081  df-rex 3091  df-rab 3417  df-v 3456  df-ss 3901  df-pss 4017  df-dif 4050  df-in 4094  df-un 4154  df-nul 4282  df-if 4486  df-pw 4562  df-sn 4589  df-pr 4591  df-op 4839  df-uni 4871  df-iun 4956  df-br 5107  df-opab 5171  df-tr 5216  df-id 5550  df-eprel 5555  df-po 5563  df-so 5564  df-fr 5608  df-we 5610  df-xp 5661  df-rel 5662  df-cnv 5663  df-co 5664  df-dm 5665  df-ord 6383  df-on 6384  df-lim 6385  df-suc 6386  df-iota 6512  df-fun 6560  df-fn 6561  df-fv 6566  df-om 7902  df-bnj17 35388  df-bnj14 35390  df-bnj13 35392  df-bnj15 35394

This theorem is used by:  bnj543  35593