blob: 1875487fb56b2d01e997f57537f317c7ca9bcae7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
Require Import Crypto.SpecificGen.GF2519_32Reflective.CommonBinOp.
Definition rsubZ_sig : rexpr_binop_sig sub. Proof. reify_sig. Defined.
Definition rsubW := Eval vm_compute in rword_of_Z rsubZ_sig.
Lemma rsubW_correct_and_bounded_gen : correct_and_bounded_genT rsubW rsubZ_sig.
Proof. rexpr_correct. Qed.
Definition rsub_output_bounds := Eval vm_compute in compute_bounds rsubW ExprBinOp_bounds.
Local Open Scope string_scope.
Compute ("Sub", compute_bounds_for_display rsubW ExprBinOp_bounds).
Compute ("Sub overflows? ", sanity_compute rsubW ExprBinOp_bounds).
Compute ("Sub overflows (error if it does)? ", sanity_check rsubW ExprBinOp_bounds).
|
