fact: Definition ppr8_hyp R f n:= [/\ fgraph f, domain f = Nint n, (forall i, i <c n -> inc (Vg f i) R) & (forall i, i<c n -> ~ (sub (Vg f i) (unionb (restr f (Nint i)))))].
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat)