fact: Hypothesis (HJg: fgraph Jf) (HJd: domain Jf = L) (HJI: unionb Jf = I) (HJm: forall i j, gle rL i j -> sub (Vg Jf i) (Vg Jf j)) (HJrd: forall j, inc j L -> right_directed_on rI (Vg Jf j)).
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat)