Commit ccf74b05 authored by Robbert Krebbers's avatar Robbert Krebbers

Improve indentation.

parent 86dec2b6
Pipeline #260 passed with stage
......@@ -3,7 +3,8 @@ From heap_lang Require Import wp_tactics notation.
Import uPred.
Definition par : val :=
λ: "fs", let: "handle" := ^spawn (Fst '"fs") in
λ: "fs",
let: "handle" := ^spawn (Fst '"fs") in
let: "v2" := Snd '"fs" #() in
let: "v1" := ^join '"handle" in
Pair '"v1" '"v2".
......
......@@ -4,11 +4,15 @@ From heap_lang Require Import wp_tactics notation.
Import uPred.
Definition spawn : val :=
λ: "f", let: "c" := ref (InjL #0) in
λ: "f",
let: "c" := ref (InjL #0) in
Fork ('"c" <- InjR ('"f" #())) ;; '"c".
Definition join : val :=
rec: "join" "c" := match: !'"c" with InjR "x" => '"x"
| InjL <> => '"join" '"c" end.
rec: "join" "c" :=
match: !'"c" with
InjR "x" => '"x"
| InjL <> => '"join" '"c"
end.
(** The monoids we need. *)
(* Not bundling heapG, as it may be shared with other users. *)
......
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