fact: Definition pos_join x y : posNat := Sub (maxn (val x) (val y)) (max_pos x y).
imports: Coq(ssreflect ssrbool ssrfun) mathcomp(ssrnat eqtype seq bigop fintype finset) pcm(options axioms prelude seqperm pred seqext)