Module Type NZBitsSpec
(Import A : NZOrdAxiomsSig')(Import B : Bits' A).
Declare Instance testbit_wd : Proper (eq==>eq==>Logic.eq) testbit.

Axiom land_spec : forall a b n, (land a b).[n] = a.[n] && b.[n].
Axiom lor_spec : forall a b n, (lor a b).[n] = a.[n] || b.[n].
Axiom ldiff_spec : forall a b n, (ldiff a b).[n] = a.[n] && negb b.[n].
Axiom lxor_spec : forall a b n, (lxor a b).[n] = xorb a.[n] b.[n].
Axiom div2_spec : forall a, div2 a == a >> 1.