| Step | Hyp | Ref
| Expression |
| 1 | | eqid 2231 |
. . . 4
⊢
(Vtx‘𝑆) =
(Vtx‘𝑆) |
| 2 | | eqid 2231 |
. . . 4
⊢
(Vtx‘𝐺) =
(Vtx‘𝐺) |
| 3 | | eqid 2231 |
. . . 4
⊢
(iEdg‘𝑆) =
(iEdg‘𝑆) |
| 4 | | eqid 2231 |
. . . 4
⊢
(iEdg‘𝐺) =
(iEdg‘𝐺) |
| 5 | | eqid 2231 |
. . . 4
⊢
(Edg‘𝑆) =
(Edg‘𝑆) |
| 6 | 1, 2, 3, 4, 5 | subgrprop2 16110 |
. . 3
⊢ (𝑆 SubGraph 𝐺 → ((Vtx‘𝑆) ⊆ (Vtx‘𝐺) ∧ (iEdg‘𝑆) ⊆ (iEdg‘𝐺) ∧ (Edg‘𝑆) ⊆ 𝒫 (Vtx‘𝑆))) |
| 7 | | umgruhgr 15963 |
. . . . . . . . . 10
⊢ (𝐺 ∈ UMGraph → 𝐺 ∈
UHGraph) |
| 8 | | subgruhgrfun 16118 |
. . . . . . . . . 10
⊢ ((𝐺 ∈ UHGraph ∧ 𝑆 SubGraph 𝐺) → Fun (iEdg‘𝑆)) |
| 9 | 7, 8 | sylan 283 |
. . . . . . . . 9
⊢ ((𝐺 ∈ UMGraph ∧ 𝑆 SubGraph 𝐺) → Fun (iEdg‘𝑆)) |
| 10 | 9 | ancoms 268 |
. . . . . . . 8
⊢ ((𝑆 SubGraph 𝐺 ∧ 𝐺 ∈ UMGraph) → Fun
(iEdg‘𝑆)) |
| 11 | 10 | funfnd 5357 |
. . . . . . 7
⊢ ((𝑆 SubGraph 𝐺 ∧ 𝐺 ∈ UMGraph) → (iEdg‘𝑆) Fn dom (iEdg‘𝑆)) |
| 12 | 11 | adantl 277 |
. . . . . 6
⊢
((((Vtx‘𝑆)
⊆ (Vtx‘𝐺) ∧
(iEdg‘𝑆) ⊆
(iEdg‘𝐺) ∧
(Edg‘𝑆) ⊆
𝒫 (Vtx‘𝑆))
∧ (𝑆 SubGraph 𝐺 ∧ 𝐺 ∈ UMGraph)) → (iEdg‘𝑆) Fn dom (iEdg‘𝑆)) |
| 13 | | simplrl 537 |
. . . . . . . . 9
⊢
(((((Vtx‘𝑆)
⊆ (Vtx‘𝐺) ∧
(iEdg‘𝑆) ⊆
(iEdg‘𝐺) ∧
(Edg‘𝑆) ⊆
𝒫 (Vtx‘𝑆))
∧ (𝑆 SubGraph 𝐺 ∧ 𝐺 ∈ UMGraph)) ∧ 𝑥 ∈ dom (iEdg‘𝑆)) → 𝑆 SubGraph 𝐺) |
| 14 | | simplrr 538 |
. . . . . . . . 9
⊢
(((((Vtx‘𝑆)
⊆ (Vtx‘𝐺) ∧
(iEdg‘𝑆) ⊆
(iEdg‘𝐺) ∧
(Edg‘𝑆) ⊆
𝒫 (Vtx‘𝑆))
∧ (𝑆 SubGraph 𝐺 ∧ 𝐺 ∈ UMGraph)) ∧ 𝑥 ∈ dom (iEdg‘𝑆)) → 𝐺 ∈ UMGraph) |
| 15 | | simpr 110 |
. . . . . . . . 9
⊢
(((((Vtx‘𝑆)
⊆ (Vtx‘𝐺) ∧
(iEdg‘𝑆) ⊆
(iEdg‘𝐺) ∧
(Edg‘𝑆) ⊆
𝒫 (Vtx‘𝑆))
∧ (𝑆 SubGraph 𝐺 ∧ 𝐺 ∈ UMGraph)) ∧ 𝑥 ∈ dom (iEdg‘𝑆)) → 𝑥 ∈ dom (iEdg‘𝑆)) |
| 16 | 1, 3 | subumgredg2en 16121 |
. . . . . . . . 9
⊢ ((𝑆 SubGraph 𝐺 ∧ 𝐺 ∈ UMGraph ∧ 𝑥 ∈ dom (iEdg‘𝑆)) → ((iEdg‘𝑆)‘𝑥) ∈ {𝑒 ∈ 𝒫 (Vtx‘𝑆) ∣ 𝑒 ≈ 2o}) |
| 17 | 13, 14, 15, 16 | syl3anc 1273 |
. . . . . . . 8
⊢
(((((Vtx‘𝑆)
⊆ (Vtx‘𝐺) ∧
(iEdg‘𝑆) ⊆
(iEdg‘𝐺) ∧
(Edg‘𝑆) ⊆
𝒫 (Vtx‘𝑆))
∧ (𝑆 SubGraph 𝐺 ∧ 𝐺 ∈ UMGraph)) ∧ 𝑥 ∈ dom (iEdg‘𝑆)) → ((iEdg‘𝑆)‘𝑥) ∈ {𝑒 ∈ 𝒫 (Vtx‘𝑆) ∣ 𝑒 ≈ 2o}) |
| 18 | 17 | ralrimiva 2605 |
. . . . . . 7
⊢
((((Vtx‘𝑆)
⊆ (Vtx‘𝐺) ∧
(iEdg‘𝑆) ⊆
(iEdg‘𝐺) ∧
(Edg‘𝑆) ⊆
𝒫 (Vtx‘𝑆))
∧ (𝑆 SubGraph 𝐺 ∧ 𝐺 ∈ UMGraph)) → ∀𝑥 ∈ dom (iEdg‘𝑆)((iEdg‘𝑆)‘𝑥) ∈ {𝑒 ∈ 𝒫 (Vtx‘𝑆) ∣ 𝑒 ≈ 2o}) |
| 19 | | fnfvrnss 5807 |
. . . . . . 7
⊢
(((iEdg‘𝑆) Fn
dom (iEdg‘𝑆) ∧
∀𝑥 ∈ dom
(iEdg‘𝑆)((iEdg‘𝑆)‘𝑥) ∈ {𝑒 ∈ 𝒫 (Vtx‘𝑆) ∣ 𝑒 ≈ 2o}) → ran
(iEdg‘𝑆) ⊆
{𝑒 ∈ 𝒫
(Vtx‘𝑆) ∣ 𝑒 ≈
2o}) |
| 20 | 12, 18, 19 | syl2anc 411 |
. . . . . 6
⊢
((((Vtx‘𝑆)
⊆ (Vtx‘𝐺) ∧
(iEdg‘𝑆) ⊆
(iEdg‘𝐺) ∧
(Edg‘𝑆) ⊆
𝒫 (Vtx‘𝑆))
∧ (𝑆 SubGraph 𝐺 ∧ 𝐺 ∈ UMGraph)) → ran
(iEdg‘𝑆) ⊆
{𝑒 ∈ 𝒫
(Vtx‘𝑆) ∣ 𝑒 ≈
2o}) |
| 21 | | df-f 5330 |
. . . . . 6
⊢
((iEdg‘𝑆):dom
(iEdg‘𝑆)⟶{𝑒 ∈ 𝒫 (Vtx‘𝑆) ∣ 𝑒 ≈ 2o} ↔
((iEdg‘𝑆) Fn dom
(iEdg‘𝑆) ∧ ran
(iEdg‘𝑆) ⊆
{𝑒 ∈ 𝒫
(Vtx‘𝑆) ∣ 𝑒 ≈
2o})) |
| 22 | 12, 20, 21 | sylanbrc 417 |
. . . . 5
⊢
((((Vtx‘𝑆)
⊆ (Vtx‘𝐺) ∧
(iEdg‘𝑆) ⊆
(iEdg‘𝐺) ∧
(Edg‘𝑆) ⊆
𝒫 (Vtx‘𝑆))
∧ (𝑆 SubGraph 𝐺 ∧ 𝐺 ∈ UMGraph)) → (iEdg‘𝑆):dom (iEdg‘𝑆)⟶{𝑒 ∈ 𝒫 (Vtx‘𝑆) ∣ 𝑒 ≈ 2o}) |
| 23 | | subgrv 16106 |
. . . . . . . 8
⊢ (𝑆 SubGraph 𝐺 → (𝑆 ∈ V ∧ 𝐺 ∈ V)) |
| 24 | 23 | simpld 112 |
. . . . . . 7
⊢ (𝑆 SubGraph 𝐺 → 𝑆 ∈ V) |
| 25 | 1, 3 | isumgren 15955 |
. . . . . . 7
⊢ (𝑆 ∈ V → (𝑆 ∈ UMGraph ↔
(iEdg‘𝑆):dom
(iEdg‘𝑆)⟶{𝑒 ∈ 𝒫 (Vtx‘𝑆) ∣ 𝑒 ≈ 2o})) |
| 26 | 24, 25 | syl 14 |
. . . . . 6
⊢ (𝑆 SubGraph 𝐺 → (𝑆 ∈ UMGraph ↔ (iEdg‘𝑆):dom (iEdg‘𝑆)⟶{𝑒 ∈ 𝒫 (Vtx‘𝑆) ∣ 𝑒 ≈ 2o})) |
| 27 | 26 | ad2antrl 490 |
. . . . 5
⊢
((((Vtx‘𝑆)
⊆ (Vtx‘𝐺) ∧
(iEdg‘𝑆) ⊆
(iEdg‘𝐺) ∧
(Edg‘𝑆) ⊆
𝒫 (Vtx‘𝑆))
∧ (𝑆 SubGraph 𝐺 ∧ 𝐺 ∈ UMGraph)) → (𝑆 ∈ UMGraph ↔ (iEdg‘𝑆):dom (iEdg‘𝑆)⟶{𝑒 ∈ 𝒫 (Vtx‘𝑆) ∣ 𝑒 ≈ 2o})) |
| 28 | 22, 27 | mpbird 167 |
. . . 4
⊢
((((Vtx‘𝑆)
⊆ (Vtx‘𝐺) ∧
(iEdg‘𝑆) ⊆
(iEdg‘𝐺) ∧
(Edg‘𝑆) ⊆
𝒫 (Vtx‘𝑆))
∧ (𝑆 SubGraph 𝐺 ∧ 𝐺 ∈ UMGraph)) → 𝑆 ∈ UMGraph) |
| 29 | 28 | ex 115 |
. . 3
⊢
(((Vtx‘𝑆)
⊆ (Vtx‘𝐺) ∧
(iEdg‘𝑆) ⊆
(iEdg‘𝐺) ∧
(Edg‘𝑆) ⊆
𝒫 (Vtx‘𝑆))
→ ((𝑆 SubGraph 𝐺 ∧ 𝐺 ∈ UMGraph) → 𝑆 ∈ UMGraph)) |
| 30 | 6, 29 | syl 14 |
. 2
⊢ (𝑆 SubGraph 𝐺 → ((𝑆 SubGraph 𝐺 ∧ 𝐺 ∈ UMGraph) → 𝑆 ∈ UMGraph)) |
| 31 | 30 | anabsi8 584 |
1
⊢ ((𝐺 ∈ UMGraph ∧ 𝑆 SubGraph 𝐺) → 𝑆 ∈ UMGraph) |