diff options
| author |  Jason Gross <jgross@mit.edu> | 2017-04-02 23:35:08 -0400 |
|---|---|---|
| committer |  Jason Gross <jasongross9@gmail.com> | 2017-04-03 15:08:18 -0400 |
| commit | 40fbb8f9d74c97afe7828cf7278ba13263b30fda (patch) | |
| tree | bbe66efee8ef8c436b7e1c86db94b71adc299b43 /src/Reflection/Z | |
| parent | ebe2c26a2ca5e7c869f5ab1fa5d7f89317061338 (diff) | |
Use projT2_map
Diffstat (limited to 'src/Reflection/Z')
| -rw-r--r-- | src/Reflection/Z/Bounds/Pipeline/Definition.v | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/src/Reflection/Z/Bounds/Pipeline/Definition.v b/src/Reflection/Z/Bounds/Pipeline/Definition.v index 1761e8a35..7fab3ce48 100644 --- a/src/Reflection/Z/Bounds/Pipeline/Definition.v +++ b/src/Reflection/Z/Bounds/Pipeline/Definition.v @@ -75,9 +75,11 @@ Definition PostWfPipeline let e := InlineConst e in let e := MapCast e input_bounds in option_map - (fun v - => let 'existT b e := v in - existT _ b (ExprEta (InlineConst e))) + (projT2_map + (fun b e' + => let e' := InlineConst e' in + let e' := ExprEta e' in + e' e). (** *** Correctness proof of the Pre-Wf Pipeline *) |