simp  [reducedConcat, reverse_toList]
V : Type u
E : Type v
inst✝¹ : DecidableEq V
inst✝ : DecidableEq E
G : Graph V E
v w u : V
p : EdgePath G v w
e : EdgeBetween G w u
⊢ Even (List.length (toList (p:+e))) ↔ ¬Even (List.length (toList p))
V : Type u
E : Type v
inst✝¹ : DecidableEq V
inst✝ : DecidableEq E
G : Graph V E
v w u : V
p : EdgePath G v w
e : EdgeBetween G w u
⊢ Even (List.length (toList (redCons (EdgeBetween.bar e) (reverse p)))) ↔ ¬Even (List.length (toList p))