Set Implicit Arguments.

(* Specifications: *)
Lemma share_lemma87:
forall a b, Share.glb a b = Share.bot -> Share.glb (Share.comp a) b = b.
Lemma join_top_comp:
forall a b, join a b Share.top -> Share.comp a = b.
Lemma comp_bot: Share.comp Share.bot = Share.top.
Lemma share_distrib1':
forall w x y z : Share.t,
Share.glb (Share.lub w x) (Share.lub y z) =
Share.lub (Share.lub (Share.glb w y)  (Share.glb x y))
(Share.lub (Share.glb w z) (Share.glb x z)).
Lemma share_distrib2':
forall w x y z : Share.t,
Share.lub (Share.glb w x) (Share.glb y z) =
Share.glb (Share.glb (Share.lub w y) (Share.lub x y))
(Share.glb (Share.lub w z) (Share.lub x z)).
Lemma lub_bot_e:
forall x y, Share.lub x y = Share.bot -> x = Share.bot /\ y = Share.bot.
Lemma glb_less_both:
forall a L b R,
Share.Ord a L -> Share.Ord b R ->
Share.Ord (Share.glb a b) (Share.glb L R).
Lemma comp_Lsh_Rsh:
Share.comp Share.Lsh = Share.Rsh.
Lemma share_lemma88:
forall sh, Share.glb sh Share.Rsh = Share.bot ->
join_sub sh Share.Lsh.
Lemma split_eq: forall m (v2 : Bvector m) n (v1 : Bvector n),
splitVector n m (Vector.append v1 v2)  = (v1, v2).