proposition: Lemma partdom_union_intpartr (s t1 t2 : intpart) : partdom t1 t2 -> partdom (union_intpart t1 s) (union_intpart t2 s).
proof: Proof. rewrite !(union_intpartC _ s); exact: partdomsh_merge. Qed.
imports: HB(structures) mathcomp(all_ssreflect) mathcomp(div ssralg ssrint ssrnum binomial) tools combclass sorted ordtype