diff options
author | jadep <jade.philipoom@gmail.com> | 2016-07-21 11:23:18 -0400 |
---|---|---|
committer | jadep <jade.philipoom@gmail.com> | 2016-07-21 11:23:18 -0400 |
commit | 19b850574a479ccd7984b584d89e67513d719a01 (patch) | |
tree | 944a9cdb352edd780a74b74befa5e362522b88fe /src/ModularArithmetic/ModularBaseSystemOpt.v | |
parent | cb7580b8f501bfadd8792ea3b8d50f89df5a656a (diff) |
re-introduced extra field isomorphism layer for 8.4 compatibility and better organization of reasoning.
Diffstat (limited to 'src/ModularArithmetic/ModularBaseSystemOpt.v')
-rw-r--r-- | src/ModularArithmetic/ModularBaseSystemOpt.v | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/ModularArithmetic/ModularBaseSystemOpt.v b/src/ModularArithmetic/ModularBaseSystemOpt.v index d1a6f6228..4543ff67d 100644 --- a/src/ModularArithmetic/ModularBaseSystemOpt.v +++ b/src/ModularArithmetic/ModularBaseSystemOpt.v @@ -528,6 +528,13 @@ Section Multiplication. Definition carry_mul_opt_cps_correct {T} (f:digits -> T) (us vs : digits) : carry_mul_opt_cps f us vs = f (carry_mul us vs) := proj2_sig (carry_mul_opt_sig f us vs). + + Definition carry_mul_opt := carry_mul_opt_cps id. + + Definition carry_mul_opt_correct (us vs : digits) + : carry_mul_opt us vs = carry_mul us vs := + carry_mul_opt_cps_correct id us vs. + End Multiplication. Section with_base. |