diff options
| author |  Jason Gross <jgross@mit.edu> | 2018-05-05 18:01:20 -0400 |
|---|---|---|
| committer |  Jason Gross <jasongross9@gmail.com> | 2018-05-05 18:01:31 -0400 |
| commit | 7a67a7d58ab4b7a17e99373708216eaa5213b899 (patch) | |
| tree | 2d74c0ab12f034de8b2cec95f230e3c8215b2fbc /src/Experiments | |
| parent | 4f8e1895e803241233ddf88de8c5c6bd7a970f13 (diff) | |
Don't use vm_compute with existentials
Diffstat (limited to 'src/Experiments')
| -rw-r--r-- | src/Experiments/PartialEvaluationWithLetIn.v | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/Experiments/PartialEvaluationWithLetIn.v b/src/Experiments/PartialEvaluationWithLetIn.v index e64a2ae9d..cf8d3e881 100644 --- a/src/Experiments/PartialEvaluationWithLetIn.v +++ b/src/Experiments/PartialEvaluationWithLetIn.v @@ -863,13 +863,13 @@ Section specialized. Import expr. Import ident. - Compute eval (#Fst @ (expr_let x := ##10 in ($x, $x)))%expr. + Eval compute in eval (#Fst @ (expr_let x := ##10 in ($x, $x)))%expr. - Compute eval ((\ x , expr_let y := ##5 in #Fst @ $x + (#Fst @ $x + ($y + $y))) - @ (##1, ##1))%expr. + Eval compute in eval ((\ x , expr_let y := ##5 in #Fst @ $x + (#Fst @ $x + ($y + $y))) + @ (##1, ##1))%expr. - Compute eval ((\ x , expr_let y := ##5 in $y + ($y + (#Fst @ $x + #Snd @ $x))) - @ (##1, ##7))%expr. + Eval compute in eval ((\ x , expr_let y := ##5 in $y + ($y + (#Fst @ $x + #Snd @ $x))) + @ (##1, ##7))%expr. Eval cbv in eval_with_bound |