Theorem isubgredg 48767

Description: An edge of an induced subgraph of a hypergraph is an edge of the hypergraph connecting vertices of the subgraph. (Contributed by AV, 24-Sep-2025.)

Hypotheses

Ref	Expression
isubgredg.v	⊢ 𝑉 = (Vtx‘𝐺)
isubgredg.e	⊢ 𝐸 = (Edg‘𝐺)
isubgredg.h	⊢ 𝐻 = (𝐺 ISubGr 𝑆)
isubgredg.i	⊢ 𝐼 = (Edg‘𝐻)

Assertion

Ref	Expression
isubgredg	⊢ ((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) → (𝐾 ∈ 𝐼 ↔ (𝐾 ∈ 𝐸 ∧ 𝐾 ⊆ 𝑆)))

Proof of Theorem isubgredg

Dummy variables 𝑥 𝑖 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		isubgredg.h	. . . . . . 7 ⊢ 𝐻 = (𝐺 ISubGr 𝑆)
2	1	fveq2i 6885	. . . . . 6 ⊢ (iEdg‘𝐻) = (iEdg‘(𝐺 ISubGr 𝑆))
3		isubgredg.v	. . . . . . 7 ⊢ 𝑉 = (Vtx‘𝐺)
4		eqid 2762	. . . . . . 7 ⊢ (iEdg‘𝐺) = (iEdg‘𝐺)
5	3, 4	isubgriedg 48764	. . . . . 6 ⊢ ((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) → (iEdg‘(𝐺 ISubGr 𝑆)) = ((iEdg‘𝐺) ↾ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆}))
6	2, 5	eqtrid 2809	. . . . 5 ⊢ ((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) → (iEdg‘𝐻) = ((iEdg‘𝐺) ↾ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆}))
7	6	rneqd 5926	. . . 4 ⊢ ((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) → ran (iEdg‘𝐻) = ran ((iEdg‘𝐺) ↾ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆}))
8	7	eleq2d 2848	. . 3 ⊢ ((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) → (𝐾 ∈ ran (iEdg‘𝐻) ↔ 𝐾 ∈ ran ((iEdg‘𝐺) ↾ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆})))
9	3, 4	uhgrf 29503	. . . . . . 7 ⊢ (𝐺 ∈ UHGraph → (iEdg‘𝐺):dom (iEdg‘𝐺)⟶(𝒫 𝑉 ∖ {∅}))
10	9	adantr 486	. . . . . 6 ⊢ ((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) → (iEdg‘𝐺):dom (iEdg‘𝐺)⟶(𝒫 𝑉 ∖ {∅}))
11	10	ffnd 6707	. . . . 5 ⊢ ((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) → (iEdg‘𝐺) Fn dom (iEdg‘𝐺))
12		ssrab2 4031	. . . . . 6 ⊢ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆} ⊆ dom (iEdg‘𝐺)
13	12	a1i 11	. . . . 5 ⊢ ((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) → {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆} ⊆ dom (iEdg‘𝐺))
14	11, 13	fnssresd 6660	. . . 4 ⊢ ((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) → ((iEdg‘𝐺) ↾ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆}) Fn {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆})
15		fvelrnb 6942	. . . 4 ⊢ (((iEdg‘𝐺) ↾ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆}) Fn {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆} → (𝐾 ∈ ran ((iEdg‘𝐺) ↾ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆}) ↔ ∃𝑥 ∈ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆} (((iEdg‘𝐺) ↾ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆})‘𝑥) = 𝐾))
16	14, 15	syl 18	. . 3 ⊢ ((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) → (𝐾 ∈ ran ((iEdg‘𝐺) ↾ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆}) ↔ ∃𝑥 ∈ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆} (((iEdg‘𝐺) ↾ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆})‘𝑥) = 𝐾))
17		fvres 6901	. . . . . . . 8 ⊢ (𝑥 ∈ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆} → (((iEdg‘𝐺) ↾ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆})‘𝑥) = ((iEdg‘𝐺)‘𝑥))
18	17	adantl 487	. . . . . . 7 ⊢ (((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) ∧ 𝑥 ∈ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆}) → (((iEdg‘𝐺) ↾ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆})‘𝑥) = ((iEdg‘𝐺)‘𝑥))
19	18	eqeq1d 2764	. . . . . 6 ⊢ (((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) ∧ 𝑥 ∈ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆}) → ((((iEdg‘𝐺) ↾ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆})‘𝑥) = 𝐾 ↔ ((iEdg‘𝐺)‘𝑥) = 𝐾))
20		fveq2 6882	. . . . . . . . . . 11 ⊢ (𝑖 = 𝑥 → ((iEdg‘𝐺)‘𝑖) = ((iEdg‘𝐺)‘𝑥))
21	20	sseq1d 3965	. . . . . . . . . 10 ⊢ (𝑖 = 𝑥 → (((iEdg‘𝐺)‘𝑖) ⊆ 𝑆 ↔ ((iEdg‘𝐺)‘𝑥) ⊆ 𝑆))
22	21	elrab 3648	. . . . . . . . 9 ⊢ (𝑥 ∈ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆} ↔ (𝑥 ∈ dom (iEdg‘𝐺) ∧ ((iEdg‘𝐺)‘𝑥) ⊆ 𝑆))
23	4	uhgrfun 29507	. . . . . . . . . . . . 13 ⊢ (𝐺 ∈ UHGraph → Fun (iEdg‘𝐺))
24	23	adantr 486	. . . . . . . . . . . 12 ⊢ ((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) → Fun (iEdg‘𝐺))
25		simpl 488	. . . . . . . . . . . 12 ⊢ ((𝑥 ∈ dom (iEdg‘𝐺) ∧ ((iEdg‘𝐺)‘𝑥) ⊆ 𝑆) → 𝑥 ∈ dom (iEdg‘𝐺))
26		fvelrn 7072	. . . . . . . . . . . 12 ⊢ ((Fun (iEdg‘𝐺) ∧ 𝑥 ∈ dom (iEdg‘𝐺)) → ((iEdg‘𝐺)‘𝑥) ∈ ran (iEdg‘𝐺))
27	24, 25, 26	syl2anr 609	. . . . . . . . . . 11 ⊢ (((𝑥 ∈ dom (iEdg‘𝐺) ∧ ((iEdg‘𝐺)‘𝑥) ⊆ 𝑆) ∧ (𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉)) → ((iEdg‘𝐺)‘𝑥) ∈ ran (iEdg‘𝐺))
28		simpr 490	. . . . . . . . . . . 12 ⊢ ((𝑥 ∈ dom (iEdg‘𝐺) ∧ ((iEdg‘𝐺)‘𝑥) ⊆ 𝑆) → ((iEdg‘𝐺)‘𝑥) ⊆ 𝑆)
29	28	adantr 486	. . . . . . . . . . 11 ⊢ (((𝑥 ∈ dom (iEdg‘𝐺) ∧ ((iEdg‘𝐺)‘𝑥) ⊆ 𝑆) ∧ (𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉)) → ((iEdg‘𝐺)‘𝑥) ⊆ 𝑆)
30	27, 29	jca 521	. . . . . . . . . 10 ⊢ (((𝑥 ∈ dom (iEdg‘𝐺) ∧ ((iEdg‘𝐺)‘𝑥) ⊆ 𝑆) ∧ (𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉)) → (((iEdg‘𝐺)‘𝑥) ∈ ran (iEdg‘𝐺) ∧ ((iEdg‘𝐺)‘𝑥) ⊆ 𝑆))
31	30	ex 418	. . . . . . . . 9 ⊢ ((𝑥 ∈ dom (iEdg‘𝐺) ∧ ((iEdg‘𝐺)‘𝑥) ⊆ 𝑆) → ((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) → (((iEdg‘𝐺)‘𝑥) ∈ ran (iEdg‘𝐺) ∧ ((iEdg‘𝐺)‘𝑥) ⊆ 𝑆)))
32	22, 31	sylbi 220	. . . . . . . 8 ⊢ (𝑥 ∈ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆} → ((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) → (((iEdg‘𝐺)‘𝑥) ∈ ran (iEdg‘𝐺) ∧ ((iEdg‘𝐺)‘𝑥) ⊆ 𝑆)))
33	32	impcom 413	. . . . . . 7 ⊢ (((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) ∧ 𝑥 ∈ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆}) → (((iEdg‘𝐺)‘𝑥) ∈ ran (iEdg‘𝐺) ∧ ((iEdg‘𝐺)‘𝑥) ⊆ 𝑆))
34		eleq1 2850	. . . . . . . 8 ⊢ (((iEdg‘𝐺)‘𝑥) = 𝐾 → (((iEdg‘𝐺)‘𝑥) ∈ ran (iEdg‘𝐺) ↔ 𝐾 ∈ ran (iEdg‘𝐺)))
35		sseq1 3959	. . . . . . . 8 ⊢ (((iEdg‘𝐺)‘𝑥) = 𝐾 → (((iEdg‘𝐺)‘𝑥) ⊆ 𝑆 ↔ 𝐾 ⊆ 𝑆))
36	34, 35	anbi12d 644	. . . . . . 7 ⊢ (((iEdg‘𝐺)‘𝑥) = 𝐾 → ((((iEdg‘𝐺)‘𝑥) ∈ ran (iEdg‘𝐺) ∧ ((iEdg‘𝐺)‘𝑥) ⊆ 𝑆) ↔ (𝐾 ∈ ran (iEdg‘𝐺) ∧ 𝐾 ⊆ 𝑆)))
37	33, 36	syl5ibcom 248	. . . . . 6 ⊢ (((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) ∧ 𝑥 ∈ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆}) → (((iEdg‘𝐺)‘𝑥) = 𝐾 → (𝐾 ∈ ran (iEdg‘𝐺) ∧ 𝐾 ⊆ 𝑆)))
38	19, 37	sylbid 243	. . . . 5 ⊢ (((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) ∧ 𝑥 ∈ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆}) → ((((iEdg‘𝐺) ↾ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆})‘𝑥) = 𝐾 → (𝐾 ∈ ran (iEdg‘𝐺) ∧ 𝐾 ⊆ 𝑆)))
39	38	rexlimdva 3165	. . . 4 ⊢ ((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) → (∃𝑥 ∈ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆} (((iEdg‘𝐺) ↾ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆})‘𝑥) = 𝐾 → (𝐾 ∈ ran (iEdg‘𝐺) ∧ 𝐾 ⊆ 𝑆)))
40		edgval 29490	. . . . . . . . . . 11 ⊢ (Edg‘𝐺) = ran (iEdg‘𝐺)
41	40	eqcomi 2771	. . . . . . . . . 10 ⊢ ran (iEdg‘𝐺) = (Edg‘𝐺)
42	41	eleq2i 2854	. . . . . . . . 9 ⊢ (𝐾 ∈ ran (iEdg‘𝐺) ↔ 𝐾 ∈ (Edg‘𝐺))
43	4	edgiedgb 29495	. . . . . . . . 9 ⊢ (Fun (iEdg‘𝐺) → (𝐾 ∈ (Edg‘𝐺) ↔ ∃𝑥 ∈ dom (iEdg‘𝐺)𝐾 = ((iEdg‘𝐺)‘𝑥)))
44	42, 43	bitrid 286	. . . . . . . 8 ⊢ (Fun (iEdg‘𝐺) → (𝐾 ∈ ran (iEdg‘𝐺) ↔ ∃𝑥 ∈ dom (iEdg‘𝐺)𝐾 = ((iEdg‘𝐺)‘𝑥)))
45	23, 44	syl 18	. . . . . . 7 ⊢ (𝐺 ∈ UHGraph → (𝐾 ∈ ran (iEdg‘𝐺) ↔ ∃𝑥 ∈ dom (iEdg‘𝐺)𝐾 = ((iEdg‘𝐺)‘𝑥)))
46	45	adantr 486	. . . . . 6 ⊢ ((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) → (𝐾 ∈ ran (iEdg‘𝐺) ↔ ∃𝑥 ∈ dom (iEdg‘𝐺)𝐾 = ((iEdg‘𝐺)‘𝑥)))
47		simprl 783	. . . . . . . . . . . . 13 ⊢ ((((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) ∧ 𝐾 ⊆ 𝑆) ∧ (𝑥 ∈ dom (iEdg‘𝐺) ∧ 𝐾 = ((iEdg‘𝐺)‘𝑥))) → 𝑥 ∈ dom (iEdg‘𝐺))
48		simpr 490	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑥 ∈ dom (iEdg‘𝐺) ∧ 𝐾 = ((iEdg‘𝐺)‘𝑥)) → 𝐾 = ((iEdg‘𝐺)‘𝑥))
49	48	sseq1d 3965	. . . . . . . . . . . . . . . 16 ⊢ ((𝑥 ∈ dom (iEdg‘𝐺) ∧ 𝐾 = ((iEdg‘𝐺)‘𝑥)) → (𝐾 ⊆ 𝑆 ↔ ((iEdg‘𝐺)‘𝑥) ⊆ 𝑆))
50	49	biimpcd 252	. . . . . . . . . . . . . . 15 ⊢ (𝐾 ⊆ 𝑆 → ((𝑥 ∈ dom (iEdg‘𝐺) ∧ 𝐾 = ((iEdg‘𝐺)‘𝑥)) → ((iEdg‘𝐺)‘𝑥) ⊆ 𝑆))
51	50	adantl 487	. . . . . . . . . . . . . 14 ⊢ (((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) ∧ 𝐾 ⊆ 𝑆) → ((𝑥 ∈ dom (iEdg‘𝐺) ∧ 𝐾 = ((iEdg‘𝐺)‘𝑥)) → ((iEdg‘𝐺)‘𝑥) ⊆ 𝑆))
52	51	imp 412	. . . . . . . . . . . . 13 ⊢ ((((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) ∧ 𝐾 ⊆ 𝑆) ∧ (𝑥 ∈ dom (iEdg‘𝐺) ∧ 𝐾 = ((iEdg‘𝐺)‘𝑥))) → ((iEdg‘𝐺)‘𝑥) ⊆ 𝑆)
53	47, 52, 22	sylanbrc 595	. . . . . . . . . . . 12 ⊢ ((((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) ∧ 𝐾 ⊆ 𝑆) ∧ (𝑥 ∈ dom (iEdg‘𝐺) ∧ 𝐾 = ((iEdg‘𝐺)‘𝑥))) → 𝑥 ∈ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆})
54		simpr 490	. . . . . . . . . . . . 13 ⊢ (((((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) ∧ 𝐾 ⊆ 𝑆) ∧ (𝑥 ∈ dom (iEdg‘𝐺) ∧ 𝐾 = ((iEdg‘𝐺)‘𝑥))) ∧ 𝑥 ∈ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆}) → 𝑥 ∈ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆})
55	48	eqcomd 2768	. . . . . . . . . . . . . . 15 ⊢ ((𝑥 ∈ dom (iEdg‘𝐺) ∧ 𝐾 = ((iEdg‘𝐺)‘𝑥)) → ((iEdg‘𝐺)‘𝑥) = 𝐾)
56	55	adantl 487	. . . . . . . . . . . . . 14 ⊢ ((((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) ∧ 𝐾 ⊆ 𝑆) ∧ (𝑥 ∈ dom (iEdg‘𝐺) ∧ 𝐾 = ((iEdg‘𝐺)‘𝑥))) → ((iEdg‘𝐺)‘𝑥) = 𝐾)
57	17, 56	sylan9eqr 2819	. . . . . . . . . . . . 13 ⊢ (((((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) ∧ 𝐾 ⊆ 𝑆) ∧ (𝑥 ∈ dom (iEdg‘𝐺) ∧ 𝐾 = ((iEdg‘𝐺)‘𝑥))) ∧ 𝑥 ∈ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆}) → (((iEdg‘𝐺) ↾ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆})‘𝑥) = 𝐾)
58	54, 57	jca 521	. . . . . . . . . . . 12 ⊢ (((((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) ∧ 𝐾 ⊆ 𝑆) ∧ (𝑥 ∈ dom (iEdg‘𝐺) ∧ 𝐾 = ((iEdg‘𝐺)‘𝑥))) ∧ 𝑥 ∈ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆}) → (𝑥 ∈ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆} ∧ (((iEdg‘𝐺) ↾ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆})‘𝑥) = 𝐾))
59	53, 58	mpdan 700	. . . . . . . . . . 11 ⊢ ((((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) ∧ 𝐾 ⊆ 𝑆) ∧ (𝑥 ∈ dom (iEdg‘𝐺) ∧ 𝐾 = ((iEdg‘𝐺)‘𝑥))) → (𝑥 ∈ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆} ∧ (((iEdg‘𝐺) ↾ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆})‘𝑥) = 𝐾))
60	59	ex 418	. . . . . . . . . 10 ⊢ (((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) ∧ 𝐾 ⊆ 𝑆) → ((𝑥 ∈ dom (iEdg‘𝐺) ∧ 𝐾 = ((iEdg‘𝐺)‘𝑥)) → (𝑥 ∈ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆} ∧ (((iEdg‘𝐺) ↾ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆})‘𝑥) = 𝐾)))
61	60	eximdv 1950	. . . . . . . . 9 ⊢ (((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) ∧ 𝐾 ⊆ 𝑆) → (∃𝑥(𝑥 ∈ dom (iEdg‘𝐺) ∧ 𝐾 = ((iEdg‘𝐺)‘𝑥)) → ∃𝑥(𝑥 ∈ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆} ∧ (((iEdg‘𝐺) ↾ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆})‘𝑥) = 𝐾)))
62		df-rex 3089	. . . . . . . . 9 ⊢ (∃𝑥 ∈ dom (iEdg‘𝐺)𝐾 = ((iEdg‘𝐺)‘𝑥) ↔ ∃𝑥(𝑥 ∈ dom (iEdg‘𝐺) ∧ 𝐾 = ((iEdg‘𝐺)‘𝑥)))
63		df-rex 3089	. . . . . . . . 9 ⊢ (∃𝑥 ∈ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆} (((iEdg‘𝐺) ↾ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆})‘𝑥) = 𝐾 ↔ ∃𝑥(𝑥 ∈ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆} ∧ (((iEdg‘𝐺) ↾ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆})‘𝑥) = 𝐾))
64	61, 62, 63	3imtr4g 299	. . . . . . . 8 ⊢ (((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) ∧ 𝐾 ⊆ 𝑆) → (∃𝑥 ∈ dom (iEdg‘𝐺)𝐾 = ((iEdg‘𝐺)‘𝑥) → ∃𝑥 ∈ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆} (((iEdg‘𝐺) ↾ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆})‘𝑥) = 𝐾))
65	64	ex 418	. . . . . . 7 ⊢ ((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) → (𝐾 ⊆ 𝑆 → (∃𝑥 ∈ dom (iEdg‘𝐺)𝐾 = ((iEdg‘𝐺)‘𝑥) → ∃𝑥 ∈ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆} (((iEdg‘𝐺) ↾ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆})‘𝑥) = 𝐾)))
66	65	com23 87	. . . . . 6 ⊢ ((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) → (∃𝑥 ∈ dom (iEdg‘𝐺)𝐾 = ((iEdg‘𝐺)‘𝑥) → (𝐾 ⊆ 𝑆 → ∃𝑥 ∈ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆} (((iEdg‘𝐺) ↾ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆})‘𝑥) = 𝐾)))
67	46, 66	sylbid 243	. . . . 5 ⊢ ((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) → (𝐾 ∈ ran (iEdg‘𝐺) → (𝐾 ⊆ 𝑆 → ∃𝑥 ∈ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆} (((iEdg‘𝐺) ↾ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆})‘𝑥) = 𝐾)))
68	67	impd 416	. . . 4 ⊢ ((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) → ((𝐾 ∈ ran (iEdg‘𝐺) ∧ 𝐾 ⊆ 𝑆) → ∃𝑥 ∈ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆} (((iEdg‘𝐺) ↾ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆})‘𝑥) = 𝐾))
69	39, 68	impbid 215	. . 3 ⊢ ((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) → (∃𝑥 ∈ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆} (((iEdg‘𝐺) ↾ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆})‘𝑥) = 𝐾 ↔ (𝐾 ∈ ran (iEdg‘𝐺) ∧ 𝐾 ⊆ 𝑆)))
70	8, 16, 69	3bitrd 308	. 2 ⊢ ((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) → (𝐾 ∈ ran (iEdg‘𝐻) ↔ (𝐾 ∈ ran (iEdg‘𝐺) ∧ 𝐾 ⊆ 𝑆)))
71		isubgredg.i	. . . 4 ⊢ 𝐼 = (Edg‘𝐻)
72		edgval 29490	. . . 4 ⊢ (Edg‘𝐻) = ran (iEdg‘𝐻)
73	71, 72	eqtri 2785	. . 3 ⊢ 𝐼 = ran (iEdg‘𝐻)
74	73	eleq2i 2854	. 2 ⊢ (𝐾 ∈ 𝐼 ↔ 𝐾 ∈ ran (iEdg‘𝐻))
75		isubgredg.e	. . . . 5 ⊢ 𝐸 = (Edg‘𝐺)
76	75, 40	eqtri 2785	. . . 4 ⊢ 𝐸 = ran (iEdg‘𝐺)
77	76	eleq2i 2854	. . 3 ⊢ (𝐾 ∈ 𝐸 ↔ 𝐾 ∈ ran (iEdg‘𝐺))
78	77	anbi1i 636	. 2 ⊢ ((𝐾 ∈ 𝐸 ∧ 𝐾 ⊆ 𝑆) ↔ (𝐾 ∈ ran (iEdg‘𝐺) ∧ 𝐾 ⊆ 𝑆))
79	70, 74, 78	3bitr4g 317	1 ⊢ ((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) → (𝐾 ∈ 𝐼 ↔ (𝐾 ∈ 𝐸 ∧ 𝐾 ⊆ 𝑆)))

This proof depends on syntax axioms:   → wi 4   ↔ wb 209   ∧ wa 401   = wceq 1570  ∃wex 1812   ∈ wcel 2145  ∃wrex 3088  {crab 3414   ∖ cdif 3899   ⊆ wss 3902  ∅c0 4282  𝒫 cpw 4560  {csn 4587  dom cdm 5659  ran crn 5660   ↾ cres 5661  Fun wfun 6531   Fn wfn 6532  ⟶wf 6533  ‘cfv 6537  (class class class)co 7416  Vtxcvtx 29437  iEdgciedg 29438  Edgcedg 29488  UHGraphcuhgr 29497   ISubGr cisubgr 48761

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 1943  ax-6 2000  ax-7 2041  ax-8 2147  ax-9 2155  ax-10 2178  ax-11 2194  ax-12 2215  ax-ext 2734  ax-sep 5255  ax-nul 5267  ax-pr 5402  ax-un 7739

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2566  df-eu 2596  df-clab 2741  df-cleq 2754  df-clel 2837  df-nfc 2911  df-ne 2958  df-ral 3079  df-rex 3089  df-rab 3415  df-v 3455  df-sbc 3743  df-csb 3851  df-dif 3905  df-un 3907  df-in 3909  df-ss 3919  df-nul 4283  df-if 4486  df-pw 4562  df-sn 4588  df-pr 4590  df-op 4594  df-uni 4871  df-br 5108  df-opab 5172  df-mpt 5191  df-id 5554  df-xp 5665  df-rel 5666  df-cnv 5667  df-co 5668  df-dm 5669  df-rn 5670  df-res 5671  df-iota 6493  df-fun 6539  df-fn 6540  df-f 6541  df-fv 6545  df-ov 7419  df-oprab 7420  df-mpo 7421  df-2nd 7990  df-iedg 29440  df-edg 29489  df-uhgr 29499  df-isubgr 48762

This theorem is used by:  isubgr3stgrlem6  48872  isubgr3stgrlem7  48873  isubgr3stgrlem8  48874