diff options
| author |  Jason Gross <jgross@mit.edu> | 2016-10-09 17:37:55 -0400 |
|---|---|---|
| committer |  Andres Erbsen <andreser@mit.edu> | 2016-10-10 13:10:32 -0400 |
| commit | 9f7ff19fe178823bf94ec532fbdf4e9fa2bfcfa6 (patch) | |
| tree | 5b83ba392e5a457d9c781ca477fa082025463ce9 /src/ModularArithmetic | |
| parent | 405f5840e5d9097b034a05d5eeab5ae6ba5757a3 (diff) | |
Fix compatibility with sigT notation
Diffstat (limited to 'src/ModularArithmetic')
| -rw-r--r-- | src/ModularArithmetic/ModularBaseSystemOpt.v | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/ModularArithmetic/ModularBaseSystemOpt.v b/src/ModularArithmetic/ModularBaseSystemOpt.v index 3eef0901e..d1bd49a55 100644 --- a/src/ModularArithmetic/ModularBaseSystemOpt.v +++ b/src/ModularArithmetic/ModularBaseSystemOpt.v @@ -264,7 +264,7 @@ Section Carries. eexists. intros H. rewrite <-carry_gen_opt_correct by assumption. cbv beta iota delta [carry_gen_opt]. - match goal with |- appcontext[?a & Z_ones_opt _] => + match goal with |- appcontext[?a &' Z_ones_opt _] => let LHS := match goal with |- ?LHS = ?RHS => LHS end in let RHS := match goal with |- ?LHS = ?RHS => RHS end in let RHSf := match (eval pattern (a) in RHS) with ?RHSf _ => RHSf end in |