fact: Parameters (xH_xI : forall p:positive, xH<>xI p) (xH_xO : forall p:positive, xH<>xO p) (eq_xI : forall p q:positive, p=q-> xI p = xI q) (eq_xO : forall p q:positive, p=q-> xO p = xO q) (not_eq_xI : forall p q:positive, p<>q-> xI p <> xI q) (not_eq_xO : forall p q:positive, p<>q-> xO p <> xO q) (xI_xO : forall p q:positive, xI p<>xO q).
imports: ZArith List Arith Lia Zwf Inverse_Image Extraction