proposition: Lemma prl_ne2_nonempty: (forall i, inc i (psI S) -> prl_ne1_condii' i) -> pr1_ne2_hyp3_weak -> nonempty (projective_limit S).
proof: Proof. move => ha hb. move:(Zorn_lemma (proj1 prl_ne2_sigma_osr) (prl_ne2_sigma_inductive ha)). move => [A Ap]; exact:(prl_ne2_sigma_maximal_ne ha hb Ap). Qed.
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat)