fact: Definition binop_tests x bitsX y bitsY := allb [:: (bitsX == bitsY) ==> (eq x y) ; native_repr (land x y) (andB bitsX bitsY) ; native_repr (lor x y) (orB bitsX bitsY) ; native_repr (lxor x y) (xorB bitsX bitsY) ; native_repr (add x y) (addB bitsX bitsY)].
imports: Coq(ZArith.ZArith Extraction) mathcomp.ssreflect.ssreflect mathcomp(ssrbool eqtype ssrnat seq fintype ssrfun tuple) Bits(bits) ExtrOcamlBasic