Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Pierre-Marie Pédrot
Iris
Commits
f4ecdfa8
Commit
f4ecdfa8
authored
Jul 19, 2016
by
Ralf Jung
Browse files
make list_reverse compile
parent
30a88b10
Changes
1
Hide whitespace changes
Inline
Side-by-side
tests/list_reverse.v
View file @
f4ecdfa8
...
...
@@ -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
.
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment