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 := ...@@ -16,13 +16,13 @@ Fixpoint is_list (hd : val) (xs : list val) : iProp :=
Definition rev : val := Definition rev : val :=
rec: "rev" "hd" "acc" := rec: "rev" "hd" "acc" :=
match: "hd" with match: '"hd" with
NONE => "acc" NONE => '"acc"
| SOME "l" => | SOME "l" =>
let: "tmp1" := Fst !"l" in let: "tmp1" := Fst !'"l" in
let: "tmp2" := Snd !"l" in let: "tmp2" := Snd !'"l" in
"l" <- ("tmp1", "acc");; '"l" <- ('"tmp1", '"acc");;
"rev" "tmp2" "hd" '"rev" '"tmp2" '"hd"
end. end.
Global Opaque rev. 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