proposition: Lemma Ex6_32p5b A B k0: Exercise6_32_hyp A B k0 -> natp k0 -> supp_left_unbounded (fdfc A) -> ~supp_right_unbounded (fdfc A) -> zint_k4 (fdfer A) /\ zint_k4 (fdfer B).
proof: Proof. move => ha hb hc hd. move:(ha) =>[qa qb _ _]. split; apply:fin_disj_fam_prop10b => //. by apply: (Ex6_32p4c3 ha hb hc). by apply: (Ex6_32p4c2 ha hb hd). Qed.
imports: mathcomp(ssreflect ssrbool ssrfun eqtype)