Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Marianna Rapoport
iris-coq
Commits
7f179d5b
Commit
7f179d5b
authored
Feb 08, 2016
by
Ralf Jung
Browse files
get rid of a few %L we do not need any more
parent
c6490e75
Changes
1
Hide whitespace changes
Inline
Side-by-side
heap_lang/tests.v
View file @
7f179d5b
...
...
@@ -7,12 +7,11 @@ Module LangTests.
Definition
add
:
=
(
21
+
21
)%
L
.
Goal
∀
σ
,
prim_step
add
σ
42
σ
None
.
Proof
.
intros
;
do_step
done
.
Qed
.
(* FIXME RJ why do I need the %L ? *)
Definition
rec
:
expr
:
=
(
rec
::
#
0
#
1
)%
L
.
(* fix f x => f x *)
Definition
rec
:
expr
:
=
rec
::
#
0
#
1
.
(* fix f x => f x *)
Definition
rec_app
:
expr
:
=
rec
0
.
Goal
∀
σ
,
prim_step
rec_app
σ
rec_app
σ
None
.
Proof
.
Set
Printing
All
.
intros
;
do_step
done
.
Qed
.
Definition
lam
:
expr
:
=
(
λ
:
#
0
+
21
)%
L
.
Definition
lam
:
expr
:
=
λ
:
#
0
+
21
.
Goal
∀
σ
,
prim_step
(
App
lam
(
LitNat
21
))
σ
add
σ
None
.
Proof
.
intros
;
do_step
done
.
Qed
.
End
LangTests
.
...
...
@@ -23,7 +22,7 @@ Module LiftingTests.
Implicit
Types
Q
:
val
→
iProp
heap_lang
Σ
.
(* FIXME: Fix levels so that we do not need the parenthesis here. *)
Definition
e
:
expr
:
=
(
let
:
ref
1
in
#
0
<-
!#
0
+
1
;
!#
0
)%
L
.
Definition
e
:
expr
:
=
let
:
ref
1
in
#
0
<-
!#
0
+
1
;
!#
0
.
Goal
∀
σ
E
,
(
ownP
σ
:
iProp
heap_lang
Σ
)
⊑
(
wp
E
e
(
λ
v
,
■
(
v
=
2
))).
Proof
.
move
=>
σ
E
.
rewrite
/
e
.
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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