proposition: Lemma pos_validL x y : pos_valid (pos_join x y) -> pos_valid x.
proof: Proof. by []. Qed.
imports: Coq(ssreflect ssrbool ssrfun) mathcomp(ssrnat eqtype seq bigop fintype finset) pcm(options axioms prelude seqperm pred seqext)