fact: Definition xpsub x := if decP (@idP (orth1 x)) is left pf then ex_sep (or_introl pf) else ex_sep (or_intror (erefl _)).
imports: Coq(ssreflect ssrbool ssrfun) mathcomp(eqtype fintype) pcm(options axioms prelude) pcm(pcm)