fact: Definition Ex6_31_Xnz z n := Zo (rep z) (fun t => exists i j, [/\ natp i, natp j, n <=c i & t = Vf (equipotent_ex Nat(rep z)) (Vf (equipotent_ex (coarse Nat) Nat) (J i j))]).
imports: mathcomp(ssreflect ssrbool ssrfun eqtype)