Theorem hartogslem1 9447

Description: Lemma for hartogs 9449. (Contributed by Mario Carneiro, 14-Jan-2013.) (Revised by Mario Carneiro, 15-May-2015.)

Hypotheses

Ref	Expression
hartogslem.2	⊢ 𝐹 = {⟨𝑟, 𝑦⟩ ∣ (((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟))}
hartogslem.3	⊢ 𝑅 = {⟨𝑠, 𝑡⟩ ∣ ∃𝑤 ∈ 𝑦 ∃𝑧 ∈ 𝑦 ((𝑠 = (𝑓‘𝑤) ∧ 𝑡 = (𝑓‘𝑧)) ∧ 𝑤 E 𝑧)}

Assertion

Ref	Expression
hartogslem1	⊢ (dom 𝐹 ⊆ 𝒫 (𝐴 × 𝐴) ∧ Fun 𝐹 ∧ (𝐴 ∈ 𝑉 → ran 𝐹 = {𝑥 ∈ On ∣ 𝑥 ≼ 𝐴}))

Distinct variable groups:   𝑓,𝑠,𝑡,𝑤,𝑦,𝑧   𝑓,𝑟,𝑥,𝐴,𝑦   𝑅,𝑟,𝑥   𝑉,𝑟,𝑦

Allowed substitution hints:   𝐴(𝑧,𝑤,𝑡,𝑠)   𝑅(𝑦,𝑧,𝑤,𝑡,𝑓,𝑠)   𝐹(𝑥,𝑦,𝑧,𝑤,𝑡,𝑓,𝑠,𝑟)   𝑉(𝑥,𝑧,𝑤,𝑡,𝑓,𝑠)

Proof of Theorem hartogslem1

Step	Hyp	Ref	Expression
1		hartogslem.2	. . . . 5 ⊢ 𝐹 = {⟨𝑟, 𝑦⟩ ∣ (((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟))}
2	1	dmeqi 5853	. . . 4 ⊢ dom 𝐹 = dom {⟨𝑟, 𝑦⟩ ∣ (((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟))}
3		dmopab 5864	. . . 4 ⊢ dom {⟨𝑟, 𝑦⟩ ∣ (((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟))} = {𝑟 ∣ ∃𝑦(((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟))}
4	2, 3	eqtri 2759	. . 3 ⊢ dom 𝐹 = {𝑟 ∣ ∃𝑦(((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟))}
5		simp3 1138	. . . . . . . 8 ⊢ ((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) → 𝑟 ⊆ (dom 𝑟 × dom 𝑟))
6		simp1 1136	. . . . . . . . 9 ⊢ ((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) → dom 𝑟 ⊆ 𝐴)
7		xpss12 5639	. . . . . . . . 9 ⊢ ((dom 𝑟 ⊆ 𝐴 ∧ dom 𝑟 ⊆ 𝐴) → (dom 𝑟 × dom 𝑟) ⊆ (𝐴 × 𝐴))
8	6, 6, 7	syl2anc 584	. . . . . . . 8 ⊢ ((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) → (dom 𝑟 × dom 𝑟) ⊆ (𝐴 × 𝐴))
9	5, 8	sstrd 3944	. . . . . . 7 ⊢ ((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) → 𝑟 ⊆ (𝐴 × 𝐴))
10		velpw 4559	. . . . . . 7 ⊢ (𝑟 ∈ 𝒫 (𝐴 × 𝐴) ↔ 𝑟 ⊆ (𝐴 × 𝐴))
11	9, 10	sylibr 234	. . . . . 6 ⊢ ((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) → 𝑟 ∈ 𝒫 (𝐴 × 𝐴))
12	11	ad2antrr 726	. . . . 5 ⊢ ((((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟)) → 𝑟 ∈ 𝒫 (𝐴 × 𝐴))
13	12	exlimiv 1931	. . . 4 ⊢ (∃𝑦(((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟)) → 𝑟 ∈ 𝒫 (𝐴 × 𝐴))
14	13	abssi 4020	. . 3 ⊢ {𝑟 ∣ ∃𝑦(((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟))} ⊆ 𝒫 (𝐴 × 𝐴)
15	4, 14	eqsstri 3980	. 2 ⊢ dom 𝐹 ⊆ 𝒫 (𝐴 × 𝐴)
16		funopab4 6529	. . 3 ⊢ Fun {⟨𝑟, 𝑦⟩ ∣ (((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟))}
17	1	funeqi 6513	. . 3 ⊢ (Fun 𝐹 ↔ Fun {⟨𝑟, 𝑦⟩ ∣ (((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟))})
18	16, 17	mpbir 231	. 2 ⊢ Fun 𝐹
19	1	rneqi 5886	. . . 4 ⊢ ran 𝐹 = ran {⟨𝑟, 𝑦⟩ ∣ (((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟))}
20		rnopab 5903	. . . 4 ⊢ ran {⟨𝑟, 𝑦⟩ ∣ (((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟))} = {𝑦 ∣ ∃𝑟(((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟))}
21	19, 20	eqtri 2759	. . 3 ⊢ ran 𝐹 = {𝑦 ∣ ∃𝑟(((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟))}
22		breq1 5101	. . . . . 6 ⊢ (𝑥 = 𝑦 → (𝑥 ≼ 𝐴 ↔ 𝑦 ≼ 𝐴))
23	22	elrab 3646	. . . . 5 ⊢ (𝑦 ∈ {𝑥 ∈ On ∣ 𝑥 ≼ 𝐴} ↔ (𝑦 ∈ On ∧ 𝑦 ≼ 𝐴))
24		f1f 6730	. . . . . . . . . . . . 13 ⊢ (𝑓:𝑦–1-1→𝐴 → 𝑓:𝑦⟶𝐴)
25	24	adantl 481	. . . . . . . . . . . 12 ⊢ ((𝑦 ∈ On ∧ 𝑓:𝑦–1-1→𝐴) → 𝑓:𝑦⟶𝐴)
26	25	frnd 6670	. . . . . . . . . . 11 ⊢ ((𝑦 ∈ On ∧ 𝑓:𝑦–1-1→𝐴) → ran 𝑓 ⊆ 𝐴)
27		resss 5960	. . . . . . . . . . . . . 14 ⊢ ( I ↾ ran 𝑓) ⊆ I
28		ssun2 4131	. . . . . . . . . . . . . 14 ⊢ I ⊆ (𝑅 ∪ I )
29	27, 28	sstri 3943	. . . . . . . . . . . . 13 ⊢ ( I ↾ ran 𝑓) ⊆ (𝑅 ∪ I )
30		idssxp 6008	. . . . . . . . . . . . 13 ⊢ ( I ↾ ran 𝑓) ⊆ (ran 𝑓 × ran 𝑓)
31	29, 30	ssini 4192	. . . . . . . . . . . 12 ⊢ ( I ↾ ran 𝑓) ⊆ ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓))
32	31	a1i 11	. . . . . . . . . . 11 ⊢ ((𝑦 ∈ On ∧ 𝑓:𝑦–1-1→𝐴) → ( I ↾ ran 𝑓) ⊆ ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)))
33		inss2 4190	. . . . . . . . . . . 12 ⊢ ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) ⊆ (ran 𝑓 × ran 𝑓)
34	33	a1i 11	. . . . . . . . . . 11 ⊢ ((𝑦 ∈ On ∧ 𝑓:𝑦–1-1→𝐴) → ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) ⊆ (ran 𝑓 × ran 𝑓))
35	26, 32, 34	3jca 1128	. . . . . . . . . 10 ⊢ ((𝑦 ∈ On ∧ 𝑓:𝑦–1-1→𝐴) → (ran 𝑓 ⊆ 𝐴 ∧ ( I ↾ ran 𝑓) ⊆ ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) ∧ ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) ⊆ (ran 𝑓 × ran 𝑓)))
36		eloni 6327	. . . . . . . . . . . . . 14 ⊢ (𝑦 ∈ On → Ord 𝑦)
37		ordwe 6330	. . . . . . . . . . . . . 14 ⊢ (Ord 𝑦 → E We 𝑦)
38	36, 37	syl 17	. . . . . . . . . . . . 13 ⊢ (𝑦 ∈ On → E We 𝑦)
39	38	adantr 480	. . . . . . . . . . . 12 ⊢ ((𝑦 ∈ On ∧ 𝑓:𝑦–1-1→𝐴) → E We 𝑦)
40		f1f1orn 6785	. . . . . . . . . . . . . . . 16 ⊢ (𝑓:𝑦–1-1→𝐴 → 𝑓:𝑦–1-1-onto→ran 𝑓)
41	40	adantl 481	. . . . . . . . . . . . . . 15 ⊢ ((𝑦 ∈ On ∧ 𝑓:𝑦–1-1→𝐴) → 𝑓:𝑦–1-1-onto→ran 𝑓)
42		hartogslem.3	. . . . . . . . . . . . . . 15 ⊢ 𝑅 = {⟨𝑠, 𝑡⟩ ∣ ∃𝑤 ∈ 𝑦 ∃𝑧 ∈ 𝑦 ((𝑠 = (𝑓‘𝑤) ∧ 𝑡 = (𝑓‘𝑧)) ∧ 𝑤 E 𝑧)}
43		f1oiso 7297	. . . . . . . . . . . . . . 15 ⊢ ((𝑓:𝑦–1-1-onto→ran 𝑓 ∧ 𝑅 = {⟨𝑠, 𝑡⟩ ∣ ∃𝑤 ∈ 𝑦 ∃𝑧 ∈ 𝑦 ((𝑠 = (𝑓‘𝑤) ∧ 𝑡 = (𝑓‘𝑧)) ∧ 𝑤 E 𝑧)}) → 𝑓 Isom E , 𝑅 (𝑦, ran 𝑓))
44	41, 42, 43	sylancl 586	. . . . . . . . . . . . . 14 ⊢ ((𝑦 ∈ On ∧ 𝑓:𝑦–1-1→𝐴) → 𝑓 Isom E , 𝑅 (𝑦, ran 𝑓))
45		isores2 7279	. . . . . . . . . . . . . 14 ⊢ (𝑓 Isom E , 𝑅 (𝑦, ran 𝑓) ↔ 𝑓 Isom E , (𝑅 ∩ (ran 𝑓 × ran 𝑓))(𝑦, ran 𝑓))
46	44, 45	sylib 218	. . . . . . . . . . . . 13 ⊢ ((𝑦 ∈ On ∧ 𝑓:𝑦–1-1→𝐴) → 𝑓 Isom E , (𝑅 ∩ (ran 𝑓 × ran 𝑓))(𝑦, ran 𝑓))
47		isowe 7295	. . . . . . . . . . . . 13 ⊢ (𝑓 Isom E , (𝑅 ∩ (ran 𝑓 × ran 𝑓))(𝑦, ran 𝑓) → ( E We 𝑦 ↔ (𝑅 ∩ (ran 𝑓 × ran 𝑓)) We ran 𝑓))
48	46, 47	syl 17	. . . . . . . . . . . 12 ⊢ ((𝑦 ∈ On ∧ 𝑓:𝑦–1-1→𝐴) → ( E We 𝑦 ↔ (𝑅 ∩ (ran 𝑓 × ran 𝑓)) We ran 𝑓))
49	39, 48	mpbid 232	. . . . . . . . . . 11 ⊢ ((𝑦 ∈ On ∧ 𝑓:𝑦–1-1→𝐴) → (𝑅 ∩ (ran 𝑓 × ran 𝑓)) We ran 𝑓)
50		weso 5615	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑅 ∩ (ran 𝑓 × ran 𝑓)) We ran 𝑓 → (𝑅 ∩ (ran 𝑓 × ran 𝑓)) Or ran 𝑓)
51	49, 50	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑦 ∈ On ∧ 𝑓:𝑦–1-1→𝐴) → (𝑅 ∩ (ran 𝑓 × ran 𝑓)) Or ran 𝑓)
52		inss2 4190	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑅 ∩ (ran 𝑓 × ran 𝑓)) ⊆ (ran 𝑓 × ran 𝑓)
53	52	brel 5689	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑥(𝑅 ∩ (ran 𝑓 × ran 𝑓))𝑥 → (𝑥 ∈ ran 𝑓 ∧ 𝑥 ∈ ran 𝑓))
54	53	simpld 494	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥(𝑅 ∩ (ran 𝑓 × ran 𝑓))𝑥 → 𝑥 ∈ ran 𝑓)
55		sonr 5556	. . . . . . . . . . . . . . . . 17 ⊢ (((𝑅 ∩ (ran 𝑓 × ran 𝑓)) Or ran 𝑓 ∧ 𝑥 ∈ ran 𝑓) → ¬ 𝑥(𝑅 ∩ (ran 𝑓 × ran 𝑓))𝑥)
56	51, 54, 55	syl2an 596	. . . . . . . . . . . . . . . 16 ⊢ (((𝑦 ∈ On ∧ 𝑓:𝑦–1-1→𝐴) ∧ 𝑥(𝑅 ∩ (ran 𝑓 × ran 𝑓))𝑥) → ¬ 𝑥(𝑅 ∩ (ran 𝑓 × ran 𝑓))𝑥)
57	56	pm2.01da 798	. . . . . . . . . . . . . . 15 ⊢ ((𝑦 ∈ On ∧ 𝑓:𝑦–1-1→𝐴) → ¬ 𝑥(𝑅 ∩ (ran 𝑓 × ran 𝑓))𝑥)
58	57	alrimiv 1928	. . . . . . . . . . . . . 14 ⊢ ((𝑦 ∈ On ∧ 𝑓:𝑦–1-1→𝐴) → ∀𝑥 ¬ 𝑥(𝑅 ∩ (ran 𝑓 × ran 𝑓))𝑥)
59		intirr 6075	. . . . . . . . . . . . . 14 ⊢ (((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∩ I ) = ∅ ↔ ∀𝑥 ¬ 𝑥(𝑅 ∩ (ran 𝑓 × ran 𝑓))𝑥)
60	58, 59	sylibr 234	. . . . . . . . . . . . 13 ⊢ ((𝑦 ∈ On ∧ 𝑓:𝑦–1-1→𝐴) → ((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∩ I ) = ∅)
61		disj3 4406	. . . . . . . . . . . . 13 ⊢ (((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∩ I ) = ∅ ↔ (𝑅 ∩ (ran 𝑓 × ran 𝑓)) = ((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ))
62	60, 61	sylib 218	. . . . . . . . . . . 12 ⊢ ((𝑦 ∈ On ∧ 𝑓:𝑦–1-1→𝐴) → (𝑅 ∩ (ran 𝑓 × ran 𝑓)) = ((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ))
63		weeq1 5611	. . . . . . . . . . . 12 ⊢ ((𝑅 ∩ (ran 𝑓 × ran 𝑓)) = ((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ) → ((𝑅 ∩ (ran 𝑓 × ran 𝑓)) We ran 𝑓 ↔ ((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ) We ran 𝑓))
64	62, 63	syl 17	. . . . . . . . . . 11 ⊢ ((𝑦 ∈ On ∧ 𝑓:𝑦–1-1→𝐴) → ((𝑅 ∩ (ran 𝑓 × ran 𝑓)) We ran 𝑓 ↔ ((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ) We ran 𝑓))
65	49, 64	mpbid 232	. . . . . . . . . 10 ⊢ ((𝑦 ∈ On ∧ 𝑓:𝑦–1-1→𝐴) → ((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ) We ran 𝑓)
66	36	adantr 480	. . . . . . . . . . . 12 ⊢ ((𝑦 ∈ On ∧ 𝑓:𝑦–1-1→𝐴) → Ord 𝑦)
67		isoeq3 7265	. . . . . . . . . . . . . 14 ⊢ ((𝑅 ∩ (ran 𝑓 × ran 𝑓)) = ((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ) → (𝑓 Isom E , (𝑅 ∩ (ran 𝑓 × ran 𝑓))(𝑦, ran 𝑓) ↔ 𝑓 Isom E , ( (𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I )(𝑦, ran 𝑓)))
68	62, 67	syl 17	. . . . . . . . . . . . 13 ⊢ ((𝑦 ∈ On ∧ 𝑓:𝑦–1-1→𝐴) → (𝑓 Isom E , (𝑅 ∩ (ran 𝑓 × ran 𝑓))(𝑦, ran 𝑓) ↔ 𝑓 Isom E , ( (𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I )(𝑦, ran 𝑓)))
69	46, 68	mpbid 232	. . . . . . . . . . . 12 ⊢ ((𝑦 ∈ On ∧ 𝑓:𝑦–1-1→𝐴) → 𝑓 Isom E , ( (𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I )(𝑦, ran 𝑓))
70		vex 3444	. . . . . . . . . . . . . . 15 ⊢ 𝑓 ∈ V
71	70	rnex 7852	. . . . . . . . . . . . . 14 ⊢ ran 𝑓 ∈ V
72		exse 5584	. . . . . . . . . . . . . 14 ⊢ (ran 𝑓 ∈ V → ((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ) Se ran 𝑓)
73	71, 72	ax-mp 5	. . . . . . . . . . . . 13 ⊢ ((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ) Se ran 𝑓
74		eqid 2736	. . . . . . . . . . . . . 14 ⊢ OrdIso(((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ), ran 𝑓) = OrdIso(((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ), ran 𝑓)
75	74	oieu 9444	. . . . . . . . . . . . 13 ⊢ ((((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ) We ran 𝑓 ∧ ((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ) Se ran 𝑓) → ((Ord 𝑦 ∧ 𝑓 Isom E , ( (𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I )(𝑦, ran 𝑓)) ↔ (𝑦 = dom OrdIso(((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ), ran 𝑓) ∧ 𝑓 = OrdIso(((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ), ran 𝑓))))
76	65, 73, 75	sylancl 586	. . . . . . . . . . . 12 ⊢ ((𝑦 ∈ On ∧ 𝑓:𝑦–1-1→𝐴) → ((Ord 𝑦 ∧ 𝑓 Isom E , ( (𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I )(𝑦, ran 𝑓)) ↔ (𝑦 = dom OrdIso(((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ), ran 𝑓) ∧ 𝑓 = OrdIso(((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ), ran 𝑓))))
77	66, 69, 76	mpbi2and 712	. . . . . . . . . . 11 ⊢ ((𝑦 ∈ On ∧ 𝑓:𝑦–1-1→𝐴) → (𝑦 = dom OrdIso(((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ), ran 𝑓) ∧ 𝑓 = OrdIso(((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ), ran 𝑓)))
78	77	simpld 494	. . . . . . . . . 10 ⊢ ((𝑦 ∈ On ∧ 𝑓:𝑦–1-1→𝐴) → 𝑦 = dom OrdIso(((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ), ran 𝑓))
79	71, 71	xpex 7698	. . . . . . . . . . . 12 ⊢ (ran 𝑓 × ran 𝑓) ∈ V
80	79	inex2 5263	. . . . . . . . . . 11 ⊢ ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) ∈ V
81		sseq1 3959	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑟 = ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) → (𝑟 ⊆ (ran 𝑓 × ran 𝑓) ↔ ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) ⊆ (ran 𝑓 × ran 𝑓)))
82	33, 81	mpbiri 258	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑟 = ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) → 𝑟 ⊆ (ran 𝑓 × ran 𝑓))
83		dmss 5851	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑟 ⊆ (ran 𝑓 × ran 𝑓) → dom 𝑟 ⊆ dom (ran 𝑓 × ran 𝑓))
84	82, 83	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ (𝑟 = ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) → dom 𝑟 ⊆ dom (ran 𝑓 × ran 𝑓))
85		dmxpid 5879	. . . . . . . . . . . . . . . . 17 ⊢ dom (ran 𝑓 × ran 𝑓) = ran 𝑓
86	84, 85	sseqtrdi 3974	. . . . . . . . . . . . . . . 16 ⊢ (𝑟 = ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) → dom 𝑟 ⊆ ran 𝑓)
87		dmresi 6011	. . . . . . . . . . . . . . . . 17 ⊢ dom ( I ↾ ran 𝑓) = ran 𝑓
88		sseq2 3960	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑟 = ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) → (( I ↾ ran 𝑓) ⊆ 𝑟 ↔ ( I ↾ ran 𝑓) ⊆ ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓))))
89	31, 88	mpbiri 258	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑟 = ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) → ( I ↾ ran 𝑓) ⊆ 𝑟)
90		dmss 5851	. . . . . . . . . . . . . . . . . 18 ⊢ (( I ↾ ran 𝑓) ⊆ 𝑟 → dom ( I ↾ ran 𝑓) ⊆ dom 𝑟)
91	89, 90	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ (𝑟 = ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) → dom ( I ↾ ran 𝑓) ⊆ dom 𝑟)
92	87, 91	eqsstrrid 3973	. . . . . . . . . . . . . . . 16 ⊢ (𝑟 = ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) → ran 𝑓 ⊆ dom 𝑟)
93	86, 92	eqssd 3951	. . . . . . . . . . . . . . 15 ⊢ (𝑟 = ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) → dom 𝑟 = ran 𝑓)
94	93	sseq1d 3965	. . . . . . . . . . . . . 14 ⊢ (𝑟 = ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) → (dom 𝑟 ⊆ 𝐴 ↔ ran 𝑓 ⊆ 𝐴))
95	93	reseq2d 5938	. . . . . . . . . . . . . . 15 ⊢ (𝑟 = ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) → ( I ↾ dom 𝑟) = ( I ↾ ran 𝑓))
96		id 22	. . . . . . . . . . . . . . 15 ⊢ (𝑟 = ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) → 𝑟 = ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)))
97	95, 96	sseq12d 3967	. . . . . . . . . . . . . 14 ⊢ (𝑟 = ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) → (( I ↾ dom 𝑟) ⊆ 𝑟 ↔ ( I ↾ ran 𝑓) ⊆ ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓))))
98	93	sqxpeqd 5656	. . . . . . . . . . . . . . 15 ⊢ (𝑟 = ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) → (dom 𝑟 × dom 𝑟) = (ran 𝑓 × ran 𝑓))
99	96, 98	sseq12d 3967	. . . . . . . . . . . . . 14 ⊢ (𝑟 = ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) → (𝑟 ⊆ (dom 𝑟 × dom 𝑟) ↔ ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) ⊆ (ran 𝑓 × ran 𝑓)))
100	94, 97, 99	3anbi123d 1438	. . . . . . . . . . . . 13 ⊢ (𝑟 = ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) → ((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ↔ (ran 𝑓 ⊆ 𝐴 ∧ ( I ↾ ran 𝑓) ⊆ ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) ∧ ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) ⊆ (ran 𝑓 × ran 𝑓))))
101		difeq1 4071	. . . . . . . . . . . . . . 15 ⊢ (𝑟 = ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) → (𝑟 ∖ I ) = (((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) ∖ I ))
102		difun2 4433	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑅 ∪ I ) ∖ I ) = (𝑅 ∖ I )
103	102	ineq1i 4168	. . . . . . . . . . . . . . . 16 ⊢ (((𝑅 ∪ I ) ∖ I ) ∩ (ran 𝑓 × ran 𝑓)) = ((𝑅 ∖ I ) ∩ (ran 𝑓 × ran 𝑓))
104		indif1 4234	. . . . . . . . . . . . . . . 16 ⊢ (((𝑅 ∪ I ) ∖ I ) ∩ (ran 𝑓 × ran 𝑓)) = (((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) ∖ I )
105		indif1 4234	. . . . . . . . . . . . . . . 16 ⊢ ((𝑅 ∖ I ) ∩ (ran 𝑓 × ran 𝑓)) = ((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I )
106	103, 104, 105	3eqtr3i 2767	. . . . . . . . . . . . . . 15 ⊢ (((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) ∖ I ) = ((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I )
107	101, 106	eqtrdi 2787	. . . . . . . . . . . . . 14 ⊢ (𝑟 = ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) → (𝑟 ∖ I ) = ((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ))
108	107, 93	weeq12d 5613	. . . . . . . . . . . . 13 ⊢ (𝑟 = ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) → ((𝑟 ∖ I ) We dom 𝑟 ↔ ((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ) We ran 𝑓))
109	100, 108	anbi12d 632	. . . . . . . . . . . 12 ⊢ (𝑟 = ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) → (((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ↔ ((ran 𝑓 ⊆ 𝐴 ∧ ( I ↾ ran 𝑓) ⊆ ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) ∧ ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) ⊆ (ran 𝑓 × ran 𝑓)) ∧ ((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ) We ran 𝑓)))
110		oieq1 9417	. . . . . . . . . . . . . . . 16 ⊢ ((𝑟 ∖ I ) = ((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ) → OrdIso((𝑟 ∖ I ), dom 𝑟) = OrdIso(((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ), dom 𝑟))
111	107, 110	syl 17	. . . . . . . . . . . . . . 15 ⊢ (𝑟 = ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) → OrdIso((𝑟 ∖ I ), dom 𝑟) = OrdIso(((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ), dom 𝑟))
112		oieq2 9418	. . . . . . . . . . . . . . . 16 ⊢ (dom 𝑟 = ran 𝑓 → OrdIso(((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ), dom 𝑟) = OrdIso(((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ), ran 𝑓))
113	93, 112	syl 17	. . . . . . . . . . . . . . 15 ⊢ (𝑟 = ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) → OrdIso(((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ), dom 𝑟) = OrdIso(((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ), ran 𝑓))
114	111, 113	eqtrd 2771	. . . . . . . . . . . . . 14 ⊢ (𝑟 = ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) → OrdIso((𝑟 ∖ I ), dom 𝑟) = OrdIso(((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ), ran 𝑓))
115	114	dmeqd 5854	. . . . . . . . . . . . 13 ⊢ (𝑟 = ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) → dom OrdIso((𝑟 ∖ I ), dom 𝑟) = dom OrdIso(((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ), ran 𝑓))
116	115	eqeq2d 2747	. . . . . . . . . . . 12 ⊢ (𝑟 = ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) → (𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟) ↔ 𝑦 = dom OrdIso(((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ), ran 𝑓)))
117	109, 116	anbi12d 632	. . . . . . . . . . 11 ⊢ (𝑟 = ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) → ((((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟)) ↔ (((ran 𝑓 ⊆ 𝐴 ∧ ( I ↾ ran 𝑓) ⊆ ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) ∧ ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) ⊆ (ran 𝑓 × ran 𝑓)) ∧ ((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ) We ran 𝑓) ∧ 𝑦 = dom OrdIso(((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ), ran 𝑓))))
118	80, 117	spcev 3560	. . . . . . . . . 10 ⊢ ((((ran 𝑓 ⊆ 𝐴 ∧ ( I ↾ ran 𝑓) ⊆ ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) ∧ ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) ⊆ (ran 𝑓 × ran 𝑓)) ∧ ((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ) We ran 𝑓) ∧ 𝑦 = dom OrdIso(((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ), ran 𝑓)) → ∃𝑟(((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟)))
119	35, 65, 78, 118	syl21anc 837	. . . . . . . . 9 ⊢ ((𝑦 ∈ On ∧ 𝑓:𝑦–1-1→𝐴) → ∃𝑟(((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟)))
120	119	ex 412	. . . . . . . 8 ⊢ (𝑦 ∈ On → (𝑓:𝑦–1-1→𝐴 → ∃𝑟(((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟))))
121	120	exlimdv 1934	. . . . . . 7 ⊢ (𝑦 ∈ On → (∃𝑓 𝑓:𝑦–1-1→𝐴 → ∃𝑟(((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟))))
122		brdomi 8896	. . . . . . 7 ⊢ (𝑦 ≼ 𝐴 → ∃𝑓 𝑓:𝑦–1-1→𝐴)
123	121, 122	impel 505	. . . . . 6 ⊢ ((𝑦 ∈ On ∧ 𝑦 ≼ 𝐴) → ∃𝑟(((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟)))
124		simpr 484	. . . . . . . . . . 11 ⊢ ((((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟)) → 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟))
125		vex 3444	. . . . . . . . . . . . 13 ⊢ 𝑟 ∈ V
126	125	dmex 7851	. . . . . . . . . . . 12 ⊢ dom 𝑟 ∈ V
127		eqid 2736	. . . . . . . . . . . . 13 ⊢ OrdIso((𝑟 ∖ I ), dom 𝑟) = OrdIso((𝑟 ∖ I ), dom 𝑟)
128	127	oion 9441	. . . . . . . . . . . 12 ⊢ (dom 𝑟 ∈ V → dom OrdIso((𝑟 ∖ I ), dom 𝑟) ∈ On)
129	126, 128	ax-mp 5	. . . . . . . . . . 11 ⊢ dom OrdIso((𝑟 ∖ I ), dom 𝑟) ∈ On
130	124, 129	eqeltrdi 2844	. . . . . . . . . 10 ⊢ ((((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟)) → 𝑦 ∈ On)
131	130	adantl 481	. . . . . . . . 9 ⊢ ((𝐴 ∈ 𝑉 ∧ (((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟))) → 𝑦 ∈ On)
132		simplr 768	. . . . . . . . . . . 12 ⊢ ((((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟)) → (𝑟 ∖ I ) We dom 𝑟)
133	127	oien 9443	. . . . . . . . . . . 12 ⊢ ((dom 𝑟 ∈ V ∧ (𝑟 ∖ I ) We dom 𝑟) → dom OrdIso((𝑟 ∖ I ), dom 𝑟) ≈ dom 𝑟)
134	126, 132, 133	sylancr 587	. . . . . . . . . . 11 ⊢ ((((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟)) → dom OrdIso((𝑟 ∖ I ), dom 𝑟) ≈ dom 𝑟)
135	124, 134	eqbrtrd 5120	. . . . . . . . . 10 ⊢ ((((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟)) → 𝑦 ≈ dom 𝑟)
136		ssdomg 8937	. . . . . . . . . . 11 ⊢ (𝐴 ∈ 𝑉 → (dom 𝑟 ⊆ 𝐴 → dom 𝑟 ≼ 𝐴))
137		simpll1 1213	. . . . . . . . . . 11 ⊢ ((((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟)) → dom 𝑟 ⊆ 𝐴)
138	136, 137	impel 505	. . . . . . . . . 10 ⊢ ((𝐴 ∈ 𝑉 ∧ (((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟))) → dom 𝑟 ≼ 𝐴)
139		endomtr 8949	. . . . . . . . . 10 ⊢ ((𝑦 ≈ dom 𝑟 ∧ dom 𝑟 ≼ 𝐴) → 𝑦 ≼ 𝐴)
140	135, 138, 139	syl2an2 686	. . . . . . . . 9 ⊢ ((𝐴 ∈ 𝑉 ∧ (((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟))) → 𝑦 ≼ 𝐴)
141	131, 140	jca 511	. . . . . . . 8 ⊢ ((𝐴 ∈ 𝑉 ∧ (((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟))) → (𝑦 ∈ On ∧ 𝑦 ≼ 𝐴))
142	141	ex 412	. . . . . . 7 ⊢ (𝐴 ∈ 𝑉 → ((((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟)) → (𝑦 ∈ On ∧ 𝑦 ≼ 𝐴)))
143	142	exlimdv 1934	. . . . . 6 ⊢ (𝐴 ∈ 𝑉 → (∃𝑟(((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟)) → (𝑦 ∈ On ∧ 𝑦 ≼ 𝐴)))
144	123, 143	impbid2 226	. . . . 5 ⊢ (𝐴 ∈ 𝑉 → ((𝑦 ∈ On ∧ 𝑦 ≼ 𝐴) ↔ ∃𝑟(((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟))))
145	23, 144	bitrid 283	. . . 4 ⊢ (𝐴 ∈ 𝑉 → (𝑦 ∈ {𝑥 ∈ On ∣ 𝑥 ≼ 𝐴} ↔ ∃𝑟(((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟))))
146	145	eqabdv 2869	. . 3 ⊢ (𝐴 ∈ 𝑉 → {𝑥 ∈ On ∣ 𝑥 ≼ 𝐴} = {𝑦 ∣ ∃𝑟(((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟))})
147	21, 146	eqtr4id 2790	. 2 ⊢ (𝐴 ∈ 𝑉 → ran 𝐹 = {𝑥 ∈ On ∣ 𝑥 ≼ 𝐴})
148	15, 18, 147	3pm3.2i 1340	1 ⊢ (dom 𝐹 ⊆ 𝒫 (𝐴 × 𝐴) ∧ Fun 𝐹 ∧ (𝐴 ∈ 𝑉 → ran 𝐹 = {𝑥 ∈ On ∣ 𝑥 ≼ 𝐴}))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 206   ∧ wa 395   ∧ w3a 1086  ∀wal 1539   = wceq 1541  ∃wex 1780   ∈ wcel 2113  {cab 2714  ∃wrex 3060  {crab 3399  Vcvv 3440   ∖ cdif 3898   ∪ cun 3899   ∩ cin 3900   ⊆ wss 3901  ∅c0 4285  𝒫 cpw 4554   class class class wbr 5098  {copab 5160   I cid 5518   E cep 5523   Or wor 5531   Se wse 5575   We wwe 5576   × cxp 5622  dom cdm 5624  ran crn 5625   ↾ cres 5626  Ord word 6316  Oncon0 6317  Fun wfun 6486  ⟶wf 6488  –1-1→wf1 6489  –1-1-onto→wf1o 6491  ‘cfv 6492   Isom wiso 6493   ≈ cen 8880   ≼ cdom 8881  OrdIsocoi 9414

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 2115  ax-9 2123  ax-10 2146  ax-11 2162  ax-12 2184  ax-ext 2708  ax-rep 5224  ax-sep 5241  ax-nul 5251  ax-pow 5310  ax-pr 5377  ax-un 7680

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1544  df-fal 1554  df-ex 1781  df-nf 1785  df-sb 2068  df-mo 2539  df-eu 2569  df-clab 2715  df-cleq 2728  df-clel 2811  df-nfc 2885  df-ne 2933  df-ral 3052  df-rex 3061  df-rmo 3350  df-reu 3351  df-rab 3400  df-v 3442  df-sbc 3741  df-csb 3850  df-dif 3904  df-un 3906  df-in 3908  df-ss 3918  df-pss 3921  df-nul 4286  df-if 4480  df-pw 4556  df-sn 4581  df-pr 4583  df-op 4587  df-uni 4864  df-iun 4948  df-br 5099  df-opab 5161  df-mpt 5180  df-tr 5206  df-id 5519  df-eprel 5524  df-po 5532  df-so 5533  df-fr 5577  df-se 5578  df-we 5579  df-xp 5630  df-rel 5631  df-cnv 5632  df-co 5633  df-dm 5634  df-rn 5635  df-res 5636  df-ima 5637  df-pred 6259  df-ord 6320  df-on 6321  df-lim 6322  df-suc 6323  df-iota 6448  df-fun 6494  df-fn 6495  df-f 6496  df-f1 6497  df-fo 6498  df-f1o 6499  df-fv 6500  df-isom 6501  df-riota 7315  df-ov 7361  df-2nd 7934  df-frecs 8223  df-wrecs 8254  df-recs 8303  df-en 8884  df-dom 8885  df-oi 9415

This theorem is referenced by:  hartogslem2  9448  harwdom  9496