Commit a1cf5cb9 authored by Ralf Jung's avatar Ralf Jung

we need unlocked value lambdas

parent 42eb5ad3
Pipeline #14707 passed with stage
in 20 minutes and 17 seconds
...@@ -117,11 +117,11 @@ The normal `e1 ||| e2` notation uses expression lambdas, because clearly we want ...@@ -117,11 +117,11 @@ The normal `e1 ||| e2` notation uses expression lambdas, because clearly we want
value lambda). However, the *specification* for parallel composition should use value lambda). However, the *specification* for parallel composition should use
value lambdas, because prior to applying it the term will be reduced as much as value lambdas, because prior to applying it the term will be reduced as much as
possible to achieve a normal form. To facilitate this, we define a copy of the possible to achieve a normal form. To facilitate this, we define a copy of the
`e1 ||| e2` notation in the value scope that uses value lambdas. This is not `e1 ||| e2` notation in the value scope that uses *unlocked* value lambdas.
actually a value, but we still but it in the value scope to differentiate from This is not actually a value, but we still but it in the value scope to
the other notation that uses expression lambdas. (In the future, we might differentiate from the other notation that uses expression lambdas. (In the
decide to add a separate scope for this.) Then, we write the canonical future, we might decide to add a separate scope for this.) Then, we write the
specification using the notation in the value scope. canonical specification using the notation in the value scope.
This works very well for non-recursive notions. For `while` loops, the This works very well for non-recursive notions. For `while` loops, the
situation is unfortunately more complex and proving the desired specification situation is unfortunately more complex and proving the desired specification
......
...@@ -12,7 +12,7 @@ Definition par : val := ...@@ -12,7 +12,7 @@ Definition par : val :=
let: "v1" := join "handle" in let: "v1" := join "handle" in
("v1", "v2"). ("v1", "v2").
Notation "e1 ||| e2" := (par (λ: <>, e1)%E (λ: <>, e2)%E) : expr_scope. Notation "e1 ||| e2" := (par (λ: <>, e1)%E (λ: <>, e2)%E) : expr_scope.
Notation "e1 ||| e2" := (par (λ: <>, e1)%V (λ: <>, e2)%V) : val_scope. Notation "e1 ||| e2" := (par (LamV BAnon e1%E) (LamV BAnon e2%E)) : val_scope.
Section proof. Section proof.
Local Set Default Proof Using "Type*". Local Set Default Proof Using "Type*".
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment