Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
I
Iris
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
0
Issues
0
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Operations
Operations
Incidents
Environments
Analytics
Analytics
CI / CD
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
Pierre-Marie Pédrot
Iris
Commits
0c51eb83
Commit
0c51eb83
authored
Jan 19, 2019
by
Ralf Jung
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
prettify after iMod
parent
7de018e3
Changes
3
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
41 additions
and
1 deletion
+41
-1
tests/atomic.ref
tests/atomic.ref
+31
-0
tests/atomic.v
tests/atomic.v
+9
-0
theories/proofmode/ltac_tactics.v
theories/proofmode/ltac_tactics.v
+1
-1
No files found.
tests/atomic.ref
View file @
0c51eb83
...
...
@@ -338,3 +338,34 @@
--------------------------------------∗
WP code {{ v, Φ v }}
"Prettification"
: string
1 subgoal
Σ : gFunctors
heapG0 : heapG Σ
P : val → iProp Σ
============================
--------------------------------------∗
∀ Φ : language.val heap_lang → iProp Σ, AU << ∀
x : val,
P x >> @ ⊤, ∅
<< ∃ y : val, P y, COMM Φ #() >>
-∗ WP ! #0 {{ v, Φ v }}
1 subgoal
Σ : gFunctors
heapG0 : heapG Σ
P : val → iProp Σ
Φ : language.val heap_lang → iProp Σ
============================
"AU" : ∃ x : val, P x
∗ (P x
={∅,⊤}=∗ AU << ∀ x0 : val,
P x0 >> @ ⊤, ∅
<< ∃ y : val, P y, COMM Φ #() >>)
∧ (∀ x0 : val, P x0 ={∅,⊤}=∗ Φ #())
--------------------------------------∗
WP ! #0 @ ∅ {{ v, |={∅,⊤}=> Φ v }}
tests/atomic.v
View file @
0c51eb83
...
...
@@ -88,4 +88,13 @@ Section printing.
Show
.
iIntros
(
Q
Φ
)
"? AU"
.
Show
.
Abort
.
Check
"Prettification"
.
Lemma
iMod_prettify
(
P
:
val
→
iProp
Σ
)
:
<<<
∀
x
,
P
x
>>>
!#
0
@
⊤
<<<
∃
y
,
P
y
,
RET
#()
>>>.
Proof
.
iApply
wp_atomic_intro
.
Show
.
iIntros
(
Φ
)
"AU"
.
iMod
"AU"
.
Show
.
Abort
.
End
printing
.
theories/proofmode/ltac_tactics.v
View file @
0c51eb83
...
...
@@ -1214,7 +1214,7 @@ Tactic Notation "iModCore" constr(H) :=
fail
"iMod: cannot eliminate modality"
P
"in"
Q
|
iSolveSideCondition
|
pm_reflexivity
|
(* subgoal *)
].
|
pm_prettify
(* subgoal *)
].
(** * Basic destruct tactic *)
Local
Ltac
iDestructHypGo
Hz
pat
:
=
...
...
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