fact: Definition inl_inv_image_compat Mi:= [/\ fgraph Mi, domain Mi = isI S', forall i, inc i (isI S') -> sub (Vg Mi i) (Vg (isE S') i) & forall p, inc p (isr S') -> sub (Vfs (Vg (isf S') p)(Vg Mi (P p))) (Vg Mi (Q p))].
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat)