Fact xchoose_subproof P exP : {x | find P (ex_minn (@complete P exP)) = Some x}.Implicit Type T : countType.Local Notation dc := decode.Implicit Types P Q : pred T.Definition xchoose P exP := sval (@xchoose_subproof T P exP).

Lemma sig_eqW (vT : eqType) (lhs rhs : T -> vT) : (exists x, lhs x = rhs x) -> {x | lhs x = rhs x}.