proposition: Lemma Ex6_32p5d A B k0: Exercise6_32_hyp A B k0 -> natp k0 -> ~ (exists2 i, intp i & nonempty (Vg A i)) -> zint_k2 (fdfer A) /\ zint_k2 (fdfer B).
proof: Proof. move => ha hb hc. move:(ha) =>[qa qb _ _]. split; apply:fin_disj_fam_prop10d => //. move => hh; case: hc; exact: (Ex6_32p4d ha hb hh). Qed.
imports: mathcomp(ssreflect ssrbool ssrfun eqtype)