fact: Definition representative_system s f x := [/\ function f, partition_w_fam (graph f) x, sub s x & forall i, inc i (source f) -> singletonp ((Vf f i) \cap s)].
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat)