fact: Fixpoint fits_upath g (l: list E) (p: upath) := match l, p with | nil, nil => True | nil, v::nil => vvalid g v | e::l', u::v::p' => adj_edge g e u v /\ fits_upath g l' (v::p') | _, _ => False end.
imports: Coq.Logic.Classical CertiGraph.lib.List_ext CertiGraph.lib.EquivDec_ext CertiGraph.graph.graph_model CertiGraph.graph.graph_relation CertiGraph.graph.path_lemmas CertiGraph.graph.graph_gen CertiGraph.graph.FiniteGraph