proposition: Lemma opred_meets (S : tMeetLatticeClosed T) I r (P : pred I) F : (forall i, P i -> F i \in S) -> \meet_(i <- r | P i) F i \in S.
proof: Proof. by move=> FS; elim/big_ind: _; [exact: opred1 | exact: opredI |]. Qed.
imports: HB(structures) mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat choice seq) mathcomp(path fintype tuple bigop finset div prime finfun) mathcomp(finset)