fact: Definition ojoin (x y : option U) : option U := if x is Some a then if y is Some b then Some (a \+ b) else None else None.
imports: Coq(ssreflect ssrbool ssrfun) mathcomp(ssrnat eqtype seq bigop fintype finset) pcm(options axioms prelude seqperm pred seqext)