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
7827f688
Commit
7827f688
authored
Feb 16, 2016
by
Ralf Jung
Browse files
some playing around with wp_tactics
parent
26341006
Changes
2
Hide whitespace changes
Inline
Side-by-side
heap_lang/tests.v
View file @
7827f688
...
...
@@ -84,7 +84,7 @@ Section LiftingTests.
True
⊑
wp
(
Σ
:
=
globalF
Σ
)
E
(
let
:
"x"
:
=
Pred
'
42
in
Pred
"x"
)
(
λ
v
,
v
=
'
40
).
Proof
.
intros
E
.
wp_focus
(
Pred
'
42
)
;
rewrite
-
Pred_spec
-
later_intro
.
wp_focus
(
Pred
_
)
;
rewrite
-
Pred_spec
-
later_intro
.
wp_rec
.
rewrite
-
Pred_spec
-
later_intro
;
auto
with
I
.
Qed
.
End
LiftingTests
.
heap_lang/wp_tactics.v
View file @
7827f688
...
...
@@ -4,12 +4,12 @@ Import uPred.
Ltac
wp_strip_later
:
=
match
goal
with
|
|-
∀
_
,
_
=>
let
H
:
=
fresh
in
intro
H
;
wp_strip_later
;
revert
H
|
|-
_
⊑
▷
_
=>
etransitivity
;
[|
apply
later_intro
]
|
|-
_
⊑
▷
_
=>
etransitivity
;
[|
by
apply
later_intro
]
end
.
Ltac
wp_bind
K
:
=
lazymatch
eval
hnf
in
K
with
|
[]
=>
idtac
|
_
=>
etransitivity
;
[|
apply
(
wp_bind
K
)]
;
simpl
|
_
=>
etransitivity
;
[|
by
apply
(
wp_bind
K
)]
;
simpl
end
.
Ltac
wp_finish
:
=
let
rec
go
:
=
...
...
@@ -44,7 +44,6 @@ Tactic Notation "wp_bin_op" ">" :=
wp_bind
K
;
etransitivity
;
[|
eapply
wp_bin_op
;
reflexivity
]
;
wp_finish
end
)
end
.
Tactic
Notation
"wp_bin_op"
:
=
wp_bin_op
>
;
wp_strip_later
.
Tactic
Notation
"wp_un_op"
">"
:
=
match
goal
with
...
...
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