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 Mset_r : forall M : Mset, M <= 2 ^ (w - 1).