fact: Definition mobile_r R := forall X Y, inc X R -> inc Y R -> X <> Y -> forall z, inc z (X\cap Y) -> exists Z, [/\ inc Z R, sub Z (X \cup Y) & ~ (inc z Z)].
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat)