blob: 0166ce6f403a8aac82960903a1ebcd7fb73cb0cf (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
Require Import Coq.ZArith.ZArith.
Require Import Crypto.Util.Decidable.
Require Import Crypto.Util.ZUtil.Definitions.
Require Import Crypto.Util.Tactics.
Local Open Scope Z_scope.
Module Z.
Lemma zselect_correct cond zero_case nonzero_case :
Z.zselect cond zero_case nonzero_case =
if dec (cond = 0) then zero_case else nonzero_case.
Proof.
cbv [Z.zselect]; break_match;
try reflexivity; try discriminate.
rewrite <-Z.eqb_neq in *; congruence.
Qed.
End Z.
|
