diff options
author | Jason Gross <jgross@mit.edu> | 2017-04-03 12:57:47 -0400 |
---|---|---|
committer | Jason Gross <jasongross9@gmail.com> | 2017-04-03 15:08:18 -0400 |
commit | 5be8ca5dd7addcf56c572f1ff8a4e38d1ffb78b1 (patch) | |
tree | b36076ca4b8efdeffaee0b791b80c09f3febcea2 | |
parent | 24c76cebae4316dd8ee2cc25aae644bf2c33d9a8 (diff) |
Work around an anomaly in pretyping/constr_matching
-rw-r--r-- | src/Specific/IntegrationTest.v | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Specific/IntegrationTest.v b/src/Specific/IntegrationTest.v index f9a3fdf8a..c72e4ea62 100644 --- a/src/Specific/IntegrationTest.v +++ b/src/Specific/IntegrationTest.v @@ -100,7 +100,7 @@ Section BoundedField25p5. replace carry_addZ'' with carry_addZ by abstract (cbv beta iota delta [carry_addZ'' proj1_sig add_sig carry_sig fst snd runtime_add runtime_and runtime_mul runtime_opp runtime_shr sz]; reflexivity); clear carry_addZ''. all:save_state_and_back_to_sig. - apply (fun f => proj2_sig_map (fun _ p => f_equal f p)). + apply (fun f => proj2_sig_map (fun THIS_NAME_MUST_NOT_BE_UNDERSCORE_TO_WORK_AROUND_CONSTR_MATCHING_ANAOMLIES___BUT_NOTE_THAT_IF_THIS_NAME_IS_LOWERCASE_A___THEN_REIFICATION_STACK_OVERFLOWS___AND_I_HAVE_NO_IDEA_WHATS_GOING_ON p => f_equal f p)). (* jgross start here! *) (*Set Ltac Profiling.*) Time refine_reflectively. (* Finished transaction in 19.348 secs (19.284u,0.036s) (successful) *) |