Definition in_Mset (M : Z) := 1 <= M <= 2 ^ (w - 1).Definition Mset := sig in_Mset.Coercion Z_from_Mset (M : Mset) := proj1_sig (P := in_Mset) M.

Lemma p1ex_2le : forall M : Mset, in_Z_ w (Zlog_sup M).