fact: Definition lsr_test: bool := forallInt8 (fun i => forallInt8 (fun i' => (toNat (bitsFromInt8 i') <= wordsize) ==> native_repr (lsr i i') (shrBn (bitsFromInt8 i) (toNat (bitsFromInt8 i'))))).
imports: Coq(ZArith.ZArith Extraction) mathcomp.ssreflect.ssreflect mathcomp(ssrbool eqtype ssrnat seq fintype ssrfun tuple) Bits(bits)