proposition: Lemma implies_bitsFromInt32_inj : tests -> bitsFromInt32_inj_test.
proof: Proof. move=> H. apply/forallInt32P=> x. apply idP. apply/forallInt32P=> y. apply idP. by move: (implies_binop H x y)=> /andP [-> _]. Qed.
imports: Coq(ZArith.ZArith Extraction) mathcomp.ssreflect.ssreflect mathcomp(ssrbool eqtype ssrnat seq fintype ssrfun tuple) Bits(bits) ExtrOcamlBasic