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