Theorem isubgredg 48358

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 6839	. . . . . 6 ⊢ (iEdg‘𝐻) = (iEdg‘(𝐺 ISubGr 𝑆))
3		isubgredg.v	. . . . . . 7 ⊢ 𝑉 = (Vtx‘𝐺)
4		eqid 2737	. . . . . . 7 ⊢ (iEdg‘𝐺) = (iEdg‘𝐺)
5	3, 4	isubgriedg 48355	. . . . . 6 ⊢ ((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) → (iEdg‘(𝐺 ISubGr 𝑆)) = ((iEdg‘𝐺) ↾ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆}))
6	2, 5	eqtrid 2784	. . . . 5 ⊢ ((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) → (iEdg‘𝐻) = ((iEdg‘𝐺) ↾ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆}))
7	6	rneqd 5889	. . . 4 ⊢ ((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) → ran (iEdg‘𝐻) = ran ((iEdg‘𝐺) ↾ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆}))
8	7	eleq2d 2823	. . 3 ⊢ ((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) → (𝐾 ∈ ran (iEdg‘𝐻) ↔ 𝐾 ∈ ran ((iEdg‘𝐺) ↾ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆})))
9	3, 4	uhgrf 29149	. . . . . . 7 ⊢ (𝐺 ∈ UHGraph → (iEdg‘𝐺):dom (iEdg‘𝐺)⟶(𝒫 𝑉 ∖ {∅}))
10	9	adantr 480	. . . . . 6 ⊢ ((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) → (iEdg‘𝐺):dom (iEdg‘𝐺)⟶(𝒫 𝑉 ∖ {∅}))
11	10	ffnd 6665	. . . . 5 ⊢ ((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) → (iEdg‘𝐺) Fn dom (iEdg‘𝐺))
12		ssrab2 4021	. . . . . 6 ⊢ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆} ⊆ dom (iEdg‘𝐺)
13	12	a1i 11	. . . . 5 ⊢ ((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) → {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆} ⊆ dom (iEdg‘𝐺))
14	11, 13	fnssresd 6618	. . . 4 ⊢ ((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) → ((iEdg‘𝐺) ↾ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆}) Fn {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆})
15		fvelrnb 6896	. . . 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 17	. . 3 ⊢ ((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) → (𝐾 ∈ ran ((iEdg‘𝐺) ↾ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆}) ↔ ∃𝑥 ∈ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆} (((iEdg‘𝐺) ↾ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆})‘𝑥) = 𝐾))
17		fvres 6855	. . . . . . . 8 ⊢ (𝑥 ∈ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆} → (((iEdg‘𝐺) ↾ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆})‘𝑥) = ((iEdg‘𝐺)‘𝑥))
18	17	adantl 481	. . . . . . 7 ⊢ (((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) ∧ 𝑥 ∈ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆}) → (((iEdg‘𝐺) ↾ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆})‘𝑥) = ((iEdg‘𝐺)‘𝑥))
19	18	eqeq1d 2739	. . . . . 6 ⊢ (((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) ∧ 𝑥 ∈ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆}) → ((((iEdg‘𝐺) ↾ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆})‘𝑥) = 𝐾 ↔ ((iEdg‘𝐺)‘𝑥) = 𝐾))
20		fveq2 6836	. . . . . . . . . . 11 ⊢ (𝑖 = 𝑥 → ((iEdg‘𝐺)‘𝑖) = ((iEdg‘𝐺)‘𝑥))
21	20	sseq1d 3954	. . . . . . . . . 10 ⊢ (𝑖 = 𝑥 → (((iEdg‘𝐺)‘𝑖) ⊆ 𝑆 ↔ ((iEdg‘𝐺)‘𝑥) ⊆ 𝑆))
22	21	elrab 3635	. . . . . . . . 9 ⊢ (𝑥 ∈ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆} ↔ (𝑥 ∈ dom (iEdg‘𝐺) ∧ ((iEdg‘𝐺)‘𝑥) ⊆ 𝑆))
23	4	uhgrfun 29153	. . . . . . . . . . . . 13 ⊢ (𝐺 ∈ UHGraph → Fun (iEdg‘𝐺))
24	23	adantr 480	. . . . . . . . . . . 12 ⊢ ((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) → Fun (iEdg‘𝐺))
25		simpl 482	. . . . . . . . . . . 12 ⊢ ((𝑥 ∈ dom (iEdg‘𝐺) ∧ ((iEdg‘𝐺)‘𝑥) ⊆ 𝑆) → 𝑥 ∈ dom (iEdg‘𝐺))
26		fvelrn 7024	. . . . . . . . . . . 12 ⊢ ((Fun (iEdg‘𝐺) ∧ 𝑥 ∈ dom (iEdg‘𝐺)) → ((iEdg‘𝐺)‘𝑥) ∈ ran (iEdg‘𝐺))
27	24, 25, 26	syl2anr 598	. . . . . . . . . . 11 ⊢ (((𝑥 ∈ dom (iEdg‘𝐺) ∧ ((iEdg‘𝐺)‘𝑥) ⊆ 𝑆) ∧ (𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉)) → ((iEdg‘𝐺)‘𝑥) ∈ ran (iEdg‘𝐺))
28		simpr 484	. . . . . . . . . . . 12 ⊢ ((𝑥 ∈ dom (iEdg‘𝐺) ∧ ((iEdg‘𝐺)‘𝑥) ⊆ 𝑆) → ((iEdg‘𝐺)‘𝑥) ⊆ 𝑆)
29	28	adantr 480	. . . . . . . . . . 11 ⊢ (((𝑥 ∈ dom (iEdg‘𝐺) ∧ ((iEdg‘𝐺)‘𝑥) ⊆ 𝑆) ∧ (𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉)) → ((iEdg‘𝐺)‘𝑥) ⊆ 𝑆)
30	27, 29	jca 511	. . . . . . . . . 10 ⊢ (((𝑥 ∈ dom (iEdg‘𝐺) ∧ ((iEdg‘𝐺)‘𝑥) ⊆ 𝑆) ∧ (𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉)) → (((iEdg‘𝐺)‘𝑥) ∈ ran (iEdg‘𝐺) ∧ ((iEdg‘𝐺)‘𝑥) ⊆ 𝑆))
31	30	ex 412	. . . . . . . . 9 ⊢ ((𝑥 ∈ dom (iEdg‘𝐺) ∧ ((iEdg‘𝐺)‘𝑥) ⊆ 𝑆) → ((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) → (((iEdg‘𝐺)‘𝑥) ∈ ran (iEdg‘𝐺) ∧ ((iEdg‘𝐺)‘𝑥) ⊆ 𝑆)))
32	22, 31	sylbi 217	. . . . . . . 8 ⊢ (𝑥 ∈ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆} → ((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) → (((iEdg‘𝐺)‘𝑥) ∈ ran (iEdg‘𝐺) ∧ ((iEdg‘𝐺)‘𝑥) ⊆ 𝑆)))
33	32	impcom 407	. . . . . . 7 ⊢ (((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) ∧ 𝑥 ∈ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆}) → (((iEdg‘𝐺)‘𝑥) ∈ ran (iEdg‘𝐺) ∧ ((iEdg‘𝐺)‘𝑥) ⊆ 𝑆))
34		eleq1 2825	. . . . . . . 8 ⊢ (((iEdg‘𝐺)‘𝑥) = 𝐾 → (((iEdg‘𝐺)‘𝑥) ∈ ran (iEdg‘𝐺) ↔ 𝐾 ∈ ran (iEdg‘𝐺)))
35		sseq1 3948	. . . . . . . 8 ⊢ (((iEdg‘𝐺)‘𝑥) = 𝐾 → (((iEdg‘𝐺)‘𝑥) ⊆ 𝑆 ↔ 𝐾 ⊆ 𝑆))
36	34, 35	anbi12d 633	. . . . . . 7 ⊢ (((iEdg‘𝐺)‘𝑥) = 𝐾 → ((((iEdg‘𝐺)‘𝑥) ∈ ran (iEdg‘𝐺) ∧ ((iEdg‘𝐺)‘𝑥) ⊆ 𝑆) ↔ (𝐾 ∈ ran (iEdg‘𝐺) ∧ 𝐾 ⊆ 𝑆)))
37	33, 36	syl5ibcom 245	. . . . . 6 ⊢ (((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) ∧ 𝑥 ∈ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆}) → (((iEdg‘𝐺)‘𝑥) = 𝐾 → (𝐾 ∈ ran (iEdg‘𝐺) ∧ 𝐾 ⊆ 𝑆)))
38	19, 37	sylbid 240	. . . . 5 ⊢ (((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) ∧ 𝑥 ∈ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆}) → ((((iEdg‘𝐺) ↾ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆})‘𝑥) = 𝐾 → (𝐾 ∈ ran (iEdg‘𝐺) ∧ 𝐾 ⊆ 𝑆)))
39	38	rexlimdva 3139	. . . 4 ⊢ ((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) → (∃𝑥 ∈ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆} (((iEdg‘𝐺) ↾ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆})‘𝑥) = 𝐾 → (𝐾 ∈ ran (iEdg‘𝐺) ∧ 𝐾 ⊆ 𝑆)))
40		edgval 29136	. . . . . . . . . . 11 ⊢ (Edg‘𝐺) = ran (iEdg‘𝐺)
41	40	eqcomi 2746	. . . . . . . . . 10 ⊢ ran (iEdg‘𝐺) = (Edg‘𝐺)
42	41	eleq2i 2829	. . . . . . . . 9 ⊢ (𝐾 ∈ ran (iEdg‘𝐺) ↔ 𝐾 ∈ (Edg‘𝐺))
43	4	edgiedgb 29141	. . . . . . . . 9 ⊢ (Fun (iEdg‘𝐺) → (𝐾 ∈ (Edg‘𝐺) ↔ ∃𝑥 ∈ dom (iEdg‘𝐺)𝐾 = ((iEdg‘𝐺)‘𝑥)))
44	42, 43	bitrid 283	. . . . . . . 8 ⊢ (Fun (iEdg‘𝐺) → (𝐾 ∈ ran (iEdg‘𝐺) ↔ ∃𝑥 ∈ dom (iEdg‘𝐺)𝐾 = ((iEdg‘𝐺)‘𝑥)))
45	23, 44	syl 17	. . . . . . 7 ⊢ (𝐺 ∈ UHGraph → (𝐾 ∈ ran (iEdg‘𝐺) ↔ ∃𝑥 ∈ dom (iEdg‘𝐺)𝐾 = ((iEdg‘𝐺)‘𝑥)))
46	45	adantr 480	. . . . . 6 ⊢ ((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) → (𝐾 ∈ ran (iEdg‘𝐺) ↔ ∃𝑥 ∈ dom (iEdg‘𝐺)𝐾 = ((iEdg‘𝐺)‘𝑥)))
47		simprl 771	. . . . . . . . . . . . 13 ⊢ ((((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) ∧ 𝐾 ⊆ 𝑆) ∧ (𝑥 ∈ dom (iEdg‘𝐺) ∧ 𝐾 = ((iEdg‘𝐺)‘𝑥))) → 𝑥 ∈ dom (iEdg‘𝐺))
48		simpr 484	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑥 ∈ dom (iEdg‘𝐺) ∧ 𝐾 = ((iEdg‘𝐺)‘𝑥)) → 𝐾 = ((iEdg‘𝐺)‘𝑥))
49	48	sseq1d 3954	. . . . . . . . . . . . . . . 16 ⊢ ((𝑥 ∈ dom (iEdg‘𝐺) ∧ 𝐾 = ((iEdg‘𝐺)‘𝑥)) → (𝐾 ⊆ 𝑆 ↔ ((iEdg‘𝐺)‘𝑥) ⊆ 𝑆))
50	49	biimpcd 249	. . . . . . . . . . . . . . 15 ⊢ (𝐾 ⊆ 𝑆 → ((𝑥 ∈ dom (iEdg‘𝐺) ∧ 𝐾 = ((iEdg‘𝐺)‘𝑥)) → ((iEdg‘𝐺)‘𝑥) ⊆ 𝑆))
51	50	adantl 481	. . . . . . . . . . . . . 14 ⊢ (((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) ∧ 𝐾 ⊆ 𝑆) → ((𝑥 ∈ dom (iEdg‘𝐺) ∧ 𝐾 = ((iEdg‘𝐺)‘𝑥)) → ((iEdg‘𝐺)‘𝑥) ⊆ 𝑆))
52	51	imp 406	. . . . . . . . . . . . 13 ⊢ ((((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) ∧ 𝐾 ⊆ 𝑆) ∧ (𝑥 ∈ dom (iEdg‘𝐺) ∧ 𝐾 = ((iEdg‘𝐺)‘𝑥))) → ((iEdg‘𝐺)‘𝑥) ⊆ 𝑆)
53	47, 52, 22	sylanbrc 584	. . . . . . . . . . . 12 ⊢ ((((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) ∧ 𝐾 ⊆ 𝑆) ∧ (𝑥 ∈ dom (iEdg‘𝐺) ∧ 𝐾 = ((iEdg‘𝐺)‘𝑥))) → 𝑥 ∈ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆})
54		simpr 484	. . . . . . . . . . . . 13 ⊢ (((((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) ∧ 𝐾 ⊆ 𝑆) ∧ (𝑥 ∈ dom (iEdg‘𝐺) ∧ 𝐾 = ((iEdg‘𝐺)‘𝑥))) ∧ 𝑥 ∈ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆}) → 𝑥 ∈ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆})
55	48	eqcomd 2743	. . . . . . . . . . . . . . 15 ⊢ ((𝑥 ∈ dom (iEdg‘𝐺) ∧ 𝐾 = ((iEdg‘𝐺)‘𝑥)) → ((iEdg‘𝐺)‘𝑥) = 𝐾)
56	55	adantl 481	. . . . . . . . . . . . . 14 ⊢ ((((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) ∧ 𝐾 ⊆ 𝑆) ∧ (𝑥 ∈ dom (iEdg‘𝐺) ∧ 𝐾 = ((iEdg‘𝐺)‘𝑥))) → ((iEdg‘𝐺)‘𝑥) = 𝐾)
57	17, 56	sylan9eqr 2794	. . . . . . . . . . . . 13 ⊢ (((((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) ∧ 𝐾 ⊆ 𝑆) ∧ (𝑥 ∈ dom (iEdg‘𝐺) ∧ 𝐾 = ((iEdg‘𝐺)‘𝑥))) ∧ 𝑥 ∈ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆}) → (((iEdg‘𝐺) ↾ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆})‘𝑥) = 𝐾)
58	54, 57	jca 511	. . . . . . . . . . . 12 ⊢ (((((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) ∧ 𝐾 ⊆ 𝑆) ∧ (𝑥 ∈ dom (iEdg‘𝐺) ∧ 𝐾 = ((iEdg‘𝐺)‘𝑥))) ∧ 𝑥 ∈ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆}) → (𝑥 ∈ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆} ∧ (((iEdg‘𝐺) ↾ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆})‘𝑥) = 𝐾))
59	53, 58	mpdan 688	. . . . . . . . . . 11 ⊢ ((((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) ∧ 𝐾 ⊆ 𝑆) ∧ (𝑥 ∈ dom (iEdg‘𝐺) ∧ 𝐾 = ((iEdg‘𝐺)‘𝑥))) → (𝑥 ∈ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆} ∧ (((iEdg‘𝐺) ↾ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆})‘𝑥) = 𝐾))
60	59	ex 412	. . . . . . . . . 10 ⊢ (((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) ∧ 𝐾 ⊆ 𝑆) → ((𝑥 ∈ dom (iEdg‘𝐺) ∧ 𝐾 = ((iEdg‘𝐺)‘𝑥)) → (𝑥 ∈ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆} ∧ (((iEdg‘𝐺) ↾ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆})‘𝑥) = 𝐾)))
61	60	eximdv 1919	. . . . . . . . 9 ⊢ (((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) ∧ 𝐾 ⊆ 𝑆) → (∃𝑥(𝑥 ∈ dom (iEdg‘𝐺) ∧ 𝐾 = ((iEdg‘𝐺)‘𝑥)) → ∃𝑥(𝑥 ∈ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆} ∧ (((iEdg‘𝐺) ↾ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆})‘𝑥) = 𝐾)))
62		df-rex 3063	. . . . . . . . 9 ⊢ (∃𝑥 ∈ dom (iEdg‘𝐺)𝐾 = ((iEdg‘𝐺)‘𝑥) ↔ ∃𝑥(𝑥 ∈ dom (iEdg‘𝐺) ∧ 𝐾 = ((iEdg‘𝐺)‘𝑥)))
63		df-rex 3063	. . . . . . . . 9 ⊢ (∃𝑥 ∈ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆} (((iEdg‘𝐺) ↾ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆})‘𝑥) = 𝐾 ↔ ∃𝑥(𝑥 ∈ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆} ∧ (((iEdg‘𝐺) ↾ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆})‘𝑥) = 𝐾))
64	61, 62, 63	3imtr4g 296	. . . . . . . 8 ⊢ (((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) ∧ 𝐾 ⊆ 𝑆) → (∃𝑥 ∈ dom (iEdg‘𝐺)𝐾 = ((iEdg‘𝐺)‘𝑥) → ∃𝑥 ∈ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆} (((iEdg‘𝐺) ↾ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆})‘𝑥) = 𝐾))
65	64	ex 412	. . . . . . 7 ⊢ ((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) → (𝐾 ⊆ 𝑆 → (∃𝑥 ∈ dom (iEdg‘𝐺)𝐾 = ((iEdg‘𝐺)‘𝑥) → ∃𝑥 ∈ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆} (((iEdg‘𝐺) ↾ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆})‘𝑥) = 𝐾)))
66	65	com23 86	. . . . . 6 ⊢ ((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) → (∃𝑥 ∈ dom (iEdg‘𝐺)𝐾 = ((iEdg‘𝐺)‘𝑥) → (𝐾 ⊆ 𝑆 → ∃𝑥 ∈ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆} (((iEdg‘𝐺) ↾ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆})‘𝑥) = 𝐾)))
67	46, 66	sylbid 240	. . . . 5 ⊢ ((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) → (𝐾 ∈ ran (iEdg‘𝐺) → (𝐾 ⊆ 𝑆 → ∃𝑥 ∈ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆} (((iEdg‘𝐺) ↾ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆})‘𝑥) = 𝐾)))
68	67	impd 410	. . . 4 ⊢ ((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) → ((𝐾 ∈ ran (iEdg‘𝐺) ∧ 𝐾 ⊆ 𝑆) → ∃𝑥 ∈ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆} (((iEdg‘𝐺) ↾ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆})‘𝑥) = 𝐾))
69	39, 68	impbid 212	. . 3 ⊢ ((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) → (∃𝑥 ∈ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆} (((iEdg‘𝐺) ↾ {𝑖 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑖) ⊆ 𝑆})‘𝑥) = 𝐾 ↔ (𝐾 ∈ ran (iEdg‘𝐺) ∧ 𝐾 ⊆ 𝑆)))
70	8, 16, 69	3bitrd 305	. 2 ⊢ ((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) → (𝐾 ∈ ran (iEdg‘𝐻) ↔ (𝐾 ∈ ran (iEdg‘𝐺) ∧ 𝐾 ⊆ 𝑆)))
71		isubgredg.i	. . . 4 ⊢ 𝐼 = (Edg‘𝐻)
72		edgval 29136	. . . 4 ⊢ (Edg‘𝐻) = ran (iEdg‘𝐻)
73	71, 72	eqtri 2760	. . 3 ⊢ 𝐼 = ran (iEdg‘𝐻)
74	73	eleq2i 2829	. 2 ⊢ (𝐾 ∈ 𝐼 ↔ 𝐾 ∈ ran (iEdg‘𝐻))
75		isubgredg.e	. . . . 5 ⊢ 𝐸 = (Edg‘𝐺)
76	75, 40	eqtri 2760	. . . 4 ⊢ 𝐸 = ran (iEdg‘𝐺)
77	76	eleq2i 2829	. . 3 ⊢ (𝐾 ∈ 𝐸 ↔ 𝐾 ∈ ran (iEdg‘𝐺))
78	77	anbi1i 625	. 2 ⊢ ((𝐾 ∈ 𝐸 ∧ 𝐾 ⊆ 𝑆) ↔ (𝐾 ∈ ran (iEdg‘𝐺) ∧ 𝐾 ⊆ 𝑆))
79	70, 74, 78	3bitr4g 314	1 ⊢ ((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) → (𝐾 ∈ 𝐼 ↔ (𝐾 ∈ 𝐸 ∧ 𝐾 ⊆ 𝑆)))

Syntax hints:   → wi 4   ↔ wb 206   ∧ wa 395   = wceq 1542  ∃wex 1781   ∈ wcel 2114  ∃wrex 3062  {crab 3390   ∖ cdif 3887   ⊆ wss 3890  ∅c0 4274  𝒫 cpw 4542  {csn 4568  dom cdm 5626  ran crn 5627   ↾ cres 5628  Fun wfun 6488   Fn wfn 6489  ⟶wf 6490  ‘cfv 6494  (class class class)co 7362  Vtxcvtx 29083  iEdgciedg 29084  Edgcedg 29134  UHGraphcuhgr 29143   ISubGr cisubgr 48352

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1912  ax-6 1969  ax-7 2010  ax-8 2116  ax-9 2124  ax-10 2147  ax-11 2163  ax-12 2185  ax-ext 2709  ax-sep 5232  ax-nul 5242  ax-pr 5372  ax-un 7684

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3an 1089  df-tru 1545  df-fal 1555  df-ex 1782  df-nf 1786  df-sb 2069  df-mo 2540  df-eu 2570  df-clab 2716  df-cleq 2729  df-clel 2812  df-nfc 2886  df-ne 2934  df-ral 3053  df-rex 3063  df-rab 3391  df-v 3432  df-sbc 3730  df-csb 3839  df-dif 3893  df-un 3895  df-in 3897  df-ss 3907  df-nul 4275  df-if 4468  df-pw 4544  df-sn 4569  df-pr 4571  df-op 4575  df-uni 4852  df-br 5087  df-opab 5149  df-mpt 5168  df-id 5521  df-xp 5632  df-rel 5633  df-cnv 5634  df-co 5635  df-dm 5636  df-rn 5637  df-res 5638  df-iota 6450  df-fun 6496  df-fn 6497  df-f 6498  df-fv 6502  df-ov 7365  df-oprab 7366  df-mpo 7367  df-2nd 7938  df-iedg 29086  df-edg 29135  df-uhgr 29145  df-isubgr 48353

This theorem is referenced by:  isubgr3stgrlem6  48463  isubgr3stgrlem7  48464  isubgr3stgrlem8  48465