Instance Inhabitant_share : Inhabitant share := Share.bot.(* TODO: remove this, it's already in sublist.v *) 
Instance Inhabitant_mpred : Inhabitant mpred := @FF mpred Nveric.

Lemma split_shares : forall n sh, readable_share sh -> exists sh1 shs, Zlength shs = Z.of_nat n /\ readable_share sh1 /\ Forall readable_share shs /\ sepalg_list.list_join sh1 shs sh.