proposition: Lemma implies_one : tests -> one_test.
proof: Proof. by move=> /andP [_ /andP [_ /andP[H _]]]. Qed.
imports: Coq(ZArith.ZArith Extraction) mathcomp.ssreflect.ssreflect mathcomp(ssrbool eqtype ssrnat seq fintype ssrfun tuple) Bits(bits) ExtrOcamlBasic