Skip to content
Snippets Groups Projects
Commit f4ecdfa8 authored by Ralf Jung's avatar Ralf Jung
Browse files

make list_reverse compile

parent 30a88b10
No related branches found
No related tags found
No related merge requests found
......@@ -16,13 +16,13 @@ Fixpoint is_list (hd : val) (xs : list val) : iProp :=
Definition rev : val :=
rec: "rev" "hd" "acc" :=
match: "hd" with
NONE => "acc"
match: '"hd" with
NONE => '"acc"
| SOME "l" =>
let: "tmp1" := Fst !"l" in
let: "tmp2" := Snd !"l" in
"l" <- ("tmp1", "acc");;
"rev" "tmp2" "hd"
let: "tmp1" := Fst !'"l" in
let: "tmp2" := Snd !'"l" in
'"l" <- ('"tmp1", '"acc");;
'"rev" '"tmp2" '"hd"
end.
Global Opaque rev.
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment