fact: Definition E46_hprop h := forall r Z, r <=c (m -c h) -> sub Z (domain X) -> cardinal Z = r +c h -> exists T, [/\ sub T (domain Y), cardinal T = r & forall j, inc j T -> meet (Vg Y j) (unionb (restr X Z))].
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat)