@@ -41,7 +41,7 @@ lemma IsVertexReachable.refl : G.IsVertexReachable k u u :=
4141lemma IsVertexReachable.symm (h : G.IsVertexReachable k u v) : G.IsVertexReachable k v u :=
4242 fun _ hs hv hu ↦ (h hs hu hv).symm
4343
44- lemma isVertexReachable_symm : G.IsVertexReachable k u v ↔ G.IsVertexReachable k v u :=
44+ lemma isVertexReachable_comm : G.IsVertexReachable k u v ↔ G.IsVertexReachable k v u :=
4545 ⟨.symm, .symm⟩
4646
4747@[gcongr]
@@ -70,21 +70,23 @@ lemma IsVertexReachable.reachable (hk : k ≠ 0) (h : G.IsVertexReachable k u v)
7070 rw [← G.isolateVerts_empty]
7171 apply h <;> simp [pos_of_ne_zero hk]
7272
73+ /-- Reachability under 1-vertex-connectivity is equivalent to standard reachability. -/
74+ @[simp]
75+ lemma isVertexReachable_one_iff : G.IsVertexReachable 1 u v ↔ G.Reachable u v := by
76+ refine ⟨(·.reachable one_ne_zero), fun h s hs hu hv ↦ ?_⟩
77+ rwa [Set.encard_eq_zero.mp <| ENat.lt_one_iff_eq_zero.mp hs, isolateVerts_empty]
78+
7379variable (G k) in
74- /-- A graph is `k`-vertex-connected if any two vertices are `k`-vertex-reachable. -/
80+ /-- A graph is `k`-vertex-connected if any two vertices are `k`-vertex-reachable.
81+ Note that we do not require the graph to have more than `k` vertices, you can use
82+ `k + 1 ≤ ENat.card V ∧ G.IsVertexConnected k` if you need this additional condition. -/
7583def IsVertexConnected : Prop :=
7684 ∀ u v : V, G.IsVertexReachable k u v
7785
7886@[simp]
7987lemma IsVertexConnected.zero : G.IsVertexConnected 0 :=
8088 fun _ _ ↦ .zero
8189
82- /-- Reachability under 1-vertex-connectivity is equivalent to standard reachability. -/
83- @[simp]
84- lemma isVertexReachable_one_iff : G.IsVertexReachable 1 u v ↔ G.Reachable u v := by
85- refine ⟨(·.reachable one_ne_zero), fun h s hs hu hv ↦ ?_⟩
86- rwa [Set.encard_eq_zero.mp <| ENat.lt_one_iff_eq_zero.mp hs, isolateVerts_empty]
87-
8890/-- 1-vertex-connectivity is equivalent to preconnectedness. -/
8991@[simp]
9092lemma isVertexConnected_one : G.IsVertexConnected 1 ↔ G.Preconnected := by
0 commit comments