proposition: Lemma vfun_bodyE (G H : pre_graph) (isG : is_graph G) (isH : is_graph H) x (h : bij (pack G isG) (pack H isH)) (p : x \in vset G) : vfun_body h x = val (h (Sub x p)).
proof: Proof. unlock vfun_body. case: {-}_ / idP => [p'|]; by [rewrite (bool_irrelevance p p')| move/(_ p)]. Qed.
imports: Coq(Relation_Definitions Morphisms RelationClasses) mathcomp(all_ssreflect) GraphTheory(edone finite_quotient preliminaries bij equiv) GraphTheory(setoid_bigop structures pttdom mgraph mgraph2) GraphTheory(rewriting open_confluence finmap_plus)