Theorem bnj153 34892

Description: Technical lemma for bnj852 34933. 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
bnj153.1	⊢ (𝜑 ↔ (𝑓‘∅) = pred(𝑥, 𝐴, 𝑅))
bnj153.2	⊢ (𝜓 ↔ ∀𝑖 ∈ ω (suc 𝑖 ∈ 𝑛 → (𝑓‘suc 𝑖) = ∪ 𝑦 ∈ (𝑓‘𝑖) pred(𝑦, 𝐴, 𝑅)))
bnj153.3	⊢ 𝐷 = (ω ∖ {∅})
bnj153.4	⊢ (𝜃 ↔ ((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → ∃!𝑓(𝑓 Fn 𝑛 ∧ 𝜑 ∧ 𝜓)))
bnj153.5	⊢ (𝜏 ↔ ∀𝑚 ∈ 𝐷 (𝑚 E 𝑛 → [𝑚 / 𝑛]𝜃))

Assertion

Ref	Expression
bnj153	⊢ (𝑛 = 1o → ((𝑛 ∈ 𝐷 ∧ 𝜏) → 𝜃))

Distinct variable groups:   𝐴,𝑓,𝑖,𝑥,𝑦,𝑛   𝑅,𝑓,𝑖,𝑥,𝑦,𝑛   𝑚,𝑛

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

Proof of Theorem bnj153

Dummy variable 𝑔 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		bnj153.1	. 2 ⊢ (𝜑 ↔ (𝑓‘∅) = pred(𝑥, 𝐴, 𝑅))
2		bnj153.2	. 2 ⊢ (𝜓 ↔ ∀𝑖 ∈ ω (suc 𝑖 ∈ 𝑛 → (𝑓‘suc 𝑖) = ∪ 𝑦 ∈ (𝑓‘𝑖) pred(𝑦, 𝐴, 𝑅)))
3		bnj153.3	. 2 ⊢ 𝐷 = (ω ∖ {∅})
4		bnj153.4	. 2 ⊢ (𝜃 ↔ ((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → ∃!𝑓(𝑓 Fn 𝑛 ∧ 𝜑 ∧ 𝜓)))
5		bnj153.5	. 2 ⊢ (𝜏 ↔ ∀𝑚 ∈ 𝐷 (𝑚 E 𝑛 → [𝑚 / 𝑛]𝜃))
6		biid 261	. 2 ⊢ (((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → (𝑓 Fn 𝑛 ∧ 𝜑 ∧ 𝜓)) ↔ ((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → (𝑓 Fn 𝑛 ∧ 𝜑 ∧ 𝜓)))
7		biid 261	. . . 4 ⊢ ([1o / 𝑛]𝜑 ↔ [1o / 𝑛]𝜑)
8	1, 7	bnj118 34881	. . 3 ⊢ ([1o / 𝑛]𝜑 ↔ (𝑓‘∅) = pred(𝑥, 𝐴, 𝑅))
9	8	bicomi 224	. 2 ⊢ ((𝑓‘∅) = pred(𝑥, 𝐴, 𝑅) ↔ [1o / 𝑛]𝜑)
10		bnj105 34736	. . . 4 ⊢ 1o ∈ V
11	2, 10	bnj92 34874	. . 3 ⊢ ([1o / 𝑛]𝜓 ↔ ∀𝑖 ∈ ω (suc 𝑖 ∈ 1o → (𝑓‘suc 𝑖) = ∪ 𝑦 ∈ (𝑓‘𝑖) pred(𝑦, 𝐴, 𝑅)))
12	11	bicomi 224	. 2 ⊢ (∀𝑖 ∈ ω (suc 𝑖 ∈ 1o → (𝑓‘suc 𝑖) = ∪ 𝑦 ∈ (𝑓‘𝑖) pred(𝑦, 𝐴, 𝑅)) ↔ [1o / 𝑛]𝜓)
13		biid 261	. 2 ⊢ ([1o / 𝑛]𝜃 ↔ [1o / 𝑛]𝜃)
14		biid 261	. 2 ⊢ (((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → ∃𝑓(𝑓 Fn 1o ∧ (𝑓‘∅) = pred(𝑥, 𝐴, 𝑅) ∧ ∀𝑖 ∈ ω (suc 𝑖 ∈ 1o → (𝑓‘suc 𝑖) = ∪ 𝑦 ∈ (𝑓‘𝑖) pred(𝑦, 𝐴, 𝑅)))) ↔ ((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → ∃𝑓(𝑓 Fn 1o ∧ (𝑓‘∅) = pred(𝑥, 𝐴, 𝑅) ∧ ∀𝑖 ∈ ω (suc 𝑖 ∈ 1o → (𝑓‘suc 𝑖) = ∪ 𝑦 ∈ (𝑓‘𝑖) pred(𝑦, 𝐴, 𝑅)))))
15		biid 261	. 2 ⊢ (((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → ∃*𝑓(𝑓 Fn 1o ∧ (𝑓‘∅) = pred(𝑥, 𝐴, 𝑅) ∧ ∀𝑖 ∈ ω (suc 𝑖 ∈ 1o → (𝑓‘suc 𝑖) = ∪ 𝑦 ∈ (𝑓‘𝑖) pred(𝑦, 𝐴, 𝑅)))) ↔ ((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → ∃*𝑓(𝑓 Fn 1o ∧ (𝑓‘∅) = pred(𝑥, 𝐴, 𝑅) ∧ ∀𝑖 ∈ ω (suc 𝑖 ∈ 1o → (𝑓‘suc 𝑖) = ∪ 𝑦 ∈ (𝑓‘𝑖) pred(𝑦, 𝐴, 𝑅)))))
16		biid 261	. . . . 5 ⊢ ([1o / 𝑛]((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → (𝑓 Fn 𝑛 ∧ 𝜑 ∧ 𝜓)) ↔ [1o / 𝑛]((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → (𝑓 Fn 𝑛 ∧ 𝜑 ∧ 𝜓)))
17		biid 261	. . . . 5 ⊢ ([1o / 𝑛]𝜓 ↔ [1o / 𝑛]𝜓)
18	6, 16, 7, 17	bnj121 34882	. . . 4 ⊢ ([1o / 𝑛]((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → (𝑓 Fn 𝑛 ∧ 𝜑 ∧ 𝜓)) ↔ ((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → (𝑓 Fn 1o ∧ [1o / 𝑛]𝜑 ∧ [1o / 𝑛]𝜓)))
19	8	anbi2i 623	. . . . . . 7 ⊢ ((𝑓 Fn 1o ∧ [1o / 𝑛]𝜑) ↔ (𝑓 Fn 1o ∧ (𝑓‘∅) = pred(𝑥, 𝐴, 𝑅)))
20	19, 11	anbi12i 628	. . . . . 6 ⊢ (((𝑓 Fn 1o ∧ [1o / 𝑛]𝜑) ∧ [1o / 𝑛]𝜓) ↔ ((𝑓 Fn 1o ∧ (𝑓‘∅) = pred(𝑥, 𝐴, 𝑅)) ∧ ∀𝑖 ∈ ω (suc 𝑖 ∈ 1o → (𝑓‘suc 𝑖) = ∪ 𝑦 ∈ (𝑓‘𝑖) pred(𝑦, 𝐴, 𝑅))))
21		df-3an 1088	. . . . . 6 ⊢ ((𝑓 Fn 1o ∧ [1o / 𝑛]𝜑 ∧ [1o / 𝑛]𝜓) ↔ ((𝑓 Fn 1o ∧ [1o / 𝑛]𝜑) ∧ [1o / 𝑛]𝜓))
22		df-3an 1088	. . . . . 6 ⊢ ((𝑓 Fn 1o ∧ (𝑓‘∅) = pred(𝑥, 𝐴, 𝑅) ∧ ∀𝑖 ∈ ω (suc 𝑖 ∈ 1o → (𝑓‘suc 𝑖) = ∪ 𝑦 ∈ (𝑓‘𝑖) pred(𝑦, 𝐴, 𝑅))) ↔ ((𝑓 Fn 1o ∧ (𝑓‘∅) = pred(𝑥, 𝐴, 𝑅)) ∧ ∀𝑖 ∈ ω (suc 𝑖 ∈ 1o → (𝑓‘suc 𝑖) = ∪ 𝑦 ∈ (𝑓‘𝑖) pred(𝑦, 𝐴, 𝑅))))
23	20, 21, 22	3bitr4i 303	. . . . 5 ⊢ ((𝑓 Fn 1o ∧ [1o / 𝑛]𝜑 ∧ [1o / 𝑛]𝜓) ↔ (𝑓 Fn 1o ∧ (𝑓‘∅) = pred(𝑥, 𝐴, 𝑅) ∧ ∀𝑖 ∈ ω (suc 𝑖 ∈ 1o → (𝑓‘suc 𝑖) = ∪ 𝑦 ∈ (𝑓‘𝑖) pred(𝑦, 𝐴, 𝑅))))
24	23	imbi2i 336	. . . 4 ⊢ (((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → (𝑓 Fn 1o ∧ [1o / 𝑛]𝜑 ∧ [1o / 𝑛]𝜓)) ↔ ((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → (𝑓 Fn 1o ∧ (𝑓‘∅) = pred(𝑥, 𝐴, 𝑅) ∧ ∀𝑖 ∈ ω (suc 𝑖 ∈ 1o → (𝑓‘suc 𝑖) = ∪ 𝑦 ∈ (𝑓‘𝑖) pred(𝑦, 𝐴, 𝑅)))))
25	18, 24	bitri 275	. . 3 ⊢ ([1o / 𝑛]((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → (𝑓 Fn 𝑛 ∧ 𝜑 ∧ 𝜓)) ↔ ((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → (𝑓 Fn 1o ∧ (𝑓‘∅) = pred(𝑥, 𝐴, 𝑅) ∧ ∀𝑖 ∈ ω (suc 𝑖 ∈ 1o → (𝑓‘suc 𝑖) = ∪ 𝑦 ∈ (𝑓‘𝑖) pred(𝑦, 𝐴, 𝑅)))))
26	25	bicomi 224	. 2 ⊢ (((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → (𝑓 Fn 1o ∧ (𝑓‘∅) = pred(𝑥, 𝐴, 𝑅) ∧ ∀𝑖 ∈ ω (suc 𝑖 ∈ 1o → (𝑓‘suc 𝑖) = ∪ 𝑦 ∈ (𝑓‘𝑖) pred(𝑦, 𝐴, 𝑅)))) ↔ [1o / 𝑛]((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → (𝑓 Fn 𝑛 ∧ 𝜑 ∧ 𝜓)))
27		eqid 2731	. 2 ⊢ {⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} = {⟨∅, pred(𝑥, 𝐴, 𝑅)⟩}
28		biid 261	. 2 ⊢ ([{⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} / 𝑓](𝑓‘∅) = pred(𝑥, 𝐴, 𝑅) ↔ [{⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} / 𝑓](𝑓‘∅) = pred(𝑥, 𝐴, 𝑅))
29		biid 261	. 2 ⊢ ([{⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} / 𝑓]∀𝑖 ∈ ω (suc 𝑖 ∈ 1o → (𝑓‘suc 𝑖) = ∪ 𝑦 ∈ (𝑓‘𝑖) pred(𝑦, 𝐴, 𝑅)) ↔ [{⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} / 𝑓]∀𝑖 ∈ ω (suc 𝑖 ∈ 1o → (𝑓‘suc 𝑖) = ∪ 𝑦 ∈ (𝑓‘𝑖) pred(𝑦, 𝐴, 𝑅)))
30	26	sbcbii 3793	. . 3 ⊢ ([{⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} / 𝑓]((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → (𝑓 Fn 1o ∧ (𝑓‘∅) = pred(𝑥, 𝐴, 𝑅) ∧ ∀𝑖 ∈ ω (suc 𝑖 ∈ 1o → (𝑓‘suc 𝑖) = ∪ 𝑦 ∈ (𝑓‘𝑖) pred(𝑦, 𝐴, 𝑅)))) ↔ [{⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} / 𝑓][1o / 𝑛]((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → (𝑓 Fn 𝑛 ∧ 𝜑 ∧ 𝜓)))
31		biid 261	. . . . 5 ⊢ ([{⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} / 𝑓][1o / 𝑛]𝜑 ↔ [{⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} / 𝑓][1o / 𝑛]𝜑)
32		biid 261	. . . . 5 ⊢ ([{⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} / 𝑓][1o / 𝑛]𝜓 ↔ [{⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} / 𝑓][1o / 𝑛]𝜓)
33		biid 261	. . . . 5 ⊢ ([{⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} / 𝑓][1o / 𝑛]((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → (𝑓 Fn 𝑛 ∧ 𝜑 ∧ 𝜓)) ↔ [{⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} / 𝑓][1o / 𝑛]((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → (𝑓 Fn 𝑛 ∧ 𝜑 ∧ 𝜓)))
34	27, 31, 32, 33, 18	bnj124 34883	. . . 4 ⊢ ([{⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} / 𝑓][1o / 𝑛]((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → (𝑓 Fn 𝑛 ∧ 𝜑 ∧ 𝜓)) ↔ ((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → ({⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} Fn 1o ∧ [{⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} / 𝑓][1o / 𝑛]𝜑 ∧ [{⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} / 𝑓][1o / 𝑛]𝜓)))
35	1, 7, 31, 27	bnj125 34884	. . . . . . . 8 ⊢ ([{⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} / 𝑓][1o / 𝑛]𝜑 ↔ ({⟨∅, pred(𝑥, 𝐴, 𝑅)⟩}‘∅) = pred(𝑥, 𝐴, 𝑅))
36	35	anbi2i 623	. . . . . . 7 ⊢ (({⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} Fn 1o ∧ [{⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} / 𝑓][1o / 𝑛]𝜑) ↔ ({⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} Fn 1o ∧ ({⟨∅, pred(𝑥, 𝐴, 𝑅)⟩}‘∅) = pred(𝑥, 𝐴, 𝑅)))
37	2, 17, 32, 27	bnj126 34885	. . . . . . 7 ⊢ ([{⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} / 𝑓][1o / 𝑛]𝜓 ↔ ∀𝑖 ∈ ω (suc 𝑖 ∈ 1o → ({⟨∅, pred(𝑥, 𝐴, 𝑅)⟩}‘suc 𝑖) = ∪ 𝑦 ∈ ({⟨∅, pred(𝑥, 𝐴, 𝑅)⟩}‘𝑖) pred(𝑦, 𝐴, 𝑅)))
38	36, 37	anbi12i 628	. . . . . 6 ⊢ ((({⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} Fn 1o ∧ [{⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} / 𝑓][1o / 𝑛]𝜑) ∧ [{⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} / 𝑓][1o / 𝑛]𝜓) ↔ (({⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} Fn 1o ∧ ({⟨∅, pred(𝑥, 𝐴, 𝑅)⟩}‘∅) = pred(𝑥, 𝐴, 𝑅)) ∧ ∀𝑖 ∈ ω (suc 𝑖 ∈ 1o → ({⟨∅, pred(𝑥, 𝐴, 𝑅)⟩}‘suc 𝑖) = ∪ 𝑦 ∈ ({⟨∅, pred(𝑥, 𝐴, 𝑅)⟩}‘𝑖) pred(𝑦, 𝐴, 𝑅))))
39		df-3an 1088	. . . . . 6 ⊢ (({⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} Fn 1o ∧ [{⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} / 𝑓][1o / 𝑛]𝜑 ∧ [{⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} / 𝑓][1o / 𝑛]𝜓) ↔ (({⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} Fn 1o ∧ [{⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} / 𝑓][1o / 𝑛]𝜑) ∧ [{⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} / 𝑓][1o / 𝑛]𝜓))
40		df-3an 1088	. . . . . 6 ⊢ (({⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} Fn 1o ∧ ({⟨∅, pred(𝑥, 𝐴, 𝑅)⟩}‘∅) = pred(𝑥, 𝐴, 𝑅) ∧ ∀𝑖 ∈ ω (suc 𝑖 ∈ 1o → ({⟨∅, pred(𝑥, 𝐴, 𝑅)⟩}‘suc 𝑖) = ∪ 𝑦 ∈ ({⟨∅, pred(𝑥, 𝐴, 𝑅)⟩}‘𝑖) pred(𝑦, 𝐴, 𝑅))) ↔ (({⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} Fn 1o ∧ ({⟨∅, pred(𝑥, 𝐴, 𝑅)⟩}‘∅) = pred(𝑥, 𝐴, 𝑅)) ∧ ∀𝑖 ∈ ω (suc 𝑖 ∈ 1o → ({⟨∅, pred(𝑥, 𝐴, 𝑅)⟩}‘suc 𝑖) = ∪ 𝑦 ∈ ({⟨∅, pred(𝑥, 𝐴, 𝑅)⟩}‘𝑖) pred(𝑦, 𝐴, 𝑅))))
41	38, 39, 40	3bitr4i 303	. . . . 5 ⊢ (({⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} Fn 1o ∧ [{⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} / 𝑓][1o / 𝑛]𝜑 ∧ [{⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} / 𝑓][1o / 𝑛]𝜓) ↔ ({⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} Fn 1o ∧ ({⟨∅, pred(𝑥, 𝐴, 𝑅)⟩}‘∅) = pred(𝑥, 𝐴, 𝑅) ∧ ∀𝑖 ∈ ω (suc 𝑖 ∈ 1o → ({⟨∅, pred(𝑥, 𝐴, 𝑅)⟩}‘suc 𝑖) = ∪ 𝑦 ∈ ({⟨∅, pred(𝑥, 𝐴, 𝑅)⟩}‘𝑖) pred(𝑦, 𝐴, 𝑅))))
42	41	imbi2i 336	. . . 4 ⊢ (((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → ({⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} Fn 1o ∧ [{⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} / 𝑓][1o / 𝑛]𝜑 ∧ [{⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} / 𝑓][1o / 𝑛]𝜓)) ↔ ((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → ({⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} Fn 1o ∧ ({⟨∅, pred(𝑥, 𝐴, 𝑅)⟩}‘∅) = pred(𝑥, 𝐴, 𝑅) ∧ ∀𝑖 ∈ ω (suc 𝑖 ∈ 1o → ({⟨∅, pred(𝑥, 𝐴, 𝑅)⟩}‘suc 𝑖) = ∪ 𝑦 ∈ ({⟨∅, pred(𝑥, 𝐴, 𝑅)⟩}‘𝑖) pred(𝑦, 𝐴, 𝑅)))))
43	34, 42	bitri 275	. . 3 ⊢ ([{⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} / 𝑓][1o / 𝑛]((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → (𝑓 Fn 𝑛 ∧ 𝜑 ∧ 𝜓)) ↔ ((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → ({⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} Fn 1o ∧ ({⟨∅, pred(𝑥, 𝐴, 𝑅)⟩}‘∅) = pred(𝑥, 𝐴, 𝑅) ∧ ∀𝑖 ∈ ω (suc 𝑖 ∈ 1o → ({⟨∅, pred(𝑥, 𝐴, 𝑅)⟩}‘suc 𝑖) = ∪ 𝑦 ∈ ({⟨∅, pred(𝑥, 𝐴, 𝑅)⟩}‘𝑖) pred(𝑦, 𝐴, 𝑅)))))
44	30, 43	bitr2i 276	. 2 ⊢ (((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → ({⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} Fn 1o ∧ ({⟨∅, pred(𝑥, 𝐴, 𝑅)⟩}‘∅) = pred(𝑥, 𝐴, 𝑅) ∧ ∀𝑖 ∈ ω (suc 𝑖 ∈ 1o → ({⟨∅, pred(𝑥, 𝐴, 𝑅)⟩}‘suc 𝑖) = ∪ 𝑦 ∈ ({⟨∅, pred(𝑥, 𝐴, 𝑅)⟩}‘𝑖) pred(𝑦, 𝐴, 𝑅)))) ↔ [{⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} / 𝑓]((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → (𝑓 Fn 1o ∧ (𝑓‘∅) = pred(𝑥, 𝐴, 𝑅) ∧ ∀𝑖 ∈ ω (suc 𝑖 ∈ 1o → (𝑓‘suc 𝑖) = ∪ 𝑦 ∈ (𝑓‘𝑖) pred(𝑦, 𝐴, 𝑅)))))
45		biid 261	. 2 ⊢ ((𝑓 Fn 1o ∧ (𝑓‘∅) = pred(𝑥, 𝐴, 𝑅) ∧ ∀𝑖 ∈ ω (suc 𝑖 ∈ 1o → (𝑓‘suc 𝑖) = ∪ 𝑦 ∈ (𝑓‘𝑖) pred(𝑦, 𝐴, 𝑅))) ↔ (𝑓 Fn 1o ∧ (𝑓‘∅) = pred(𝑥, 𝐴, 𝑅) ∧ ∀𝑖 ∈ ω (suc 𝑖 ∈ 1o → (𝑓‘suc 𝑖) = ∪ 𝑦 ∈ (𝑓‘𝑖) pred(𝑦, 𝐴, 𝑅))))
46		biid 261	. . . . 5 ⊢ ((𝑓 Fn 1o ∧ [1o / 𝑛]𝜑 ∧ [1o / 𝑛]𝜓) ↔ (𝑓 Fn 1o ∧ [1o / 𝑛]𝜑 ∧ [1o / 𝑛]𝜓))
47		biid 261	. . . . 5 ⊢ ([𝑔 / 𝑓](𝑓 Fn 1o ∧ [1o / 𝑛]𝜑 ∧ [1o / 𝑛]𝜓) ↔ [𝑔 / 𝑓](𝑓 Fn 1o ∧ [1o / 𝑛]𝜑 ∧ [1o / 𝑛]𝜓))
48		biid 261	. . . . 5 ⊢ ([𝑔 / 𝑓][1o / 𝑛]𝜑 ↔ [𝑔 / 𝑓][1o / 𝑛]𝜑)
49		biid 261	. . . . 5 ⊢ ([𝑔 / 𝑓][1o / 𝑛]𝜓 ↔ [𝑔 / 𝑓][1o / 𝑛]𝜓)
50	46, 47, 48, 49	bnj156 34740	. . . 4 ⊢ ([𝑔 / 𝑓](𝑓 Fn 1o ∧ [1o / 𝑛]𝜑 ∧ [1o / 𝑛]𝜓) ↔ (𝑔 Fn 1o ∧ [𝑔 / 𝑓][1o / 𝑛]𝜑 ∧ [𝑔 / 𝑓][1o / 𝑛]𝜓))
51	48, 8	bnj154 34890	. . . . . . 7 ⊢ ([𝑔 / 𝑓][1o / 𝑛]𝜑 ↔ (𝑔‘∅) = pred(𝑥, 𝐴, 𝑅))
52	51	anbi2i 623	. . . . . 6 ⊢ ((𝑔 Fn 1o ∧ [𝑔 / 𝑓][1o / 𝑛]𝜑) ↔ (𝑔 Fn 1o ∧ (𝑔‘∅) = pred(𝑥, 𝐴, 𝑅)))
53	17, 11	bitri 275	. . . . . . 7 ⊢ ([1o / 𝑛]𝜓 ↔ ∀𝑖 ∈ ω (suc 𝑖 ∈ 1o → (𝑓‘suc 𝑖) = ∪ 𝑦 ∈ (𝑓‘𝑖) pred(𝑦, 𝐴, 𝑅)))
54	49, 53	bnj155 34891	. . . . . 6 ⊢ ([𝑔 / 𝑓][1o / 𝑛]𝜓 ↔ ∀𝑖 ∈ ω (suc 𝑖 ∈ 1o → (𝑔‘suc 𝑖) = ∪ 𝑦 ∈ (𝑔‘𝑖) pred(𝑦, 𝐴, 𝑅)))
55	52, 54	anbi12i 628	. . . . 5 ⊢ (((𝑔 Fn 1o ∧ [𝑔 / 𝑓][1o / 𝑛]𝜑) ∧ [𝑔 / 𝑓][1o / 𝑛]𝜓) ↔ ((𝑔 Fn 1o ∧ (𝑔‘∅) = pred(𝑥, 𝐴, 𝑅)) ∧ ∀𝑖 ∈ ω (suc 𝑖 ∈ 1o → (𝑔‘suc 𝑖) = ∪ 𝑦 ∈ (𝑔‘𝑖) pred(𝑦, 𝐴, 𝑅))))
56		df-3an 1088	. . . . 5 ⊢ ((𝑔 Fn 1o ∧ [𝑔 / 𝑓][1o / 𝑛]𝜑 ∧ [𝑔 / 𝑓][1o / 𝑛]𝜓) ↔ ((𝑔 Fn 1o ∧ [𝑔 / 𝑓][1o / 𝑛]𝜑) ∧ [𝑔 / 𝑓][1o / 𝑛]𝜓))
57		df-3an 1088	. . . . 5 ⊢ ((𝑔 Fn 1o ∧ (𝑔‘∅) = pred(𝑥, 𝐴, 𝑅) ∧ ∀𝑖 ∈ ω (suc 𝑖 ∈ 1o → (𝑔‘suc 𝑖) = ∪ 𝑦 ∈ (𝑔‘𝑖) pred(𝑦, 𝐴, 𝑅))) ↔ ((𝑔 Fn 1o ∧ (𝑔‘∅) = pred(𝑥, 𝐴, 𝑅)) ∧ ∀𝑖 ∈ ω (suc 𝑖 ∈ 1o → (𝑔‘suc 𝑖) = ∪ 𝑦 ∈ (𝑔‘𝑖) pred(𝑦, 𝐴, 𝑅))))
58	55, 56, 57	3bitr4i 303	. . . 4 ⊢ ((𝑔 Fn 1o ∧ [𝑔 / 𝑓][1o / 𝑛]𝜑 ∧ [𝑔 / 𝑓][1o / 𝑛]𝜓) ↔ (𝑔 Fn 1o ∧ (𝑔‘∅) = pred(𝑥, 𝐴, 𝑅) ∧ ∀𝑖 ∈ ω (suc 𝑖 ∈ 1o → (𝑔‘suc 𝑖) = ∪ 𝑦 ∈ (𝑔‘𝑖) pred(𝑦, 𝐴, 𝑅))))
59	50, 58	bitri 275	. . 3 ⊢ ([𝑔 / 𝑓](𝑓 Fn 1o ∧ [1o / 𝑛]𝜑 ∧ [1o / 𝑛]𝜓) ↔ (𝑔 Fn 1o ∧ (𝑔‘∅) = pred(𝑥, 𝐴, 𝑅) ∧ ∀𝑖 ∈ ω (suc 𝑖 ∈ 1o → (𝑔‘suc 𝑖) = ∪ 𝑦 ∈ (𝑔‘𝑖) pred(𝑦, 𝐴, 𝑅))))
60	23	sbcbii 3793	. . 3 ⊢ ([𝑔 / 𝑓](𝑓 Fn 1o ∧ [1o / 𝑛]𝜑 ∧ [1o / 𝑛]𝜓) ↔ [𝑔 / 𝑓](𝑓 Fn 1o ∧ (𝑓‘∅) = pred(𝑥, 𝐴, 𝑅) ∧ ∀𝑖 ∈ ω (suc 𝑖 ∈ 1o → (𝑓‘suc 𝑖) = ∪ 𝑦 ∈ (𝑓‘𝑖) pred(𝑦, 𝐴, 𝑅))))
61	59, 60	bitr3i 277	. 2 ⊢ ((𝑔 Fn 1o ∧ (𝑔‘∅) = pred(𝑥, 𝐴, 𝑅) ∧ ∀𝑖 ∈ ω (suc 𝑖 ∈ 1o → (𝑔‘suc 𝑖) = ∪ 𝑦 ∈ (𝑔‘𝑖) pred(𝑦, 𝐴, 𝑅))) ↔ [𝑔 / 𝑓](𝑓 Fn 1o ∧ (𝑓‘∅) = pred(𝑥, 𝐴, 𝑅) ∧ ∀𝑖 ∈ ω (suc 𝑖 ∈ 1o → (𝑓‘suc 𝑖) = ∪ 𝑦 ∈ (𝑓‘𝑖) pred(𝑦, 𝐴, 𝑅))))
62		biid 261	. 2 ⊢ ([𝑔 / 𝑓](𝑓‘∅) = pred(𝑥, 𝐴, 𝑅) ↔ [𝑔 / 𝑓](𝑓‘∅) = pred(𝑥, 𝐴, 𝑅))
63		biid 261	. 2 ⊢ ([𝑔 / 𝑓]∀𝑖 ∈ ω (suc 𝑖 ∈ 1o → (𝑓‘suc 𝑖) = ∪ 𝑦 ∈ (𝑓‘𝑖) pred(𝑦, 𝐴, 𝑅)) ↔ [𝑔 / 𝑓]∀𝑖 ∈ ω (suc 𝑖 ∈ 1o → (𝑓‘suc 𝑖) = ∪ 𝑦 ∈ (𝑓‘𝑖) pred(𝑦, 𝐴, 𝑅)))
64	1, 2, 3, 4, 5, 6, 9, 12, 13, 14, 15, 26, 27, 28, 29, 44, 45, 61, 62, 63	bnj151 34889	1 ⊢ (𝑛 = 1o → ((𝑛 ∈ 𝐷 ∧ 𝜏) → 𝜃))

Syntax hints:   → wi 4   ↔ wb 206   ∧ wa 395   ∧ w3a 1086   = wceq 1541  ∃wex 1780   ∈ wcel 2111  ∃*wmo 2533  ∃!weu 2563  ∀wral 3047  [wsbc 3736   ∖ cdif 3894  ∅c0 4280  {csn 4573  ⟨cop 4579  ∪ ciun 4939   class class class wbr 5089   E cep 5513  suc csuc 6308   Fn wfn 6476  ‘cfv 6481  ωcom 7796  1_oc1o 8378   predc-bnj14 34700   FrSe w-bnj15 34704

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1911  ax-6 1968  ax-7 2009  ax-8 2113  ax-9 2121  ax-10 2144  ax-11 2160  ax-12 2180  ax-ext 2703  ax-sep 5232  ax-nul 5242  ax-pow 5301  ax-pr 5368

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3an 1088  df-tru 1544  df-fal 1554  df-ex 1781  df-nf 1785  df-sb 2068  df-mo 2535  df-eu 2564  df-clab 2710  df-cleq 2723  df-clel 2806  df-nfc 2881  df-ne 2929  df-ral 3048  df-rex 3057  df-reu 3347  df-rab 3396  df-v 3438  df-sbc 3737  df-dif 3900  df-un 3902  df-ss 3914  df-nul 4281  df-if 4473  df-pw 4549  df-sn 4574  df-pr 4576  df-op 4580  df-uni 4857  df-iun 4941  df-br 5090  df-opab 5152  df-mpt 5171  df-id 5509  df-xp 5620  df-rel 5621  df-cnv 5622  df-co 5623  df-dm 5624  df-rn 5625  df-suc 6312  df-iota 6437  df-fun 6483  df-fn 6484  df-f 6485  df-f1 6486  df-fo 6487  df-f1o 6488  df-fv 6489  df-1o 8385  df-bnj13 34703  df-bnj15 34705

This theorem is referenced by:  bnj852  34933