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
George Pirlea
Iris
Commits
8fd3233e
Commit
8fd3233e
authored
Jun 01, 2018
by
Ralf Jung
Browse files
tests/mosel_paper: show the two goals separately
parent
f9435245
Changes
2
Hide whitespace changes
Inline
Side-by-side
tests/mosel_paper.ref
View file @
8fd3233e
...
...
@@ -10,7 +10,7 @@
--------------------------------------∗
∃ a : A, P ∗ Φ a ∨ P ∗ Ψ a
2
subgoal
s
1
subgoal
PROP : bi
A : Type
...
...
@@ -23,13 +23,19 @@
--------------------------------------∗
∃ a : A, P ∗ Φ a ∨ P ∗ Ψ a
subgoal 2 is:
"HP" : P
"H2" : Ψ x
--------------------------------------∗
∃ a : A, P ∗ Φ a ∨ P ∗ Ψ a
1 subgoal
PROP : bi
A : Type
P : PROP
Φ, Ψ : A → PROP
x : A
============================
"HP" : P
"H2" : Ψ x
--------------------------------------∗
∃ a : A, P ∗ Φ a ∨ P ∗ Ψ a
1 subgoal
PROP : bi
...
...
tests/mosel_paper.v
View file @
8fd3233e
...
...
@@ -12,9 +12,9 @@ Lemma example_1 {PROP : bi} {A : Type} (P : PROP) (Φ Ψ : A → PROP) :
P
∗
(
∃
a
,
Φ
a
∨
Ψ
a
)
-
∗
∃
a
,
(
P
∗
Φ
a
)
∨
(
P
∗
Ψ
a
).
Proof
.
iIntros
"[HP H]"
.
Show
.
iDestruct
"H"
as
(
x
)
"[H1|H2]"
.
Show
.
-
iExists
x
.
iLeft
.
iSplitL
"HP"
;
iAssumption
.
-
iExists
x
.
iRight
.
iSplitL
"HP"
;
iAssumption
.
iDestruct
"H"
as
(
x
)
"[H1|H2]"
.
-
Show
.
iExists
x
.
iLeft
.
iSplitL
"HP"
;
iAssumption
.
-
Show
.
iExists
x
.
iRight
.
iSplitL
"HP"
;
iAssumption
.
Qed
.
Lemma
example
{
PROP
:
bi
}
{
A
:
Type
}
(
P
:
PROP
)
(
Φ
Ψ
:
A
→
PROP
)
:
P
∗
(
∃
a
,
Φ
a
∨
Ψ
a
)
-
∗
∃
a
,
(
P
∗
Φ
a
)
∨
(
P
∗
Ψ
a
).
...
...
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